X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=debug.sh;h=9b64b4970021df19eeedde13b0ca9530669bb21b;hb=8a2d8dc0e8ff7f3e6b402d2d496169d19d032db5;hp=a665e0249c6b5692df2eae70ded05b5d2dc1b243;hpb=ad3cc266a22476c9a7022a8c8377dc770810a61a;p=rrq%2Frrqforth.git

diff --git a/debug.sh b/debug.sh
index a665e02..9b64b49 100755
--- 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