diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 19:50:43 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-14 19:50:43 +0000 |
commit | 92c2555f6972b5fbc2236fe486e9432040b43812 (patch) | |
tree | e439c8a06c62d74e4ef377a3fbe94783f2943a90 /libguile/debug.h | |
parent | 51fa276692198eb140365f60e516fbc8ff547f10 (diff) | |
download | guile-92c2555f6972b5fbc2236fe486e9432040b43812.tar.gz |
replace "scm_*_t" with "scm_t_*".
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index 6a49a3aed..10a0cf69c 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -69,7 +69,7 @@ /* scm_debug_opts is defined in eval.c. */ -extern scm_option_t scm_debug_opts[]; +extern scm_t_option scm_debug_opts[]; #define SCM_CHEAPTRAPS_P scm_debug_opts[0].val #define SCM_BREAKPOINTS_P scm_debug_opts[1].val @@ -109,30 +109,30 @@ do {\ /* {Evaluator} */ -typedef union scm_debug_info_t +typedef union scm_t_debug_info { struct { SCM exp, env; } e; struct { SCM proc, args; } a; SCM id; -} scm_debug_info_t; +} scm_t_debug_info; extern long scm_debug_eframe_size; -typedef struct scm_debug_frame_t +typedef struct scm_t_debug_frame { - struct scm_debug_frame_t *prev; + struct scm_t_debug_frame *prev; long status; - scm_debug_info_t *vect; - scm_debug_info_t *info; -} scm_debug_frame_t; + scm_t_debug_info *vect; + scm_t_debug_info *info; +} scm_t_debug_frame; #if (SCM_DEBUG_DEPRECATED == 0) -# define scm_debug_info scm_debug_info_t -# define scm_debug_frame scm_debug_frame_t +# define scm_debug_info scm_t_debug_info +# define scm_debug_frame scm_t_debug_frame #endif #ifndef USE_THREADS -extern scm_debug_frame_t *scm_last_debug_frame; +extern scm_t_debug_frame *scm_last_debug_frame; #endif #define SCM_EVALFRAME (0L << 11) @@ -170,7 +170,7 @@ extern scm_debug_frame_t *scm_last_debug_frame; /* {Debug Objects} */ -extern scm_bits_t scm_tc16_debugobj; +extern scm_t_bits scm_tc16_debugobj; #define SCM_DEBUGOBJP(x) SCM_TYP16_PREDICATE (scm_tc16_debugobj, x) #define SCM_DEBUGOBJ_FRAME(x) SCM_CELL_WORD_1 (x) @@ -179,7 +179,7 @@ extern scm_bits_t scm_tc16_debugobj; /* {Memoized Source} */ -extern scm_bits_t scm_tc16_memoized; +extern scm_t_bits scm_tc16_memoized; #define SCM_MEMOIZEDP(x) SCM_TYP16_PREDICATE (scm_tc16_memoized, x) #define SCM_MEMOIZED_EXP(x) SCM_CAR (SCM_CELL_OBJECT_1 (x)) @@ -203,7 +203,7 @@ extern SCM scm_with_traps (SCM thunk); extern SCM scm_evaluator_traps (SCM setting); extern SCM scm_debug_options (SCM setting); extern SCM scm_unmemoize (SCM memoized); -extern SCM scm_make_debugobj (scm_debug_frame_t *debug); +extern SCM scm_make_debugobj (scm_t_debug_frame *debug); extern void scm_init_debug (void); #ifdef GUILE_DEBUG |