bug fix
authorRalph Ronnquist <ralph.ronnquist@gmail.com>
Sun, 30 May 2021 04:34:54 +0000 (14:34 +1000)
committerRalph Ronnquist <ralph.ronnquist@gmail.com>
Sun, 30 May 2021 04:34:54 +0000 (14:34 +1000)
debug.sh

index b94d7daa2c70e7a6ffe4a920aae5f1210937414a..fd6795b88d75b402a173550376def06d0ac2c688 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
 
-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