From 514e41bdcee363daf935722ffa26ab9f4dee1e37 Mon Sep 17 00:00:00 2001 From: Samuel Gomes Date: Mon, 8 May 2023 01:46:41 +0530 Subject: [PATCH] Correct error message --- source/qb64pe.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/qb64pe.bas b/source/qb64pe.bas index bda737ef1..0e0f74915 100644 --- a/source/qb64pe.bas +++ b/source/qb64pe.bas @@ -16780,13 +16780,13 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG) IF curarg = 2 THEN ' It must be an array IF (sourcetyp AND ISREFERENCE) = 0 OR (sourcetyp AND ISARRAY) = 0 THEN - Give_Error "Expected INTEGER array-name" + Give_Error "Expected LONG array-name" EXIT FUNCTION END IF ' Cannot be one of these IF (sourcetyp AND ISSTRING) OR (sourcetyp AND ISFLOAT) OR (sourcetyp AND ISOFFSET) OR (sourcetyp AND ISUDT) OR (sourcetyp AND 511) <> 32 THEN - Give_Error "Expected INTEGER array-name" + Give_Error "Expected LONG array-name" EXIT FUNCTION END IF