X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=debug.sh;h=5d630ee02aa8a8773545a93819744559e6f4a1af;hb=a625fdad0d2d7723188c78b761d7ea8294464017;hp=fd6795b88d75b402a173550376def06d0ac2c688;hpb=a601d88f456cab4b87923c60cefefae9dcc6cb36;p=rrq%2Frrqforth.git

diff --git a/debug.sh b/debug.sh
index fd6795b..5d630ee 100755
--- a/debug.sh
+++ b/debug.sh
@@ -15,16 +15,18 @@ echo "break *${RET[0]}" >> gdbinit
 #	;; rax = cfa of called word
 #	;; rsi = cell* of next forth word
 #	;; [$rsp] = from where the call was
-
 cat <<EOF >> gdbinit
 commands $((NBR+1))
 print (void*) \$rsp
-print (((char*)(*(((void**)\$rax)-2)))+32)
 print (void*) \$rsi
-continue
+print (char*)((*((void**)(*((void**)\$rsi)-16)))+32)
 end
 EOF
 
+echo disable $NBR >> gdbinit
+echo disable $((NBR+1)) >> gdbinit
+
+
 DS="$(grep "${PFX}DS_TOP:" rrqforth.map | sed 's/ .*//')"
 RS="$(grep "${PFX}RS_TOP:" rrqforth.map | sed 's/ .*//')"
 cat <<EOF >> gdbinit