QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-19 15:35:01 +00:00
Code Issues Releases Wiki Activity

Source formatting

Browse source
This commit is contained in:
Luke Ceddia 2024-06-27 19:39:20 +10:00
parent 6abe235c41
commit 854b907aff
No known key found for this signature in database
GPG key ID: 319344384A0759B0
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/qb64pe.bas
View file

@ -18805,7 +18805,7 @@ END FUNCTION
'Main entry point for fixoperationorder
FUNCTION fixoperationorder$ (savea$)
fixoperationorder = fixoperationorder_rec$(savea$, FALSE)
end function
END FUNCTION
'Recursive entry point for fixoperationorder
FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
@ -19500,7 +19500,7 @@ FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
END IF 'nextc "("
IF nextc <> 40 THEN 'not "(" : simple variable, zero-argument function or bare array
IF (not bare_arrays and id.t <> 0) OR id.subfunc = 1 or (bare_arrays and id.arraytype <> 0) THEN 'simple variable or zero-argument function or bare array
IF (NOT bare_arrays AND id.t <> 0) OR id.subfunc = 1 OR (bare_arrays AND id.arraytype <> 0) THEN 'simple variable or zero-argument function or bare array
IF id.t AND ISUDT THEN
'note: it may or may not be followed by a period (eg. if whole udt is being referred to)
@ -19677,11 +19677,11 @@ FUNCTION fixoperationorder_rec$ (savea$, bare_arrays)
IF b = 0 THEN
foopassit:
IF p1 <> i THEN
bare_array_context = false
if p1 > 2 then
bare_array_context = FALSE
IF p1 > 2 THEN
token_before_paren$ = getelement(a$, p1 - 2)
bare_array_context = (token_before_paren$ = "UBOUND" or token_before_paren$ = "LBOUND")
end if
bare_array_context = (token_before_paren$ = "UBOUND" OR token_before_paren$ = "LBOUND")
END IF
foo$ = fixoperationorder_rec(getelements(a$, p1, i - 1), bare_array_context)
IF Error_Happened THEN EXIT FUNCTION
IF LEN(foo$) THEN