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

The IHS record is not created in apply lambda but in ecl_interpret

Browse source
This commit is contained in:
jjgarcia 2008-06-19 14:59:37 +00:00
parent 6870a9753f
commit 9d3d2b34fe
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/interpreter.d
View file

@ -445,13 +445,11 @@ ecl_apply_lambda(cl_object frame, cl_object fun)
{
cl_object name, env;
bds_ptr old_bds_top;
struct ihs_frame ihs;
if (type_of(fun) != t_bytecodes)
FEinvalid_function(fun);
/* Save the lexical environment and set up a new one */
ihs_push(&ihs, fun, Cnil);
env = fun->bytecodes.lex;
old_bds_top = cl_env.bds_top;
@ -463,7 +461,6 @@ ecl_apply_lambda(cl_object frame, cl_object fun)
name = fun->bytecodes.name;
ecl_interpret(env, fun, fun->bytecodes.code);
bds_unwind(old_bds_top);
ihs_pop();
returnn(VALUES(0));
}
@ -546,7 +543,9 @@ ecl_interpret(cl_object lex_env, cl_object bytecodes, void *pc)
ECL_OFFSET_TABLE;
cl_opcode *vector = pc;
cl_object reg0 = VALUES(0), reg1;
struct ihs_frame ihs;
static int i = 0;
ihs_push(&ihs, bytecodes, lex_env);
i++;
BEGIN:
BEGIN_SWITCH {
@ -703,6 +702,7 @@ ecl_interpret(cl_object lex_env, cl_object bytecodes, void *pc)
or a function.
*/
CASE(OP_EXIT); {
ihs_pop();
return (char *)vector;
}
/* OP_FLET nfun{arg}