mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 00:40:26 +00:00
Prevents adding debug code into includes.
This commit is contained in:
parent
cade46d545
commit
5fe0902c31
|
@ -3440,7 +3440,7 @@ DO
|
|||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||
END IF
|
||||
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;}"
|
||||
END IF
|
||||
IF n = 1 THEN GOTO finishednonexec
|
||||
|
@ -3501,7 +3501,7 @@ DO
|
|||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||
END IF
|
||||
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;}"
|
||||
END IF
|
||||
entireline$ = RIGHT$(entireline$, LEN(entireline$) - x3): u$ = UCASE$(entireline$)
|
||||
|
@ -8879,7 +8879,7 @@ DO
|
|||
thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1)
|
||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||
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, "exit_code=" + e$ + ";"
|
||||
l$ = l$ + sp + l2$
|
||||
|
@ -8903,7 +8903,7 @@ DO
|
|||
thisincname$ = MID$(incname$(inclevel), LEN(thisincname$) + 1)
|
||||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||
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, "exit_code=" + e$ + ";"
|
||||
l$ = l$ + sp + l2$
|
||||
|
@ -11191,7 +11191,7 @@ DO
|
|||
inclinenump$ = inclinenump$ + "," + CHR$(34) + thisincname$ + CHR$(34)
|
||||
END IF
|
||||
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
|
||||
dynscope = 0
|
||||
PRINT #12, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");if(r)goto S_" + str2$(statementn) + ";}"
|
||||
|
|
Loading…
Reference in a new issue