projects
/
rrq
/
rrqforth.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bug fix for lpar comment
[rrq/rrqforth.git]
/
debug.sh
diff --git
a/debug.sh
b/debug.sh
index b94d7daa2c70e7a6ffe4a920aae5f1210937414a..9b64b4970021df19eeedde13b0ca9530669bb21b 100755
(executable)
--- 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
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
# ;; rax = cfa of called word
# ;; rsi = cell* of next forth word
# ;; [$rsp] = from where the call was
@@
-21,7
+21,6
@@
commands $((NBR+1))
print (void*) \$rsp
print (((char*)(*(((void**)\$rax)-2)))+32)
print (void*) \$rsi
print (void*) \$rsp
print (((char*)(*(((void**)\$rax)-2)))+32)
print (void*) \$rsi
-continue
end
EOF
end
EOF