From b5e896d07bd0d5257559fc792636df93e9ba83a5 Mon Sep 17 00:00:00 2001 From: Luke Ceddia Date: Sun, 21 Jun 2020 00:45:55 +1000 Subject: [PATCH] Tentative fix for custom array lbounds with $checking:off --- source/qb64.bas | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index 133d2c73d..9f521a896 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -13270,19 +13270,17 @@ FUNCTION arrayreference$ (indexes$, typ) IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION argi = (elements - curarg) * 4 + 4 IF curarg = 1 THEN - '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$ + ")+" + r$ = r$ + "(" + e$ + ")-" + n$ + "[" + str2(argi) + "]+" END IF ELSE - '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) + "]+" + r$ = r$ + "((" + e$ + ")-" + n$ + "[" + str2(argi) + "])*" + n$ + "[" + str2(argi + 2) + "]+" END IF END IF firsti = i + 1