mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

GDB: Don't print an object if the type is 0 (cl_start) - that seems unsafe.

Browse source
This commit is contained in:
Philipp Marek 2014-02-26 21:37:51 +01:00
parent efdf97e1ad
commit e3348dafe5
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/util/gdbinit
View file

@ -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