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

diff --git a/debug.sh b/debug.sh
index fd6795b..4c4f4fd 100755
--- a/debug.sh
+++ b/debug.sh
@@ -19,9 +19,8 @@ echo "break *${RET[0]}" >> gdbinit
 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