mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 19:10:25 +00:00
Allows empty procedures when $DEBUG is present.
This commit is contained in:
parent
9ade4aea75
commit
fe4575a181
|
@ -5309,11 +5309,14 @@ DO
|
||||||
END IF
|
END IF
|
||||||
PRINT #12, "*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;"
|
PRINT #12, "*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;"
|
||||||
|
|
||||||
IF subfunc <> "SUB_VWATCH" THEN
|
IF subfunc <> "SUB_VWATCH" AND firstLineNumberLabelvWatch > 0 THEN
|
||||||
PRINT #12, "goto VWATCH_SKIPSETNEXTLINE;"
|
PRINT #12, "goto VWATCH_SKIPSETNEXTLINE;"
|
||||||
PRINT #12, "VWATCH_SETNEXTLINE:;"
|
PRINT #12, "VWATCH_SETNEXTLINE:;"
|
||||||
PRINT #12, "switch (*__LONG_VWATCH_GOTO) {"
|
PRINT #12, "switch (*__LONG_VWATCH_GOTO) {"
|
||||||
FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch
|
FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch
|
||||||
|
WHILE i > LEN(vWatchUsedLabels)
|
||||||
|
vWatchUsedLabels = vWatchUsedLabels + SPACE$(1000)
|
||||||
|
WEND
|
||||||
IF ASC(vWatchUsedLabels, i) = 1 THEN
|
IF ASC(vWatchUsedLabels, i) = 1 THEN
|
||||||
PRINT #12, " case " + str2$(i) + ":"
|
PRINT #12, " case " + str2$(i) + ":"
|
||||||
PRINT #12, " goto VWATCH_LABEL_" + str2$(i) + ";"
|
PRINT #12, " goto VWATCH_LABEL_" + str2$(i) + ";"
|
||||||
|
@ -14215,7 +14218,9 @@ SUB vWatchTagLabel (this AS LONG, lastLine AS _BYTE)
|
||||||
STATIC prevLabel AS LONG
|
STATIC prevLabel AS LONG
|
||||||
|
|
||||||
IF lastLine THEN
|
IF lastLine THEN
|
||||||
PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;"
|
IF prevLabel > 0 THEN
|
||||||
|
PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;"
|
||||||
|
END IF
|
||||||
ELSE
|
ELSE
|
||||||
WHILE this > LEN(vWatchUsedLabels)
|
WHILE this > LEN(vWatchUsedLabels)
|
||||||
vWatchUsedLabels = vWatchUsedLabels + SPACE$(1000)
|
vWatchUsedLabels = vWatchUsedLabels + SPACE$(1000)
|
||||||
|
@ -14224,6 +14229,7 @@ SUB vWatchTagLabel (this AS LONG, lastLine AS _BYTE)
|
||||||
|
|
||||||
IF firstLineNumberLabelvWatch = 0 THEN
|
IF firstLineNumberLabelvWatch = 0 THEN
|
||||||
firstLineNumberLabelvWatch = this
|
firstLineNumberLabelvWatch = this
|
||||||
|
prevLabel = 0
|
||||||
ELSE
|
ELSE
|
||||||
IF prevLabel <> this THEN
|
IF prevLabel <> this THEN
|
||||||
PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;"
|
PRINT #12, "VWATCH_SKIPLABEL_" + str2$(prevLabel) + ":;"
|
||||||
|
@ -14239,7 +14245,7 @@ SUB closemain
|
||||||
|
|
||||||
PRINT #12, "return;"
|
PRINT #12, "return;"
|
||||||
|
|
||||||
IF vWatchOn THEN
|
IF vWatchOn AND firstLineNumberLabelvWatch > 0 THEN
|
||||||
PRINT #12, "VWATCH_SETNEXTLINE:;"
|
PRINT #12, "VWATCH_SETNEXTLINE:;"
|
||||||
PRINT #12, "switch (*__LONG_VWATCH_GOTO) {"
|
PRINT #12, "switch (*__LONG_VWATCH_GOTO) {"
|
||||||
FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch
|
FOR i = firstLineNumberLabelvWatch TO lastLineNumberLabelvWatch
|
||||||
|
|
Loading…
Reference in a new issue