mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 20:20:25 +00:00
Fixes duplicate SKIP labels in some scenarios.
This commit is contained in:
parent
fe4575a181
commit
dfb33206b4
|
@ -14215,11 +14215,12 @@ SUB clearid
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB vWatchTagLabel (this AS LONG, lastLine AS _BYTE)
|
SUB vWatchTagLabel (this AS LONG, lastLine AS _BYTE)
|
||||||
STATIC prevLabel AS LONG
|
STATIC prevLabel AS LONG, prevSkipLabel AS LONG
|
||||||
|
|
||||||
IF lastLine THEN
|
IF lastLine THEN
|
||||||
IF prevLabel > 0 THEN
|
IF prevLabel > 0 AND prevLabel <> prevSkipLabel THEN
|
||||||
PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;"
|
PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;"
|
||||||
|
prevSkipLabel = prevLabel
|
||||||
END IF
|
END IF
|
||||||
ELSE
|
ELSE
|
||||||
WHILE this > LEN(vWatchUsedLabels)
|
WHILE this > LEN(vWatchUsedLabels)
|
||||||
|
|
Loading…
Reference in a new issue