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

Update IHS environment also when using optimized function calls in interpreter

Browse source
This commit is contained in:
jjgarcia 2008-06-19 16:26:48 +00:00
parent cea621fc7a
commit 7a1fd864e1
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/interpreter.d
View file

@ -650,6 +650,7 @@ ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes, cl_index offs
cl_objectfn_fixed f;
GET_DATA(s, vector, data);
f = (cl_objectfn_fixed)SYM_FUN(s)->cfun.entry;
SETUP_ENV(the_env);
reg0 = f(reg0);
THREAD_NEXT;
}
@ -659,6 +660,7 @@ ecl_interpret(cl_object frame, cl_object env, cl_object bytecodes, cl_index offs
cl_objectfn_fixed f;
GET_DATA(s, vector, data);
f = (cl_objectfn_fixed)SYM_FUN(s)->cfun.entry;
SETUP_ENV(the_env);
reg0 = f(STACK_POP(the_env), reg0);
THREAD_NEXT;
}