/[emacs]/emacs/src/bytecode.c
ViewVC logotype

Diff of /emacs/src/bytecode.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69 by ttn, Mon Jun 3 01:34:11 2002 UTC revision 1.70 by lektu, Thu Jul 11 14:08:30 2002 UTC
# Line 420  If the third argument is incorrect, Emac Line 420  If the third argument is incorrect, Emac
420       (bytestr, vector, maxdepth)       (bytestr, vector, maxdepth)
421       Lisp_Object bytestr, vector, maxdepth;       Lisp_Object bytestr, vector, maxdepth;
422  {  {
423    int count = specpdl_ptr - specpdl;    int count = SPECPDL_INDEX ();
424  #ifdef BYTE_CODE_METER  #ifdef BYTE_CODE_METER
425    int this_op = 0;    int this_op = 0;
426    int prev_op;    int prev_op;
# Line 728  If the third argument is incorrect, Emac Line 728  If the third argument is incorrect, Emac
728            op -= Bunbind;            op -= Bunbind;
729          dounbind:          dounbind:
730            BEFORE_POTENTIAL_GC ();            BEFORE_POTENTIAL_GC ();
731            unbind_to (specpdl_ptr - specpdl - op, Qnil);            unbind_to (SPECPDL_INDEX () - op, Qnil);
732            AFTER_POTENTIAL_GC ();            AFTER_POTENTIAL_GC ();
733            break;            break;
734    
# Line 909  If the third argument is incorrect, Emac Line 909  If the third argument is incorrect, Emac
909              temp_output_buffer_show (TOP);              temp_output_buffer_show (TOP);
910              TOP = v1;              TOP = v1;
911              /* pop binding of standard-output */              /* pop binding of standard-output */
912              unbind_to (specpdl_ptr - specpdl - 1, Qnil);              unbind_to (SPECPDL_INDEX () - 1, Qnil);
913              AFTER_POTENTIAL_GC ();              AFTER_POTENTIAL_GC ();
914              break;              break;
915            }            }
# Line 1725  If the third argument is incorrect, Emac Line 1725  If the third argument is incorrect, Emac
1725    byte_stack_list = byte_stack_list->next;    byte_stack_list = byte_stack_list->next;
1726    
1727    /* Binds and unbinds are supposed to be compiled balanced.  */    /* Binds and unbinds are supposed to be compiled balanced.  */
1728    if (specpdl_ptr - specpdl != count)    if (SPECPDL_INDEX () != count)
1729  #ifdef BYTE_CODE_SAFE  #ifdef BYTE_CODE_SAFE
1730      error ("binding stack not balanced (serious byte compiler bug)");      error ("binding stack not balanced (serious byte compiler bug)");
1731  #else  #else

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26