mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
Revert "Reset flag wholearrayreference
as needed"
This reverts commit 4e41877eb0
.
This commit is contained in:
parent
dfa4998b6b
commit
42c9e7327f
1 changed files with 4 additions and 6 deletions
|
@ -1453,7 +1453,6 @@ wholeline$ = ""
|
||||||
linefragment$ = ""
|
linefragment$ = ""
|
||||||
idn = 0
|
idn = 0
|
||||||
arrayprocessinghappened = 0
|
arrayprocessinghappened = 0
|
||||||
wholearrayreference = 0
|
|
||||||
stringprocessinghappened = 0
|
stringprocessinghappened = 0
|
||||||
inputfunctioncalled = 0
|
inputfunctioncalled = 0
|
||||||
subfuncn = 0
|
subfuncn = 0
|
||||||
|
@ -3727,7 +3726,6 @@ DO
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
arrayprocessinghappened = 0
|
arrayprocessinghappened = 0
|
||||||
wholearrayreference = 0
|
|
||||||
|
|
||||||
firstelement$ = getelement(a$, 1)
|
firstelement$ = getelement(a$, 1)
|
||||||
secondelement$ = getelement(a$, 2)
|
secondelement$ = getelement(a$, 2)
|
||||||
|
@ -11242,7 +11240,7 @@ DO
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
|
IF arrayprocessinghappened = 1 THEN arrayprocessinghappened = 0
|
||||||
|
|
||||||
inclinenump$ = ""
|
inclinenump$ = ""
|
||||||
IF inclinenumber(inclevel) THEN
|
IF inclinenumber(inclevel) THEN
|
||||||
|
@ -22453,7 +22451,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
|
||||||
IF Error_Happened THEN EXIT SUB
|
IF Error_Happened THEN EXIT SUB
|
||||||
PRINT #12, "qbs_set(" + r$ + "," + e$ + ");"
|
PRINT #12, "qbs_set(" + r$ + "," + e$ + ");"
|
||||||
PRINT #12, cleanupstringprocessingcall$ + "0);"
|
PRINT #12, cleanupstringprocessingcall$ + "0);"
|
||||||
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
|
IF arrayprocessinghappened THEN arrayprocessinghappened = 0
|
||||||
tlayout$ = tl$
|
tlayout$ = tl$
|
||||||
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
|
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
|
@ -22484,7 +22482,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
|
||||||
PRINT #12, "}"
|
PRINT #12, "}"
|
||||||
END IF
|
END IF
|
||||||
IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);": stringprocessinghappened = 0
|
IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);": stringprocessinghappened = 0
|
||||||
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
|
IF arrayprocessinghappened THEN arrayprocessinghappened = 0
|
||||||
tlayout$ = tl$
|
tlayout$ = tl$
|
||||||
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
|
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
|
@ -22511,7 +22509,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
|
||||||
l$ = r$ + "=" + e$ + ";"
|
l$ = r$ + "=" + e$ + ";"
|
||||||
PRINT #12, l$
|
PRINT #12, l$
|
||||||
IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);": stringprocessinghappened = 0
|
IF stringprocessinghappened THEN PRINT #12, cleanupstringprocessingcall$ + "0);": stringprocessinghappened = 0
|
||||||
IF arrayprocessinghappened THEN arrayprocessinghappened = 0: wholearrayreference = 0
|
IF arrayprocessinghappened THEN arrayprocessinghappened = 0
|
||||||
tlayout$ = tl$
|
tlayout$ = tl$
|
||||||
|
|
||||||
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
|
IF LEFT$(r$, 1) = "*" THEN r$ = MID$(r$, 2)
|
||||||
|
|
Loading…
Reference in a new issue