diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 9ae2e820d51..8cefa10475c 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -1682,17 +1682,18 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, CASE (Bnarrow_to_region): { - Lisp_Object v1; + Lisp_Object v1, v2; BEFORE_POTENTIAL_GC (); v1 = POP; - TOP = Fnarrow_to_region (TOP, v1); + v2 = POP; + TOP = Fnarrow_to_region (TOP, v2, v1); AFTER_POTENTIAL_GC (); NEXT; } CASE (Bwiden): BEFORE_POTENTIAL_GC (); - PUSH (Fwiden ()); + TOP = Fwiden (TOP); AFTER_POTENTIAL_GC (); NEXT; |