suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added scheme_raw_pair debug support

Browse Source 
svn: r16277
This commit is contained in:
Kevin Tew 2009-10-07 21:58:45 +00:00
parent bffc3bf93c
commit ea1afc9ff8
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mzscheme/mk-gdbinit.ss
View File

@ -238,6 +238,18 @@ define psoq
printf "cdr=\n" printf "cdr=\n"
psox $CDR $arg1+1 psox $CDR $arg1+1
end end
if ( $OT == <<scheme_raw_pair_type>> )
printf "scheme_pair\n"
set $SSO = ((Scheme_Simple_Object*) ($O))
set $CAR = $SSO->u.pair_val.car
set $CDR = $SSO->u.pair_val.cdr
indent $arg1
printf "car=\n"
psox $CAR $arg1+1
indent $arg1
printf "cdr=\n"
psox $CDR $arg1+1
end
if ( $OT == <<scheme_vector_type>> ) if ( $OT == <<scheme_vector_type>> )
set $vector = ((struct Scheme_Vector *) $O) set $vector = ((struct Scheme_Vector *) $O)
set $size = $vector->size set $size = $vector->size
@ -298,7 +310,7 @@ define psoq
set $name = ($stx->srcloc->src) set $name = ($stx->srcloc->src)
set $name = (char *)((Scheme_Simple_Object *)$name)->u.byte_str_val.string_val set $name = (char *)((Scheme_Simple_Object *)$name)->u.byte_str_val.string_val
indent $arg1 indent $arg1
printf "%s:%i:%i\n", $name, $srcloc->line, $srcloc->col printf " %s:%i:%i\n", $name, $srcloc->line, $srcloc->col
end end
if ( $OT == <<scheme_compilation_top_type>>) if ( $OT == <<scheme_compilation_top_type>>)
printf "scheme_compilation_top_type\n" printf "scheme_compilation_top_type\n"