QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 09:20:38 +00:00
Code Issues Releases Wiki Activity

Replaces inefficient _BIT with _BYTE for InValidLine() array.

Browse source
This commit is contained in:
FellippeHeitor 2020-01-18 03:49:23 -03:00
parent 81106cb5a2
commit 74467c274b
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"
@ -1569,7 +1569,7 @@ DO
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
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BIT
REDIM _PRESERVE InValidLine(UBOUND(InValidLine) + 1000) AS _BYTE
LOOP
InValidLine(linenumber) = 0
@ -1668,7 +1668,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