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

Convenience function for printing "cl_object"s from GDB.

Browse source
This commit is contained in:
Philipp Marek 2014-02-26 21:15:05 +01:00
parent 0cdae4ddf0
commit efdf97e1ad
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/util/gdbinit
View file

@ -14,3 +14,21 @@ break FEinvalid_function
set confirm off
handle SIGBUS nostop
handle EXC_BAD_ACCESS nostop pass noprint
macro define NIL (cl_symbols)
macro define T (cl_symbols+1)
define ecl_print
set $cl_debug_stream = ecl_make_string_output_stream(4096, 0)
#set $cl_debug_void = ecl_princ( $arg0, $cl_debug_stream)
#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_void = si_write_ugly_object( $arg0, $cl_debug_stream)
print $cl_debug_stream->stream.object0->base_string.self
end