Merge pull request #552 from QB64-Phoenix-Edition/infinite-loop-fix

Infinite error loop fix
QB64-Phoenix-Edition · Oct 6, 2024 · 6fdb33a · 6fdb33a
2 parents 14ac2eb + 6e204ef
commit 6fdb33a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
@@ -1031,6 +1031,7 @@ FUNCTION ide2 (ignore)
                             END IF
                         END IF
 
+                        errininc = INSTR(a$, "included")
                         printWrapStatus x, y, x, a$
 
                         IF l <> 0 AND idecy <> l THEN
@@ -1732,6 +1733,7 @@ FUNCTION ide2 (ignore)
                     'for non-include changes we only need to rebuild the EXE
                     IF edCHG THEN idecompiled = 0: GOTO mustGenerateExe
                 ELSE
+                    IF failed = 1 AND errininc = 0 THEN GOTO specialchar
                     edReCompile:
                     ideautorun = 0: startPausedPending = 1
                     idechangemade = 1: statusarealink = 0
@@ -21030,6 +21032,9 @@ SUB ExportCodeAs (docFormat$)
         la$ = LTRIM$(StrReplace$(MID$(sTxt$, sPos&, 100), CHR$(9), " "))
         SELECT EVERYCASE page$
             CASE "$END": IF UCASE$(LEFT$(la$, 2)) = "IF" THEN me$ = me$ + " " + LEFT$(la$, 2): page$ = "$END IF": in% = -1
+            CASE "_CONSOLECURSOR"
+                IF UCASE$(LEFT$(la$, 5)) = "_HIDE" THEN kw$ = kw$ + " " + LEFT$(la$, 5): in% = -1
+                IF UCASE$(LEFT$(la$, 5)) = "_SHOW" THEN kw$ = kw$ + " " + LEFT$(la$, 5): in% = -1
             CASE "CALL": IF UCASE$(LEFT$(la$, 8)) = "ABSOLUTE" THEN kw$ = kw$ + " " + LEFT$(la$, 8): page$ = "CALL ABSOLUTE": in% = -1
             CASE "CASE"
                 IF UCASE$(LEFT$(la$, 2)) = "IS" THEN kw$ = kw$ + " " + LEFT$(la$, 2): page$ = "CASE IS": fu% = -1: bo% = -1: in% = -1