From e2118a041353a9d85e1c56051335f8ac0df101fd Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 21 Jan 2012 17:26:53 -0800 Subject: * 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. --- debug.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'debug.h') diff --git a/debug.h b/debug.h index 935746da..cfa3c3ce 100644 --- a/debug.h +++ b/debug.h @@ -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 { \ -- cgit v1.2.3