mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 00:40:26 +00:00
Added Rho's exemption for $CHECKING:OFF and arrays
As per here: https://www.qb64.org/forum/index.php?topic=1348.msg105444#msg105444
This commit is contained in:
parent
a885cdb524
commit
8fecea60a5
|
@ -13653,9 +13653,20 @@ FUNCTION arrayreference$ (indexes$, typ)
|
|||
IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION
|
||||
argi = (elements - curarg) * 4 + 4
|
||||
IF curarg = 1 THEN
|
||||
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+"
|
||||
'RhoSigma (waive to array_check() in $CHECKING:OFF mode)
|
||||
IF NoChecks = 0 THEN
|
||||
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+"
|
||||
ELSE
|
||||
r$ = r$ + "(" + e$ + ")+"
|
||||
END IF
|
||||
|
||||
ELSE
|
||||
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
|
||||
'RhoSigma (waive to array_check() in $CHECKING:OFF mode)
|
||||
IF NoChecks = 0 THEN
|
||||
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
|
||||
ELSE
|
||||
r$ = r$ + "(" + e$ + ")*" + n$ + "[" + str2(argi + 2) + "]+"
|
||||
END IF
|
||||
END IF
|
||||
firsti = i + 1
|
||||
curarg = curarg + 1
|
||||
|
|
Loading…
Reference in a new issue