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

ecl_bds_bd replaced with the more expressive ecl_bds_frame

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-01 10:01:54 +02:00
parent aa41c02196
commit 1b861fe26d
3 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/h/external.h
View file

@ -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

3
src/h/legacy.h
View file

@ -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)

2
src/h/stacks.h
View file

@ -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;