diff options
Diffstat (limited to 'libguile/stacks.h')
-rw-r--r-- | libguile/stacks.h | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/libguile/stacks.h b/libguile/stacks.h index fda1f1b00..b596f87cf 100644 --- a/libguile/stacks.h +++ b/libguile/stacks.h @@ -55,24 +55,29 @@ /* {Frames and stacks} */ -typedef struct scm_info_frame { +typedef struct scm_info_frame_t { /* SCM flags; */ scm_bits_t flags; SCM source; SCM proc; SCM args; -} scm_info_frame; -#define SCM_FRAME_N_SLOTS (sizeof (scm_info_frame) / sizeof (SCM)) +} scm_info_frame_t; +#define SCM_FRAME_N_SLOTS (sizeof (scm_info_frame_t) / sizeof (SCM)) -#define SCM_STACK(obj) ((scm_stack *) SCM_STRUCT_DATA (obj)) +#define SCM_STACK(obj) ((scm_stack_t *) SCM_STRUCT_DATA (obj)) #define SCM_STACK_LAYOUT "pwuourpW" -typedef struct scm_stack { +typedef struct scm_stack_t { SCM id; /* Stack id */ - scm_info_frame *frames; /* Info frames */ - unsigned int length; /* Stack length */ - unsigned int tail_length; - scm_info_frame tail[1]; -} scm_stack; + scm_info_frame_t *frames; /* Info frames */ + scm_bits_t length; /* Stack length */ + scm_bits_t tail_length; + scm_info_frame_t tail[1]; +} scm_stack_t; + +#if (SCM_DEBUG_DEPRECATED == 0) +# define scm_info_frame scm_info_frame_t +# define scm_stack scm_stack_t +#endif extern SCM scm_stack_type; |