From 84c9902ed058abda3dc4cd17c176befb4f184a87 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 8 Jun 2008 19:59:25 +0200 Subject: [PATCH] Remove useless field frs_lex from the frame stack records. --- src/c/stacks.d | 2 -- src/h/stacks.h | 1 - 2 files changed, 3 deletions(-) diff --git a/src/c/stacks.d b/src/c/stacks.d index eb6f4a7a5..663d6e606 100644 --- a/src/c/stacks.d +++ b/src/c/stacks.d @@ -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); diff --git a/src/h/stacks.h b/src/h/stacks.h index 335b583c2..53636a2fb 100644 --- a/src/h/stacks.h +++ b/src/h/stacks.h @@ -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;