debug support: crude debugger removed.

* debug.c (debug_depth, debug_quit_s): Variables removed.
(step_mode, next_depth, breakpoints, last_command, cols):
Static variables removed.
(debug_check): C99 inline instantiation removed.
(help, show_bindings): Static functions removed.
(debug): Function removed.
(debug_set_state): Now takes one int argument, returns int.
It's anticipated that the new debug system will have a
simple on-off switch; there won't be a debug_depth hack.
(debug_restore_state): Function removed.
(debug_init): Emptied.

* debug.h (debug_depth, debug_state_t): Declarations removed.
(debug_enter, debug_leave, debug_return): Macros removed.
(debug_check): Inline function removed.
(debug_set_state): Declaration updated.
(debug_restore_state): Declaration removed.
(debug_frame, debug_end): Macros removed.

* eval.c (do_eval, me_interp_macro): Debugging support scrubbed.

* lisplib.c (lisplib_try_load): Adapt to debug_set_state
interface change.

* match.c (h_fun, do_match_line, v_fun, match_files,
match_fun): Debugging support scrubbed.

* parser.y (parse_once): Adapt to debug_set_state interface
change.

* protsym.c: Regenerated.

* signal.h (debug_depth): Declaration removed.
(EJ_DBG_MEMB, EJ_DBG_SAVE, EJ_DBG_REST): Macros removed.
(EJ_OPT_MEMB, EJ_OPT_SAVE, EJ_OPT_REST): Reduced to
unconditionally empty definitions for future use.

* unwind.c (uw_push_debug): Function removed.

* unwind.h (uw_frtype_t): UW_DBG enum member removed.
(struct uw_debug): struct declaration removed.
(union uw_frame): db member removed.
(uw_push_debug): Declaration removed.

* txr.1: Debugger doc removed.

1 files changed, 0 insertions, 17 deletions

diff --git a/unwind.c b/unwind.c
index 5400c429..f8887c80 100644
--- a/unwind.c
+++ b/unwind.c
@@ -256,23 +256,6 @@ void uw_push_guard(uw_frame_t *fr, int uw_ok)
   uw_stack = fr;
 }
 
-void uw_push_debug(uw_frame_t *fr, val func, struct args *args,
-                   val ub_p_a_pairs, val env, val data,
-                   val line, val chr)
-{
-  memset(fr, 0, sizeof *fr);
-  fr->db.type = UW_DBG;
-  fr->db.func = func;
-  fr->db.args = args;
-  fr->db.ub_p_a_pairs = ub_p_a_pairs;
-  fr->db.env = env;
-  fr->db.data = data;
-  fr->db.line = line;
-  fr->db.chr = chr;
-  fr->db.up = uw_stack;
-  uw_stack = fr;
-}
-
 void uw_pop_frame(uw_frame_t *fr)
 {
   assert (fr == uw_stack);