diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-07-11 14:18:02 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-07-11 14:18:02 +0000 |
| commit | aed13378308fae471bf2c11870a456e457166c31 (patch) | |
| tree | 89ee2f5aaffc88a04531e85b1c1da979f17483f2 /src/bytecode.c | |
| parent | e20b31732ad01d8de7605ea740525dedc3dbdb90 (diff) | |
| download | emacs-aed13378308fae471bf2c11870a456e457166c31.tar.gz emacs-aed13378308fae471bf2c11870a456e457166c31.tar.bz2 emacs-aed13378308fae471bf2c11870a456e457166c31.zip | |
Use macro SPECPDL_INDEX.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 442729e477a..7f58b4d17ab 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -420,7 +420,7 @@ If the third argument is incorrect, Emacs may crash. */) (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 @@ If the third argument is incorrect, Emacs may crash. */) 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 @@ If the third argument is incorrect, Emacs may crash. */) 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 @@ If the third argument is incorrect, Emacs may crash. */) 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 |