From 1232f5dbf8e68f9c3a7fe77360c0b950ecff3eac Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 13 Nov 2011 21:19:43 -0800 Subject: Adding a debugger. This is an experimental prototype. * Makefile (OBJS): New object file debug.o. * dep.mk: Updated. * match.c (h_fun): Use debug_begin and debug_end macros to set up a debug frame for backtracing. (match_line, match_files): Call debug_check to give debugger a chance to instrument call. (v_fun): Use debug_begin and debug_end macros to set up a debug frame for backtracing. Call debug_check to give debugger a chance to instrument call. * stream.c (struct strm_ops): New function pointer, flush. (stdio_maybe_write_error): Wrong word in error message corrected. (stdio_flush): New static function. (stdio_ops, pipe_ops): New function entered into tables. (flush_stream): New function. * stream.h (flush_stream): Declared. * txr.c (help): New options documented. (main): call to debug_init added. New debug options parsed and opt_debugger set accordingly. * unwind.c (uw_push_debug, uw_current_frame): New function. * unwind.h (uw_frtype): New enumeration member UW_DBG. (struct uw_debug): New frame variant. (union uw_frame): New member, db. (uw_push_debug, uw_current_frame): Declared, * debug.c: New file. * debug.h: New file. --- stream.h | 1 + 1 file changed, 1 insertion(+) (limited to 'stream.h') diff --git a/stream.h b/stream.h index 161be5da..8dbc0dd8 100644 --- a/stream.h +++ b/stream.h @@ -45,5 +45,6 @@ val format(val stream, val string, ...); val put_string(val stream, val string); val put_line(val stream, val string); val put_char(val stream, val ch); +val flush_stream(val stream); void stream_init(void); -- cgit v1.2.3