projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable all breakpoints initially
[rrq/rrqforth.git]
/
debug.sh
diff --git
a/debug.sh
b/debug.sh
index 4c4f4fd696e15a42969b083a16c1fe28ae5f097c..5d630ee02aa8a8773545a93819744559e6f4a1af 100755
(executable)
--- a/
debug.sh
+++ b/
debug.sh
@@
-15,7
+15,6
@@
echo "break *${RET[0]}" >> gdbinit
# ;; rax = cfa of called word
# ;; rsi = cell* of next forth word
# ;; [$rsp] = from where the call was
# ;; 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
cat <<EOF >> gdbinit
commands $((NBR+1))
print (void*) \$rsp
@@
-24,6
+23,10
@@
print (char*)((*((void**)(*((void**)\$rsi)-16)))+32)
end
EOF
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
DS="$(grep "${PFX}DS_TOP:" rrqforth.map | sed 's/ .*//')"
RS="$(grep "${PFX}RS_TOP:" rrqforth.map | sed 's/ .*//')"
cat <<EOF >> gdbinit