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

Correct error message

Browse source
This commit is contained in:
Samuel Gomes 2023-05-08 01:46:41 +05:30
parent 290081ddb6
commit 514e41bdce
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/qb64pe.bas
View file

@ -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