diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2012-01-21 17:26:53 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2012-01-21 17:26:53 -0800 |
| commit | e2118a041353a9d85e1c56051335f8ac0df101fd (patch) | |
| tree | f4501d9a9f82eba38a75e4f9f666e46a659c61d0 /debug.h | |
| parent | 0cbd46033d0ef707a856c78e735dbf41a6fd7faa (diff) | |
| download | txr-e2118a041353a9d85e1c56051335f8ac0df101fd.tar.gz txr-e2118a041353a9d85e1c56051335f8ac0df101fd.tar.bz2 txr-e2118a041353a9d85e1c56051335f8ac0df101fd.zip | |
* debug.c (help): Added missing help for w command.
(debug): In backtrace, show the renaming pairs for unbound
variables (up_p_a_pairs) if they are present.
* debug.h (debug_begin): Renamed to debug_frame.
* eval.c (eval): Wrap debug_begin/debug_end around function dispatch,
so TXR Lisp functions are included in backtraces.
* match.c (h_fun): Follow rename of debug_begin to debug_frame.
Pass in evaluated args, not the original ones.
(v_fun): Likewise.
* unwind.c (uw_push_debug): bindings argument renamed to env.
Bugfix: args argument was being assigned to ub_p_a_pairs.
* unwind.h (struct uw_debug): Member bindings renamed to env.
(uw_push_debug): Declaration updated.
Diffstat (limited to 'debug.h')
| -rw-r--r-- | debug.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -30,7 +30,7 @@ extern val debug_block_s; val debug(val form, val bindings, val data, val line, val chr); -#ifdef CONFIG_DEBUG_SUPPORT +#if CONFIG_DEBUG_SUPPORT #define debug_enter \ { \ @@ -58,7 +58,7 @@ INLINE val debug_check(val form, val bindings, val data, val line, val chr) void debug_init(void); -#define debug_begin(FUNC, ARGS, UBP, \ +#define debug_frame(FUNC, ARGS, UBP, \ BINDINGS, DATA, \ LINE, CHR) \ do { \ @@ -89,7 +89,7 @@ INLINE val debug_check(val form, val bindings, val data, val line, val chr) return nil; } -#define debug_begin(FUNC, ARGS, UBP, \ +#define debug_frame(FUNC, ARGS, UBP, \ BINDINGS, DATA, \ LINE, CHR) \ do { \ |