mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Properly colorizes 32BIT and 64BIT in $IF blocks.
This commit is contained in:
parent
5a74a1a571
commit
774707c584
|
@ -8380,6 +8380,13 @@ SUB ideshowtext
|
||||||
IF isnumber(checkKeyword$) THEN
|
IF isnumber(checkKeyword$) THEN
|
||||||
is_Number = -1
|
is_Number = -1
|
||||||
isKeyword = LEN(checkKeyword$)
|
isKeyword = LEN(checkKeyword$)
|
||||||
|
ELSEIF INSTR(UserDefineList$, "@" + UCASE$(checkKeyword$)) > 0 THEN
|
||||||
|
'keep checking
|
||||||
|
FOR i = i TO LEN(a2$)
|
||||||
|
IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): GOTO keywordAcquired
|
||||||
|
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
|
||||||
|
NEXT
|
||||||
|
GOTO keywordAcquired
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
GOTO setOldChar
|
GOTO setOldChar
|
||||||
|
@ -8394,6 +8401,7 @@ SUB ideshowtext
|
||||||
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
|
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
|
||||||
NEXT
|
NEXT
|
||||||
IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar
|
IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar
|
||||||
|
keywordAcquired:
|
||||||
checkKeyword$ = UCASE$(checkKeyword$)
|
checkKeyword$ = UCASE$(checkKeyword$)
|
||||||
IF INSTR(listOfKeywords$, "@" + checkKeyword$ + "@") > 0 OR _
|
IF INSTR(listOfKeywords$, "@" + checkKeyword$ + "@") > 0 OR _
|
||||||
(qb64prefix_set = 1 AND INSTR(listOfKeywords$, "@_" + checkKeyword$ + "@") > 0) THEN
|
(qb64prefix_set = 1 AND INSTR(listOfKeywords$, "@_" + checkKeyword$ + "@") > 0) THEN
|
||||||
|
|
Loading…
Reference in a new issue