Mercurial > emacs
diff src/bytecode.c @ 46293:1fb8f75062c6
Use macro SPECPDL_INDEX.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 11 Jul 2002 14:18:02 +0000 |
| parents | 36bc4f35dc18 |
| children | 40db0673e6f0 |
line wrap: on
line diff
--- a/src/bytecode.c Wed Jul 10 11:08:01 2002 +0000 +++ b/src/bytecode.c Thu Jul 11 14:18:02 2002 +0000 @@ -420,7 +420,7 @@ (bytestr, vector, maxdepth) Lisp_Object bytestr, vector, maxdepth; { - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); #ifdef BYTE_CODE_METER int this_op = 0; int prev_op; @@ -728,7 +728,7 @@ op -= Bunbind; dounbind: BEFORE_POTENTIAL_GC (); - unbind_to (specpdl_ptr - specpdl - op, Qnil); + unbind_to (SPECPDL_INDEX () - op, Qnil); AFTER_POTENTIAL_GC (); break; @@ -909,7 +909,7 @@ temp_output_buffer_show (TOP); TOP = v1; /* pop binding of standard-output */ - unbind_to (specpdl_ptr - specpdl - 1, Qnil); + unbind_to (SPECPDL_INDEX () - 1, Qnil); AFTER_POTENTIAL_GC (); break; } @@ -1725,7 +1725,7 @@ byte_stack_list = byte_stack_list->next; /* Binds and unbinds are supposed to be compiled balanced. */ - if (specpdl_ptr - specpdl != count) + if (SPECPDL_INDEX () != count) #ifdef BYTE_CODE_SAFE error ("binding stack not balanced (serious byte compiler bug)"); #else