From 1b861fe26dce85e03bb4e279a66246a1e3b59f22 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 1 Jul 2012 10:01:54 +0200 Subject: [PATCH] ecl_bds_bd replaced with the more expressive ecl_bds_frame --- src/h/external.h | 6 +++--- src/h/legacy.h | 3 ++- src/h/stacks.h | 2 +- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/h/external.h b/src/h/external.h index 41992cc96..ba6ac463d 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -45,9 +45,9 @@ struct cl_env_struct { cl_object bindings_array; #endif cl_index bds_size; - struct ecl_bds_bd *bds_org; - struct ecl_bds_bd *bds_top; - struct ecl_bds_bd *bds_limit; + struct ecl_bds_frame *bds_org; + struct ecl_bds_frame *bds_top; + struct ecl_bds_frame *bds_limit; /* * The Invocation History Stack (IHS) keeps a list of the names of the diff --git a/src/h/legacy.h b/src/h/legacy.h index 68780d5d6..a69381a57 100644 --- a/src/h/legacy.h +++ b/src/h/legacy.h @@ -154,7 +154,8 @@ #define CL_CATCH_ALL_BEGIN ECL_CATCH_ALL_BEGIN #define CL_CATCH_ALL_END ECL_CATCH_ALL_END -typedef struct ecl_bds_bd *bds_ptr; +#define bds_bd ecl_bds_frame +typedef struct ecl_bds_frame *bds_ptr; typedef struct ecl_ihs_frame *ihs_ptr; #define LISTP(x) ECL_LISTP(x) diff --git a/src/h/stacks.h b/src/h/stacks.h index 3ce1ed05c..eb0d11997 100755 --- a/src/h/stacks.h +++ b/src/h/stacks.h @@ -35,7 +35,7 @@ extern "C" { * BIND STACK **************/ -typedef struct ecl_bds_bd { +typedef struct ecl_bds_frame { cl_object symbol; /* symbol */ cl_object value; /* previous value of the symbol */ } *ecl_bds_ptr;