X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=debug.sh;h=4c4f4fd696e15a42969b083a16c1fe28ae5f097c;hb=4738ba3eabef30343223098bd81ee6ff80fbbafc;hp=b94d7daa2c70e7a6ffe4a920aae5f1210937414a;hpb=b0fb878e59a01c0a746b8740eb4f179dfe1efee9;p=rrq%2Frrqforth.git

diff --git a/debug.sh b/debug.sh
index b94d7da..4c4f4fd 100755
--- a/debug.sh
+++ b/debug.sh
@@ -10,8 +10,8 @@ NBR=$(wc -l < gdbinit)
 I=1
 while [ $I -lt $NBR ] ; do echo disable $I ; I=$((I+1)) ; done >> gdbinit
 
-RET=$(grep -w ret rrqforth.map | sed 's/ .*//')
-echo "break *$RET" >> gdbinit
+RET=( $(grep -w ret rrqforth.map | sed 's/ .*//') )
+echo "break *${RET[0]}" >> gdbinit
 #	;; rax = cfa of called word
 #	;; rsi = cell* of next forth word
 #	;; [$rsp] = from where the call was
@@ -19,9 +19,8 @@ echo "break *$RET" >> 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