QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 15:40:24 +00:00
Code Releases Wiki Activity

Merge remote-tracking branch 'origin/invalidlines-usebyte' into development

Browse source
This commit is contained in:
Fellippe Heitor 2020-01-19 11:24:54 -03:00
parent 016e3d4b73 74467c274b
commit da9169706c
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/ide/ide_methods.bas
View file

@ -8462,7 +8462,7 @@ SUB ideshowtext
IF l <= iden THEN
DO UNTIL l < UBOUND(InValidLine) 'make certain we have enough InValidLine elements to cover us in case someone scrolls QB64
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT ' to the end of a program before the IDE has finished
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE ' to the end of a program before the IDE has finished
LOOP ' verifying the code and growing the array during the IDE passes.
a$ = idegetline(l)
@ -8621,7 +8621,7 @@ SUB ideshowtext
COLOR 13
IF InValidLine(l) AND 1 THEN COLOR 7: GOTO SkipSyntaxHighlighter
IF InValidLine(l) THEN COLOR 7: GOTO SkipSyntaxHighlighter
IF (LEN(oldChar$) > 0 OR m = 1) AND inquote = 0 AND isKeyword = 0 THEN
IF INSTR(initialNum.char$, thisChar$) > 0 AND oldChar$ <> ")" AND (INSTR(char.sep$, oldChar$) > 0 OR oldChar$ = "?") THEN

6
source/qb64.bas
View file

@ -29,7 +29,7 @@ Set_OrderOfOperations
REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG
DIM ExecLevel(255), ExecCounter AS INTEGER
REDIM SHARED UserDefine(1, 100) AS STRING '0 element is the name, 1 element is the string value
REDIM SHARED InValidLine(10000) AS _BIT
REDIM SHARED InValidLine(10000) AS _BYTE
DIM DefineElse(255) AS _BYTE
DIM SHARED UserDefineCount AS INTEGER
UserDefine(0, 0) = "WINDOWS": UserDefine(0, 1) = "WIN"
@ -1557,7 +1557,7 @@ DO
linenumber = linenumber + 1 'dont increment the line counter when adding all the color constants
DO UNTIL linenumber < UBOUND(InValidLine) 'color information flag for each line
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE
LOOP
InValidLine(linenumber) = 0
@ -1664,7 +1664,7 @@ DO
IF ExecLevel(ExecCounter) THEN
DO UNTIL linenumber < UBOUND(InValidLine)
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE
LOOP
InValidLine(linenumber) = -1