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

Remove useless field frs_lex from the frame stack records.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-06-08 19:59:25 +02:00
parent 847e937183
commit 84c9902ed0
2 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/stacks.d
View file

@ -262,7 +262,6 @@ _frs_push(register cl_object val)
{
ecl_frame_ptr output = ++cl_env.frs_top;
if (output >= cl_env.frs_limit) frs_overflow();
output->frs_lex = cl_env.lex_env;
output->frs_bds_top = cl_env.bds_top;
output->frs_val = val;
output->frs_ihs = cl_env.ihs_top;
@ -276,7 +275,6 @@ ecl_unwind(ecl_frame_ptr fr)
cl_env.nlj_fr = fr;
while (cl_env.frs_top != fr && cl_env.frs_top->frs_val != ECL_PROTECT_TAG)
--cl_env.frs_top;
cl_env.lex_env = cl_env.frs_top->frs_lex;
cl_env.ihs_top = cl_env.frs_top->frs_ihs;
bds_unwind(cl_env.frs_top->frs_bds_top);
cl_stack_set_index(cl_env.frs_top->frs_sp);

1
src/h/stacks.h
View file

@ -116,7 +116,6 @@ extern ECL_API cl_object ihs_top_function_name(void);
typedef struct ecl_frame {
jmp_buf frs_jmpbuf;
cl_object frs_val;
cl_object frs_lex;
bds_ptr frs_bds_top;
ihs_ptr frs_ihs;
cl_index frs_sp;