# ;; 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