Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: efdf97e)
GDB: Don't print an object if the type is 0 (cl_start) - that seems unsafe.
authorPhilipp Marek <philipp@marek.priv.at>
Wed, 26 Feb 2014 20:37:51 +0000 (21:37 +0100)
committerPhilipp Marek <philipp@marek.priv.at>
Wed, 26 Feb 2014 20:37:51 +0000 (21:37 +0100)
src/util/gdbinit patch | blob | blame | history

diff --git a/src/util/gdbinit b/src/util/gdbinit
index 5233a8a..25ea8cf 100644 (file)
--- a/src/util/gdbinit
+++ b/src/util/gdbinit
@@ -26,9 +26,13 @@ define ecl_print
        #print $cl_debug_stream->stream.object0->base_string.self
        #set $cl_debug_stream->stream.object0->base_string.fillp = 0
 
-       set $cl_debug_imm = 3 & (long)x
-       print (cl_type)($cl_debug_imm ? $cl_debug_imm : x->d.t)
+       set $cl_debug_imm = 3 & (long)$arg0
+       set $cl_debug_type = ($cl_debug_imm ? $cl_debug_imm : $arg0->d.t)
+       print (cl_type) $cl_debug_type
 
-       set $cl_debug_void = si_write_ugly_object( $arg0, $cl_debug_stream)
-       print $cl_debug_stream->stream.object0->base_string.self
+       # not safe for printing
+       if $cl_debug_type > 0
+           set $cl_debug_void = si_write_ugly_object( $arg0, $cl_debug_stream)
+           print $cl_debug_stream->stream.object0->base_string.self
+       end
 end
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)