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

Fixes case adjustment of array names in UBOUND/LBOUND calls.

Browse source 
FINALLY! <3
This commit is contained in:
FellippeHeitor 2021-08-15 02:30:26 -03:00
parent 1cbc842a1c
commit 38e0ec37d2
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -18735,6 +18735,8 @@ END FUNCTION
FUNCTION fixoperationorder$ (savea$) FUNCTION fixoperationorder$ (savea$)
STATIC uboundlbound AS _BYTE
a$ = savea$ a$ = savea$
IF Debug THEN PRINT #9, "fixoperationorder:in:" + a$ IF Debug THEN PRINT #9, "fixoperationorder:in:" + a$
@ -18743,6 +18745,7 @@ FUNCTION fixoperationorder$ (savea$)
n = numelements(a$) 'n is maintained throughout function n = numelements(a$) 'n is maintained throughout function
IF fooindwel = 1 THEN 'actions to take on initial call only IF fooindwel = 1 THEN 'actions to take on initial call only
uboundlbound = 0
'Quick check for duplicate binary operations 'Quick check for duplicate binary operations
uppercasea$ = UCASE$(a$) 'capitalize it once to reduce calls to ucase over and over uppercasea$ = UCASE$(a$) 'capitalize it once to reduce calls to ucase over and over
@ -19367,7 +19370,7 @@ FUNCTION fixoperationorder$ (savea$)
IF Debug THEN PRINT #9, "found id matching " + f2$ IF Debug THEN PRINT #9, "found id matching " + f2$
IF nextc = 40 THEN '( IF nextc = 40 OR uboundlbound <> 0 THEN '(
'function or array? 'function or array?
IF id.arraytype <> 0 OR id.subfunc = 1 THEN IF id.arraytype <> 0 OR id.subfunc = 1 THEN
@ -19379,6 +19382,7 @@ FUNCTION fixoperationorder$ (savea$)
IF Error_Happened THEN EXIT FUNCTION IF Error_Happened THEN EXIT FUNCTION
IF id.internal_subfunc THEN IF id.internal_subfunc THEN
f2$ = SCase$(RTRIM$(id.cn)) + s$ f2$ = SCase$(RTRIM$(id.cn)) + s$
uboundlbound = (UCASE$(f2$) = "UBOUND" OR UCASE$(f2$) = "LBOUND")
ELSE ELSE
f2$ = RTRIM$(id.cn) + s$ f2$ = RTRIM$(id.cn) + s$
END IF END IF