From 8fecea60a57ed1a28f1c5081d3356d2bb0a458cb Mon Sep 17 00:00:00 2001
From: SteveMcNeill <smcneill@swva.net>
Date: Fri, 2 Aug 2019 15:51:39 -0400
Subject: [PATCH] Added Rho's exemption for $CHECKING:OFF and arrays

As per here:
https://www.qb64.org/forum/index.php?topic=1348.msg105444#msg105444
---
 source/qb64.bas | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/source/qb64.bas b/source/qb64.bas
index a15810a27..d82c7af88 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -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