From 1cbc842a1c38dd8d19643c8454517541ab34ee2c Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Sun, 15 Aug 2021 02:28:11 -0300 Subject: [PATCH] Mere spacing. --- source/qb64.bas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/source/qb64.bas b/source/qb64.bas index fd7005f33..37724e49e 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -8217,17 +8217,17 @@ DO 'if types match then fail IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN IF ts = id.tsize THEN - a$ = "Name already in use (" + varname$ + ")": GOTO errmes + a$ = "Name already in use (" + varname$ + ")": GOTO errmes END IF END IF ELSE IF dimmethod = 0 THEN - a$ = "Name already in use (" + varname$ + ")": GOTO errmes 'explicit over explicit + a$ = "Name already in use (" + varname$ + ")": GOTO errmes 'explicit over explicit ELSE 'if types match then fail IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN IF ts = id.tsize THEN - a$ = "Name already in use (" + varname$ + ")": GOTO errmes + a$ = "Name already in use (" + varname$ + ")": GOTO errmes END IF END IF END IF @@ -8244,7 +8244,7 @@ DO 'if types match then fail IF (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN IF ts = id.tsize THEN - a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes + a$ = "Name already in use (" + varname$ + s2$ + ")": GOTO errmes END IF END IF ELSE