QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-09-28 11:17:47 +00:00
Code Releases Wiki Activity

Revert "Reset flag wholearrayreference as needed"

Browse source 
This reverts commit 4e41877eb0.
This commit is contained in:
Fellippe Heitor 2022-03-01 23:17:45 -03:00
parent dfa4998b6b
commit 42c9e7327f
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/qb64.bas
View file

@ -1453,7 +1453,6 @@ wholeline$ = ""
linefragment$ = ""
idn = 0
arrayprocessinghappened = 0
wholearrayreference = 0
stringprocessinghappened = 0
inputfunctioncalled = 0
subfuncn = 0
@ -3727,7 +3726,6 @@ DO
END IF
arrayprocessinghappened = 0
wholearrayreference = 0
firstelement$ = getelement(a$, 1)
secondelement$ = getelement(a$, 2)
@ -11242,7 +11240,7 @@ DO
END IF
END IF
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
IF arrayprocessinghappened = 1 THEN arrayprocessinghappened = 0
inclinenump$ = ""
IF inclinenumber(inclevel) THEN
@ -22453,7 +22451,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
IF Error_Happened THEN EXIT SUB
PRINT #12, "qbs_set(" + r$ + "," + e$ + ");"
PRINT #12, cleanupstringprocessingcall$ + "0);"
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
IF arrayprocessinghappened THEN arrayprocessinghappened = 0
tlayout$ = tl$
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
EXIT SUB
@ -22484,7 +22482,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
PRINT #12, "}"
END IF
IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);": stringprocessinghappened = 0
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
IF arrayprocessinghappened THEN arrayprocessinghappened = 0
tlayout$ = tl$
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
EXIT SUB
@ -22511,7 +22509,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
l$ = r$ + "=" + e$ + ";"
PRINT #12, l$
IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);": stringprocessinghappened = 0
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
IF arrayprocessinghappened THEN arrayprocessinghappened = 0
tlayout$ = tl$
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)