mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(HANDLE_RELOCATION): New macro.

Browse Source 
(MAYBE_GC): Call HANDLE_RELOCATION.  Swallow following semicolon.
(Fbyte_code): Use HANDLE_RELOCATION.
This commit is contained in:
Richard M. Stallman 1997-01-02 20:50:51 +00:00
parent 24e519d8c9
commit 5e7ed09384
1 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/bytecode.c
View File

@ -256,7 +256,20 @@ Lisp_Object Qbytecode;
#define MAYBE_GC() \
if (consing_since_gc > gc_cons_threshold) \
Fgarbage_collect ();
{ \
Fgarbage_collect (); \
HANDLE_RELOCATION (); \
} \
else
/* Relocate BYTESTR if there has been a GC recently. */
#define HANDLE_RELOCATION() \
if (! EQ (string_saved, bytestr)) \
{ \
pc = pc - XSTRING (string_saved)->data + XSTRING (bytestr)->data; \
string_saved = bytestr; \
} \
else
/* Check for jumping out of range. */
#define CHECK_RANGE(ARG) \
@ -323,11 +336,8 @@ If the third argument is incorrect, Emacs may crash.")
pc - XSTRING (string_saved)->data);
#endif
if (! EQ (string_saved, bytestr))
{
pc = pc - XSTRING (string_saved)->data + XSTRING (bytestr)->data;
string_saved = bytestr;
}
/* Update BYTESTR if we had a garbage collection. */
HANDLE_RELOCATION ();
#ifdef BYTE_CODE_METER
prev_op = this_op;