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
print (void*) \$rsp
print (((char*)(*(((void**)\$rax)-2)))+32)
print (void*) \$rsi
-continue
end
EOF