mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

The bytecodes optimized function calls to core functions with fixed number of arguments, but they are redefined in some libraries.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-24 23:49:03 +01:00
parent 34b1d6b27e
commit d246049e4b
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/interpreter.d
View file

@ -417,21 +417,21 @@ ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes)
CASE(OP_CALLG1); {
cl_object s;
cl_objectfn_fixed f;
cl_objectfn f;
GET_DATA(s, vector, data);
f = ECL_SYM_FUN(s)->cfunfixed.entry_fixed;
f = ecl_function_dispatch(the_env, ECL_SYM_FUN(s));
SETUP_ENV(the_env);
reg0 = f(reg0);
reg0 = f(1, reg0);
THREAD_NEXT;
}
CASE(OP_CALLG2); {
cl_object s;
cl_objectfn_fixed f;
cl_objectfn f;
GET_DATA(s, vector, data);
f = ECL_SYM_FUN(s)->cfunfixed.entry_fixed;
f = ecl_function_dispatch(the_env, ECL_SYM_FUN(s));
SETUP_ENV(the_env);
reg0 = f(ECL_STACK_POP_UNSAFE(the_env), reg0);
reg0 = f(2, ECL_STACK_POP_UNSAFE(the_env), reg0);
THREAD_NEXT;
}