procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(MAYBE_GC): New macro.

Browse source 
(Fbyte_code): Use MAYBE_GC in every goto opcode.
This commit is contained in:
Richard M. Stallman 1996-12-07 21:12:17 +00:00
parent 8abd035b44
commit 147268711e
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/bytecode.c
View file

@ -251,6 +251,13 @@ Lisp_Object Qbytecode;
#define TOP (*stackp)
/* Garbage collect if we have consed enough since the last time.
We do this at every branch, to avoid loops that never GC. */
#define MAYBE_GC() \
if (consing_since_gc > gc_cons_threshold) \
Fgarbage_collect ();
DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0,
"Function used internally in byte-compiled code.\n\
The first argument, BYTESTR, is a string of byte code;\n\
@ -431,12 +438,14 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Bgoto:
MAYBE_GC ();
QUIT;
op = FETCH2; /* pc = FETCH2 loses since FETCH2 contains pc++ */
pc = XSTRING (string_saved)->data + op;
break;
case Bgotoifnil:
MAYBE_GC ();
op = FETCH2;
if (NILP (POP))
{
@ -446,6 +455,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Bgotoifnonnil:
MAYBE_GC ();
op = FETCH2;
if (!NILP (POP))
{
@ -455,6 +465,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Bgotoifnilelsepop:
MAYBE_GC ();
op = FETCH2;
if (NILP (TOP))
{
@ -465,6 +476,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Bgotoifnonnilelsepop:
MAYBE_GC ();
op = FETCH2;
if (!NILP (TOP))
{
@ -475,11 +487,13 @@ If the third argument is incorrect, Emacs may crash.")
break;
case BRgoto:
MAYBE_GC ();
QUIT;
pc += (int) *pc - 127;
break;
case BRgotoifnil:
MAYBE_GC ();
if (NILP (POP))
{
QUIT;
@ -489,6 +503,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case BRgotoifnonnil:
MAYBE_GC ();
if (!NILP (POP))
{
QUIT;
@ -498,6 +513,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case BRgotoifnilelsepop:
MAYBE_GC ();
op = *pc++;
if (NILP (TOP))
{
@ -508,6 +524,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case BRgotoifnonnilelsepop:
MAYBE_GC ();
op = *pc++;
if (!NILP (TOP))
{