diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 523d56bc97b..5ac8b4fa2bd 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -536,7 +536,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 536 | stack.byte_string = bytestr; | 536 | stack.byte_string = bytestr; |
| 537 | stack.pc = stack.byte_string_start = SDATA (bytestr); | 537 | stack.pc = stack.byte_string_start = SDATA (bytestr); |
| 538 | stack.constants = vector; | 538 | stack.constants = vector; |
| 539 | if (MAX_ALLOCA / sizeof (Lisp_Object) <= XFASTINT (maxdepth)) | 539 | if (MAX_ALLOCA / word_size <= XFASTINT (maxdepth)) |
| 540 | memory_full (SIZE_MAX); | 540 | memory_full (SIZE_MAX); |
| 541 | top = alloca ((XFASTINT (maxdepth) + 1) * sizeof *top); | 541 | top = alloca ((XFASTINT (maxdepth) + 1) * sizeof *top); |
| 542 | #if BYTE_MAINTAIN_TOP | 542 | #if BYTE_MAINTAIN_TOP |
| @@ -818,7 +818,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, | |||
| 818 | && !EQ (val, Qunbound) | 818 | && !EQ (val, Qunbound) |
| 819 | && !XSYMBOL (sym)->redirect | 819 | && !XSYMBOL (sym)->redirect |
| 820 | && !SYMBOL_CONSTANT_P (sym)) | 820 | && !SYMBOL_CONSTANT_P (sym)) |
| 821 | SVAR (XSYMBOL (sym), val.value) = val; | 821 | SET_SYMBOL_VAL (XSYMBOL (sym), val); |
| 822 | else | 822 | else |
| 823 | { | 823 | { |
| 824 | BEFORE_POTENTIAL_GC (); | 824 | BEFORE_POTENTIAL_GC (); |