From ca2e32dcc4ed8bba25a700cd7c8fa8aba6c94ae5 Mon Sep 17 00:00:00 2001 From: Nickolas Lloyd Date: Thu, 22 Dec 2016 20:05:16 -0500 Subject: ; Minor reorg of bytecode interpreter/JIT compiler ; * src/bytecode.c (exec_byte_code, exec_byte_code__): Use exec_byte_code as the single entrypoint for both the interpreter and JIT compiler. ; * src/bytecode-jit.c (jit_byte_code): Remove jit_byte_code to be replaced by exec_byte_code. ; * src/bytecode.h: Add function prototypes. ; * src/eval.c (funcall_lambda): Use exec_byte_code instead of jit_byte_code. ; * src/lisp.h: Update function prototypes. --- src/eval.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/eval.c') diff --git a/src/eval.c b/src/eval.c index 7d32daf0e4e..f2e6ba85214 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2954,8 +2954,8 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs, and constants vector yet, fetch them from the file. */ if (CONSP (AREF (fun, COMPILED_BYTECODE))) Ffetch_bytecode (fun); - return jit_byte_code (fun, syms_left, - nargs, arg_vector); + return exec_byte_code (fun, syms_left, + nargs, arg_vector); } lexenv = Qnil; } @@ -3029,7 +3029,7 @@ funcall_lambda (Lisp_Object fun, ptrdiff_t nargs, and constants vector yet, fetch them from the file. */ if (CONSP (AREF (fun, COMPILED_BYTECODE))) Ffetch_bytecode (fun); - val = jit_byte_code (fun, Qnil, 0, 0); + val = exec_byte_code (fun, Qnil, 0, 0); } return unbind_to (count, val); -- cgit v1.2.1