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

Tentative fix for custom array lbounds with $checking:off

Browse source
This commit is contained in:
Luke Ceddia 2020-06-21 00:45:55 +10:00
parent 930d85a540
commit b5e896d07b
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -13270,19 +13270,17 @@ FUNCTION arrayreference$ (indexes$, typ)
IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION
argi = (elements - curarg) * 4 + 4 argi = (elements - curarg) * 4 + 4
IF curarg = 1 THEN IF curarg = 1 THEN
'RhoSigma (waive to array_check() in $CHECKING:OFF mode)
IF NoChecks = 0 THEN IF NoChecks = 0 THEN
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+" r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+"
ELSE ELSE
r$ = r$ + "(" + e$ + ")+" r$ = r$ + "(" + e$ + ")-" + n$ + "[" + str2(argi) + "]+"
END IF END IF
ELSE ELSE
'RhoSigma (waive to array_check() in $CHECKING:OFF mode)
IF NoChecks = 0 THEN IF NoChecks = 0 THEN
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+" r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
ELSE ELSE
r$ = r$ + "(" + e$ + ")*" + n$ + "[" + str2(argi + 2) + "]+" r$ = r$ + "((" + e$ + ")-" + n$ + "[" + str2(argi) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
END IF END IF
END IF END IF
firsti = i + 1 firsti = i + 1