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

Fix capitalization of arrays in U/LBound calls

Browse source 
Previous fix needed to be reverted; this is the new
attempt at fixing the issue.
This commit is contained in:
Fellippe Heitor 2022-02-22 23:51:04 -03:00
parent 7bad19cb94
commit 55c365763c
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -19548,7 +19548,9 @@ FUNCTION fixoperationorder$ (savea$)
IF Error_Happened THEN EXIT FUNCTION
IF id.internal_subfunc THEN
f2$ = SCase$(RTRIM$(id.cn)) + s$
uboundlbound = (UCASE$(f2$) = "UBOUND" OR UCASE$(f2$) = "LBOUND")
IF (UCASE$(f2$) = "UBOUND" OR UCASE$(f2$) = "LBOUND") THEN
uboundlbound = 2
END IF
ELSE
f2$ = RTRIM$(id.cn) + s$
END IF
@ -19755,7 +19757,7 @@ FUNCTION fixoperationorder$ (savea$)
END IF
IF c = 41 OR c = 125 THEN ')}
uboundlbound = 0
IF uboundlbound THEN uboundlbound = uboundlbound - 1
b = b - 1
IF b = 0 THEN