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

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

@ -238,6 +238,18 @@ define psoq
printf "cdr=\n"
psox $CDR $arg1+1
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>> )
set $vector = ((struct Scheme_Vector *) $O)
set $size = $vector->size