mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 06:30:32 -07:00
Code Issues Projects Releases Packages Wiki Activity

bytevm: access interpreter locals in fifo order

Browse source 
This is a preliminary step before replacing a structure consed on a heap with
the lisp stack.
This commit is contained in:
Daniel Kochmański 2025-04-30 15:24:44 +02:00
parent 34f546027f
commit 9addb2cc4a
2 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/compiler.d
View file

@ -751,8 +751,7 @@ c_lcl_idx(cl_env_ptr env, cl_object entry)
}
} end_loop_for_on_unsafe(l);
if (i<0) ecl_miscompilation_error();
return i;
/* return n-i; */
return n-i;
}
/* This function is called after we compile lambda in the parent's

7
src/c/interpreter.d
View file

@ -151,12 +151,9 @@ drop_lcl(cl_object *stack, cl_fixnum n)
}
static cl_object
ecl_lcl_env_get_record(cl_object env, int s)
ecl_lcl_env_get_record(cl_object env, cl_fixnum n)
{
do {
if (s-- == 0) return ECL_CONS_CAR(env);
env = ECL_CONS_CDR(env);
} while(1);
return ECL_CONS_CAR(ecl_last(env, n+1));
}
static cl_object