[Emacs-diffs] Changes to emacs/src/bytecode.c

[Juanma Barranquero]

Index: emacs/src/bytecode.c
diff -c emacs/src/bytecode.c:1.69 emacs/src/bytecode.c:1.70
*** emacs/src/bytecode.c:1.69   Sun Jun  2 21:34:11 2002
--- emacs/src/bytecode.c        Thu Jul 11 10:08:30 2002
***************
*** 420,426 ****
       (bytestr, vector, maxdepth)
       Lisp_Object bytestr, vector, maxdepth;
  {
!   int count = specpdl_ptr - specpdl;
  #ifdef BYTE_CODE_METER
    int this_op = 0;
    int prev_op;
--- 420,426 ----
       (bytestr, vector, maxdepth)
       Lisp_Object bytestr, vector, maxdepth;
  {
!   int count = SPECPDL_INDEX ();
  #ifdef BYTE_CODE_METER
    int this_op = 0;
    int prev_op;
***************
*** 728,734 ****
          op -= Bunbind;
        dounbind:
          BEFORE_POTENTIAL_GC ();
!         unbind_to (specpdl_ptr - specpdl - op, Qnil);
          AFTER_POTENTIAL_GC ();
          break;
  
--- 728,734 ----
          op -= Bunbind;
        dounbind:
          BEFORE_POTENTIAL_GC ();
!         unbind_to (SPECPDL_INDEX () - op, Qnil);
          AFTER_POTENTIAL_GC ();
          break;
  
***************
*** 909,915 ****
            temp_output_buffer_show (TOP);
            TOP = v1;
            /* pop binding of standard-output */
!           unbind_to (specpdl_ptr - specpdl - 1, Qnil);
            AFTER_POTENTIAL_GC ();
            break;
          }
--- 909,915 ----
            temp_output_buffer_show (TOP);
            TOP = v1;
            /* pop binding of standard-output */
!           unbind_to (SPECPDL_INDEX () - 1, Qnil);
            AFTER_POTENTIAL_GC ();
            break;
          }
***************
*** 1725,1731 ****
    byte_stack_list = byte_stack_list->next;
  
    /* Binds and unbinds are supposed to be compiled balanced.  */
!   if (specpdl_ptr - specpdl != count)
  #ifdef BYTE_CODE_SAFE
      error ("binding stack not balanced (serious byte compiler bug)");
  #else
--- 1725,1731 ----
    byte_stack_list = byte_stack_list->next;
  
    /* Binds and unbinds are supposed to be compiled balanced.  */
!   if (SPECPDL_INDEX () != count)
  #ifdef BYTE_CODE_SAFE
      error ("binding stack not balanced (serious byte compiler bug)");
  #else