mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Prevents adding debug code into includes.
This commit is contained in:
parent
cade46d545
commit
5fe0902c31
1 changed files with 5 additions and 5 deletions
|
@ -3440,7 +3440,7 @@ DO
|
||||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||||
END IF
|
END IF
|
||||||
IF NoChecks = 0 THEN
|
IF NoChecks = 0 THEN
|
||||||
IF vWatchOn THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
||||||
END IF
|
END IF
|
||||||
IF n = 1 THEN GOTO finishednonexec
|
IF n = 1 THEN GOTO finishednonexec
|
||||||
|
@ -3501,7 +3501,7 @@ DO
|
||||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||||
END IF
|
END IF
|
||||||
IF NoChecks = 0 THEN
|
IF NoChecks = 0 THEN
|
||||||
IF vWatchOn THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
||||||
END IF
|
END IF
|
||||||
entireline$ = RIGHT$(entireline$, LEN(entireline$) - x3): u$ = UCASE$(entireline$)
|
entireline$ = RIGHT$(entireline$, LEN(entireline$) - x3): u$ = UCASE$(entireline$)
|
||||||
|
@ -8879,7 +8879,7 @@ DO
|
||||||
thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1)
|
thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1)
|
||||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||||
END IF
|
END IF
|
||||||
IF vWatchOn THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors)
|
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors)
|
||||||
PRINT #12, "exit_code=" + e$ + ";"
|
PRINT #12, "exit_code=" + e$ + ";"
|
||||||
l$ = l$ + sp + l2$
|
l$ = l$ + sp + l2$
|
||||||
|
@ -8903,7 +8903,7 @@ DO
|
||||||
thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1)
|
thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1)
|
||||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||||
END IF
|
END IF
|
||||||
IF vWatchOn = 1 AND NoChecks = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn = 1 AND NoChecks = 0 AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors)
|
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors)
|
||||||
PRINT #12, "exit_code=" + e$ + ";"
|
PRINT #12, "exit_code=" + e$ + ";"
|
||||||
l$ = l$ + sp + l2$
|
l$ = l$ + sp + l2$
|
||||||
|
@ -11191,7 +11191,7 @@ DO
|
||||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||||
END IF
|
END IF
|
||||||
IF NoChecks = 0 THEN
|
IF NoChecks = 0 THEN
|
||||||
IF vWatchOn THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
IF dynscope THEN
|
IF dynscope THEN
|
||||||
dynscope = 0
|
dynscope = 0
|
||||||
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");if(r)goto S_" + str2$(statementn) + ";}"
|
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");if(r)goto S_" + str2$(statementn) + ";}"
|
||||||
|
|
Loading…
Reference in a new issue