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, 1 insertions, 17 deletions

diff --git a/unwind.h b/unwind.h
index ad7c5f3b..074b79fe 100644
--- a/unwind.h
+++ b/unwind.h
@@ -28,7 +28,7 @@
 typedef union uw_frame uw_frame_t;
 typedef enum uw_frtype {
   UW_BLOCK, UW_CAPTURED_BLOCK, UW_MENV, UW_CATCH, UW_HANDLE,
-  UW_CONT_COPY, UW_GUARD, UW_DBG
+  UW_CONT_COPY, UW_GUARD
 } uw_frtype_t;
 
 struct uw_common {
@@ -87,18 +87,6 @@ struct uw_guard {
   int uw_ok;
 };
 
-struct uw_debug {
-  uw_frame_t *up;
-  uw_frtype_t type;
-  val func;
-  struct args *args;
-  val ub_p_a_pairs;
-  val env;
-  val data;
-  val line;
-  val chr;
-};
-
 #if __aarch64__
 #define UW_FRAME_ALIGN __attribute__ ((aligned (16)))
 #else
@@ -113,7 +101,6 @@ union uw_frame {
   struct uw_handler ha;
   struct uw_cont_copy cp;
   struct uw_guard gu;
-  struct uw_debug db;
 } UW_FRAME_ALIGN;
 
 void uw_push_block(uw_frame_t *, val tag);
@@ -147,9 +134,6 @@ val uw_register_subtype(val sub, val super);
 val uw_exception_subtype_p(val sub, val sup);
 void uw_continue(uw_frame_t *target);
 void uw_push_guard(uw_frame_t *, int uw_ok);
-void uw_push_debug(uw_frame_t *, val func, struct args *,
-                   val ub_p_a_pairs, val env, val data,
-                   val line, val chr);
 void uw_pop_frame(uw_frame_t *);
 void uw_pop_block(uw_frame_t *, val *pret);
 void uw_pop_until(uw_frame_t *);