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; |
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 |
|
|
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 |
} |
} |
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 |