mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-03 03:01:21 +00:00
Replaces inefficient _BIT with _BYTE for InValidLine() array.
This commit is contained in:
parent
81106cb5a2
commit
74467c274b
|
@ -8462,7 +8462,7 @@ SUB ideshowtext
|
||||||
|
|
||||||
IF l <= iden THEN
|
IF l <= iden THEN
|
||||||
DO UNTIL l < UBOUND(InValidLine) 'make certain we have enough InValidLine elements to cover us in case someone scrolls QB64
|
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.
|
LOOP ' verifying the code and growing the array during the IDE passes.
|
||||||
|
|
||||||
a$ = idegetline(l)
|
a$ = idegetline(l)
|
||||||
|
@ -8621,7 +8621,7 @@ SUB ideshowtext
|
||||||
|
|
||||||
COLOR 13
|
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 (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
|
IF INSTR(initialNum.char$, thisChar$) > 0 AND oldChar$ <> ")" AND (INSTR(char.sep$, oldChar$) > 0 OR oldChar$ = "?") THEN
|
||||||
|
|
|
@ -29,7 +29,7 @@ Set_OrderOfOperations
|
||||||
REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG
|
REDIM EveryCaseSet(100), SelectCaseCounter AS _UNSIGNED LONG
|
||||||
DIM ExecLevel(255), ExecCounter AS INTEGER
|
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 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 DefineElse(255) AS _BYTE
|
||||||
DIM SHARED UserDefineCount AS INTEGER
|
DIM SHARED UserDefineCount AS INTEGER
|
||||||
UserDefine(0, 0) = "WINDOWS": UserDefine(0, 1) = "WIN"
|
UserDefine(0, 0) = "WINDOWS": UserDefine(0, 1) = "WIN"
|
||||||
|
@ -1569,7 +1569,7 @@ DO
|
||||||
IF ColorConst = 0 THEN linenumber = linenumber + 1 'dont increment the line counter when adding all the color constants
|
IF ColorConst = 0 THEN 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
|
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
|
LOOP
|
||||||
InValidLine(linenumber) = 0
|
InValidLine(linenumber) = 0
|
||||||
|
|
||||||
|
@ -1668,7 +1668,7 @@ DO
|
||||||
|
|
||||||
IF ExecLevel(ExecCounter) THEN
|
IF ExecLevel(ExecCounter) THEN
|
||||||
DO UNTIL linenumber < UBOUND(InValidLine)
|
DO UNTIL linenumber < UBOUND(InValidLine)
|
||||||
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT
|
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE
|
||||||
LOOP
|
LOOP
|
||||||
|
|
||||||
InValidLine(linenumber) = -1
|
InValidLine(linenumber) = -1
|
||||||
|
|
Loading…
Reference in a new issue