QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 18:00:24 +00:00
Code Releases Wiki Activity

Mere spacing.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-15 02:28:11 -03:00
parent b1f53bedf3
commit 1cbc842a1c
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/qb64.bas
View file

@ -8217,17 +8217,17 @@ DO
'if types match then fail '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 (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN
IF ts = id.tsize 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 END IF
ELSE ELSE
IF dimmethod = 0 THEN 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 ELSE
'if types match then fail '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 (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN
IF ts = id.tsize 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 END IF
END IF END IF
@ -8244,7 +8244,7 @@ DO
'if types match then fail '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 (id.arraytype AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) = (t AND (ISFLOAT + ISUDT + 511 + ISUNSIGNED + ISSTRING + ISFIXEDLENGTH)) THEN
IF ts = id.tsize 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
END IF END IF
ELSE ELSE