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

mk-gdbinit.rkt improvements

Browse Source
This commit is contained in:
Kevin Tew 2011-03-31 12:58:47 -06:00
parent 4feebef9ef
commit f000517d42
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/racket/mk-gdbinit.rkt
View File

@ -34,11 +34,15 @@ end
define psonn define psonn
set $O = ((Scheme_Object*) ($arg0)) set $O = ((Scheme_Object*) ($arg0))
if (((int)$arg0) == 0x0)
set $OT = 0
else
if (((int)$arg0) & 0x1) if (((int)$arg0) & 0x1)
set $OT = <<scheme_integer_type>> set $OT = <<scheme_integer_type>>
else else
set $OT = $O->type set $OT = $O->type
end end
end
printf "Scheme_Object %p type=%d", $O, $OT printf "Scheme_Object %p type=%d", $O, $OT
end end
document psonn document psonn
@ -286,12 +290,23 @@ define psoq
indent $arg1 indent $arg1
printf "path=" printf "path="
psox $modidx->path $arg1+1 psox $modidx->path $arg1+1
printf "\n"
indent $arg1 indent $arg1
printf "base=" printf "base="
psox $modidx->base $arg1+1 psox $modidx->base $arg1+1
printf "\n"
indent $arg1 indent $arg1
printf "resolved=" printf "resolved="
psox $modidx->resolved $arg1+1 psox $modidx->resolved $arg1+1
printf "\n"
indent $arg1
printf "shift_cache="
psox $modidx->shift_cache $arg1+1
printf "\n"
indent $arg1
printf "cache_next="
psox $modidx->cache_next $arg1+1
printf "\n"
end end
if ( $OT == <<scheme_namespace_type>>) if ( $OT == <<scheme_namespace_type>>)
printf "scheme_namespace_type\n" printf "scheme_namespace_type\n"