DO .. LOOP extension: DO LEAVE LOOP +LOOP

TG9541 · Dec 11, 2016 · b8e91f3 · b8e91f3
1 parent 4777cbe
commit b8e91f3
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 0 deletions.
diff --git a/C0135/globconf.inc b/C0135/globconf.inc
@@ -13,6 +13,7 @@
         HAS_BACKGROUND   = 1    ; Background Forth task (TIM2 ticker)
         HAS_CPNVM        = 1    ; Can compile to Flash, always interpret to RAM 
         HAS_DOES         = 1    ; CREATE-DOES> extension
+        HAS_DOLOOP       = 1    ; DO .. LOOP extension: DO LEAVE LOOP +LOOP
 
         CASEINSENSITIVE  = 1    ; Case insensitive dictionary search
         SPEEDOVERSIZE    = 0    ; Speed-over-size in core words: ROT - = < 

diff --git a/CORE/globconf.inc b/CORE/globconf.inc
@@ -10,6 +10,7 @@
         HAS_BACKGROUND   = 0    ; Background Forth task (TIM2 ticker)
         HAS_CPNVM        = 0    ; Can compile to Flash, always interpret to RAM 
         HAS_DOES         = 0    ; CREATE-DOES> extension
+        HAS_DOLOOP       = 0    ; DO .. LOOP extension: DO LEAVE LOOP +LOOP
 
         CASEINSENSITIVE  = 0    ; Case insensitive dictionary search
         SPEEDOVERSIZE    = 0    ; Speed-over-size in core words: ROT - = < 

diff --git a/MINDEV/globconf.inc b/MINDEV/globconf.inc
@@ -11,6 +11,8 @@
         HAS_BACKGROUND   = 1    ; Background Forth task (TIM2 ticker)
         HAS_CPNVM        = 1    ; Can compile to Flash, always interpret to RAM 
         HAS_DOES         = 1    ; CREATE-DOES> extension
+        HAS_DOLOOP       = 1    ; DO .. LOOP extension: DO LEAVE LOOP +LOOP
+
 
         CASEINSENSITIVE  = 1    ; Case insensitive dictionary search
         SPEEDOVERSIZE    = 0    ; Speed-over-size in core words: ROT - = < 

diff --git a/W1209/globconf.inc b/W1209/globconf.inc
@@ -20,6 +20,7 @@
         HAS_BACKGROUND   = 1    ; Background Forth task (TIM2 ticker)
         HAS_CPNVM        = 1    ; Can compile to Flash, always interpret to RAM 
         HAS_DOES         = 1    ; CREATE-DOES> extension
+        HAS_DOLOOP       = 1    ; DO .. LOOP extension: DO LEAVE LOOP +LOOP
 
         CASEINSENSITIVE  = 1    ; Case insensitive dictionary search
         SPEEDOVERSIZE    = 0    ; Speed-over-size in core words: ROT - = <