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

Reset flag wholearrayreference as needed

Browse source
This commit is contained in:
Fellippe Heitor 2022-03-01 22:34:36 -03:00
parent 9f095a1224
commit 4e41877eb0
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/qb64.bas
View file

@ -1453,6 +1453,7 @@ wholeline$ = ""
linefragment$ = ""
idn = 0
arrayprocessinghappened = 0
wholearrayreference = 0
stringprocessinghappened = 0
inputfunctioncalled = 0
subfuncn = 0
@ -3726,6 +3727,7 @@ DO
END IF
arrayprocessinghappened = 0
wholearrayreference = 0
firstelement$ = getelement(a$, 1)
secondelement$ = getelement(a$, 2)
@ -11240,7 +11242,7 @@ DO
END IF
END IF
IF arrayprocessinghappened = 1 THEN arrayprocessinghappened = 0
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
inclinenump$ = ""
IF inclinenumber(inclevel) THEN
@ -22451,7 +22453,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
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
tlayout$ = tl$
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
EXIT SUB
@ -22482,7 +22484,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
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
tlayout$ = tl$
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
EXIT SUB
@ -22509,7 +22511,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
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
tlayout$ = tl$
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)