From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 21 May 2021 11:50:07 +0000 (+1000)
Subject: start with disabled breakpoints
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=0ccd8943de2fe9b92b8f5759ba783916677d1dc6;p=rrq%2Frrqforth.git

start with disabled breakpoints
---

diff --git a/debug.sh b/debug.sh
index 6ecb8ce..5963b30 100755
--- a/debug.sh
+++ b/debug.sh
@@ -3,8 +3,9 @@
 PFX='0x[0-9a-f]* rrqforth.asm:[0-9]*[ ]*'
 
 grep "${PFX}do" rrqforth.map | sed 's/ .*//;s/^/break */' > gdbinit
+NBR=( $(eval "echo {1..$(wc -l < gdbinit)}") )
 
-NBR=$(wc -l < gdbinit)
+for I in ${NBR[@]} ; do echo disable $I ; done >> gdbinit
 
 DS="$(grep "${PFX}DS_TOP:" rrqforth.map | sed 's/ .*//')"