mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-04 04:50:22 +00:00
Rename internal $CHECKING flag
- this completes the previous commit, but as it also swapped the true/false logic, it was made as extra commit
This commit is contained in:
parent
f24cabd9ad
commit
d83b6d9557
|
@ -153,7 +153,7 @@ DIM SHARED viFileDescription$, viFileVersion$, viInternalName$
|
||||||
DIM SHARED viLegalCopyright$, viLegalTrademarks$, viOriginalFilename$
|
DIM SHARED viLegalCopyright$, viLegalTrademarks$, viOriginalFilename$
|
||||||
DIM SHARED viProductName$, viProductVersion$, viComments$, viWeb$
|
DIM SHARED viProductName$, viProductVersion$, viComments$, viWeb$
|
||||||
|
|
||||||
DIM SHARED NoChecks
|
DIM SHARED CheckingOn
|
||||||
DIM SHARED ConsoleOn
|
DIM SHARED ConsoleOn
|
||||||
DIM SHARED ScreenHideOn
|
DIM SHARED ScreenHideOn
|
||||||
DIM SHARED AssertsOn
|
DIM SHARED AssertsOn
|
||||||
|
@ -1292,6 +1292,7 @@ HashAdd "WHILE", f, 0
|
||||||
|
|
||||||
|
|
||||||
'clear/init variables
|
'clear/init variables
|
||||||
|
CheckingOn = 1
|
||||||
ConsoleOn = 0
|
ConsoleOn = 0
|
||||||
ScreenHideOn = 0
|
ScreenHideOn = 0
|
||||||
AssertsOn = 0
|
AssertsOn = 0
|
||||||
|
@ -1315,7 +1316,6 @@ staticarraylist = "": staticarraylistn = 0
|
||||||
fooindwel = 0
|
fooindwel = 0
|
||||||
layout = ""
|
layout = ""
|
||||||
layoutok = 0
|
layoutok = 0
|
||||||
NoChecks = 0
|
|
||||||
inclevel = 0
|
inclevel = 0
|
||||||
errorLineInInclude = 0
|
errorLineInInclude = 0
|
||||||
addmetainclude$ = ""
|
addmetainclude$ = ""
|
||||||
|
@ -3064,7 +3064,7 @@ DO
|
||||||
|
|
||||||
IF a3u$ = "$CHECKING:OFF" THEN
|
IF a3u$ = "$CHECKING:OFF" THEN
|
||||||
layout$ = SCase$("$Checking:Off")
|
layout$ = SCase$("$Checking:Off")
|
||||||
NoChecks = 1
|
CheckingOn = 0
|
||||||
IF vWatchOn <> 0 AND NoIDEMode = 0 AND inclevel = 0 THEN
|
IF vWatchOn <> 0 AND NoIDEMode = 0 AND inclevel = 0 THEN
|
||||||
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "$Debug", "$Debug features won't work in $Checking:Off blocks"
|
addWarning linenumber, inclevel, inclinenumber(inclevel), incname$(inclevel), "$Debug", "$Debug features won't work in $Checking:Off blocks"
|
||||||
END IF
|
END IF
|
||||||
|
@ -3072,7 +3072,7 @@ DO
|
||||||
END IF
|
END IF
|
||||||
IF a3u$ = "$CHECKING:ON" THEN
|
IF a3u$ = "$CHECKING:ON" THEN
|
||||||
layout$ = SCase$("$Checking:On")
|
layout$ = SCase$("$Checking:On")
|
||||||
NoChecks = 0
|
CheckingOn = 1
|
||||||
GOTO finishednonexec
|
GOTO finishednonexec
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -3086,7 +3086,7 @@ DO
|
||||||
DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) OR 1
|
DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) = DEPENDENCY(DEPENDENCY_CONSOLE_ONLY) OR 1
|
||||||
ConsoleOn = 1
|
ConsoleOn = 1
|
||||||
IF prepass = 0 THEN
|
IF prepass = 0 THEN
|
||||||
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "do{"
|
IF CheckingOn THEN WriteBufLine MainTxtBuf, "do{"
|
||||||
WriteBufLine MainTxtBuf, "sub__dest(func__console());"
|
WriteBufLine MainTxtBuf, "sub__dest(func__console());"
|
||||||
WriteBufLine MainTxtBuf, "sub__source(func__console());"
|
WriteBufLine MainTxtBuf, "sub__source(func__console());"
|
||||||
GOTO finishedline2
|
GOTO finishedline2
|
||||||
|
@ -3361,7 +3361,7 @@ DO
|
||||||
|
|
||||||
ExeIconSet = linenumber
|
ExeIconSet = linenumber
|
||||||
SetDependency DEPENDENCY_ICON
|
SetDependency DEPENDENCY_ICON
|
||||||
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "do{"
|
IF CheckingOn THEN WriteBufLine MainTxtBuf, "do{"
|
||||||
WriteBufLine MainTxtBuf, "sub__icon(NULL,NULL,0);"
|
WriteBufLine MainTxtBuf, "sub__icon(NULL,NULL,0);"
|
||||||
GOTO finishedline2
|
GOTO finishedline2
|
||||||
END IF
|
END IF
|
||||||
|
@ -3531,7 +3531,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 NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
WriteBufLine MainTxtBuf, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
WriteBufLine MainTxtBuf, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
||||||
END IF
|
END IF
|
||||||
|
@ -3592,7 +3592,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 NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
WriteBufLine MainTxtBuf, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
WriteBufLine MainTxtBuf, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");r=0;}"
|
||||||
END IF
|
END IF
|
||||||
|
@ -5413,7 +5413,7 @@ DO
|
||||||
dimstatic = 0
|
dimstatic = 0
|
||||||
WriteBufLine MainTxtBuf, "exit_subfunc:;"
|
WriteBufLine MainTxtBuf, "exit_subfunc:;"
|
||||||
IF vWatchOn = 1 THEN
|
IF vWatchOn = 1 THEN
|
||||||
IF NoChecks = 0 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
vWatchAddLabel 0, -1
|
vWatchAddLabel 0, -1
|
||||||
|
@ -5682,7 +5682,7 @@ DO
|
||||||
IF controltype(controllevel) <> 2 THEN a$ = "NEXT without FOR": GOTO errmes
|
IF controltype(controllevel) <> 2 THEN a$ = "NEXT without FOR": GOTO errmes
|
||||||
IF n <> 1 AND controlvalue(controllevel) <> currentid THEN a$ = "Incorrect variable after NEXT": GOTO errmes
|
IF n <> 1 AND controlvalue(controllevel) <> currentid THEN a$ = "Incorrect variable after NEXT": GOTO errmes
|
||||||
WriteBufLine MainTxtBuf, "fornext_continue_" + str2$(controlid(controllevel)) + ":;"
|
WriteBufLine MainTxtBuf, "fornext_continue_" + str2$(controlid(controllevel)) + ":;"
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 AND NoChecks = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 AND CheckingOn = 1 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -5710,7 +5710,7 @@ DO
|
||||||
|
|
||||||
IF n >= 1 THEN
|
IF n >= 1 THEN
|
||||||
IF firstelement$ = "WHILE" THEN
|
IF firstelement$ = "WHILE" THEN
|
||||||
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
IF CheckingOn THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
|
|
||||||
'prevents code from being placed before 'CASE condition' in a SELECT CASE block
|
'prevents code from being placed before 'CASE condition' in a SELECT CASE block
|
||||||
IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN
|
IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN
|
||||||
|
@ -5732,7 +5732,7 @@ DO
|
||||||
IF Error_Happened THEN GOTO errmes
|
IF Error_Happened THEN GOTO errmes
|
||||||
IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")"
|
IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")"
|
||||||
IF (typ AND ISSTRING) THEN a$ = "WHILE ERROR! Cannot accept a STRING type.": GOTO errmes
|
IF (typ AND ISSTRING) THEN a$ = "WHILE ERROR! Cannot accept a STRING type.": GOTO errmes
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -5766,7 +5766,7 @@ DO
|
||||||
|
|
||||||
IF n >= 1 THEN
|
IF n >= 1 THEN
|
||||||
IF firstelement$ = "DO" THEN
|
IF firstelement$ = "DO" THEN
|
||||||
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
IF CheckingOn THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
|
|
||||||
'prevents code from being placed before 'CASE condition' in a SELECT CASE block
|
'prevents code from being placed before 'CASE condition' in a SELECT CASE block
|
||||||
IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN
|
IF SelectCaseCounter > 0 AND SelectCaseHasCaseBlock(SelectCaseCounter) = 0 THEN
|
||||||
|
@ -5792,14 +5792,14 @@ DO
|
||||||
IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")"
|
IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")"
|
||||||
IF (typ AND ISSTRING) THEN a$ = "DO ERROR! Cannot accept a STRING type.": GOTO errmes
|
IF (typ AND ISSTRING) THEN a$ = "DO ERROR! Cannot accept a STRING type.": GOTO errmes
|
||||||
IF whileuntil = 1 THEN WriteBufLine MainTxtBuf, "while((" + e$ + ")||new_error){" ELSE WriteBufLine MainTxtBuf, "while((!(" + e$ + "))||new_error){"
|
IF whileuntil = 1 THEN WriteBufLine MainTxtBuf, "while((" + e$ + ")||new_error){" ELSE WriteBufLine MainTxtBuf, "while((!(" + e$ + "))||new_error){"
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
controltype(controllevel) = 4
|
controltype(controllevel) = 4
|
||||||
ELSE
|
ELSE
|
||||||
controltype(controllevel) = 3
|
controltype(controllevel) = 3
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 AND NoChecks = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 AND CheckingOn = 1 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "do{*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "do{*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -5817,7 +5817,7 @@ DO
|
||||||
l$ = SCase$("Loop")
|
l$ = SCase$("Loop")
|
||||||
IF controltype(controllevel) <> 3 AND controltype(controllevel) <> 4 THEN a$ = "PROGRAM FLOW ERROR!": GOTO errmes
|
IF controltype(controllevel) <> 3 AND controltype(controllevel) <> 4 THEN a$ = "PROGRAM FLOW ERROR!": GOTO errmes
|
||||||
IF n >= 2 THEN
|
IF n >= 2 THEN
|
||||||
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
IF CheckingOn THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
IF controltype(controllevel) = 4 THEN a$ = "PROGRAM FLOW ERROR!": GOTO errmes
|
IF controltype(controllevel) = 4 THEN a$ = "PROGRAM FLOW ERROR!": GOTO errmes
|
||||||
whileuntil = 0
|
whileuntil = 0
|
||||||
IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + SCase$("While")
|
IF secondelement$ = "WHILE" THEN whileuntil = 1: l$ = l$ + sp + SCase$("While")
|
||||||
|
@ -5834,7 +5834,7 @@ DO
|
||||||
IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")"
|
IF stringprocessinghappened THEN e$ = cleanupstringprocessingcall$ + e$ + ")"
|
||||||
IF (typ AND ISSTRING) THEN a$ = "LOOP ERROR! Cannot accept a STRING type.": GOTO errmes
|
IF (typ AND ISSTRING) THEN a$ = "LOOP ERROR! Cannot accept a STRING type.": GOTO errmes
|
||||||
WriteBufLine MainTxtBuf, "dl_continue_" + str2$(controlid(controllevel)) + ":;"
|
WriteBufLine MainTxtBuf, "dl_continue_" + str2$(controlid(controllevel)) + ":;"
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -5842,7 +5842,7 @@ DO
|
||||||
ELSE
|
ELSE
|
||||||
WriteBufLine MainTxtBuf, "dl_continue_" + str2$(controlid(controllevel)) + ":;"
|
WriteBufLine MainTxtBuf, "dl_continue_" + str2$(controlid(controllevel)) + ":;"
|
||||||
|
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -5871,7 +5871,7 @@ DO
|
||||||
|
|
||||||
IF n >= 1 THEN
|
IF n >= 1 THEN
|
||||||
IF firstelement$ = "FOR" THEN
|
IF firstelement$ = "FOR" THEN
|
||||||
IF NoChecks = 0 THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
IF CheckingOn THEN WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
|
|
||||||
l$ = SCase$("For")
|
l$ = SCase$("For")
|
||||||
|
|
||||||
|
@ -5996,7 +5996,7 @@ DO
|
||||||
e$ = evaluatetotyp(e$, ctyp)
|
e$ = evaluatetotyp(e$, ctyp)
|
||||||
IF Error_Happened THEN GOTO errmes
|
IF Error_Happened THEN GOTO errmes
|
||||||
|
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -6082,7 +6082,7 @@ DO
|
||||||
|
|
||||||
IF n >= 3 THEN
|
IF n >= 3 THEN
|
||||||
IF firstelement$ = "ELSEIF" THEN
|
IF firstelement$ = "ELSEIF" THEN
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
|
@ -6124,7 +6124,7 @@ DO
|
||||||
|
|
||||||
IF n >= 3 THEN
|
IF n >= 3 THEN
|
||||||
IF firstelement$ = "IF" THEN
|
IF firstelement$ = "IF" THEN
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
|
@ -6209,7 +6209,7 @@ DO
|
||||||
IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$
|
IF LEN(layout$) = 0 THEN layout$ = l$ ELSE layout$ = layout$ + sp + l$
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -6228,7 +6228,7 @@ DO
|
||||||
'SELECT CASE
|
'SELECT CASE
|
||||||
IF n >= 1 THEN
|
IF n >= 1 THEN
|
||||||
IF firstelement$ = "SELECT" THEN
|
IF firstelement$ = "SELECT" THEN
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
|
@ -6356,7 +6356,7 @@ DO
|
||||||
WriteBufLine MainTxtBuf, "sc_" + str2$(controlid(controllevel)) + "_end:;"
|
WriteBufLine MainTxtBuf, "sc_" + str2$(controlid(controllevel)) + "_end:;"
|
||||||
IF controltype(controllevel) < 10 OR controltype(controllevel) > 17 THEN a$ = "END SELECT without SELECT CASE": GOTO errmes
|
IF controltype(controllevel) < 10 OR controltype(controllevel) > 17 THEN a$ = "END SELECT without SELECT CASE": GOTO errmes
|
||||||
|
|
||||||
IF NoChecks = 0 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF CheckingOn = 1 AND vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
END IF
|
END IF
|
||||||
|
@ -6473,7 +6473,7 @@ DO
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
WriteBufLine MainTxtBuf, "S_" + str2$(statementn) + ":;": dynscope = 1
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
|
@ -6663,7 +6663,7 @@ DO
|
||||||
|
|
||||||
'static scope commands:
|
'static scope commands:
|
||||||
|
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
IF vWatchOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
WriteBufLine MainTxtBuf, "do{*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "do{*__LONG_VWATCH_LINENUMBER= " + str2$(linenumber) + "; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
|
@ -9009,7 +9009,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 AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
IF vWatchOn = 1 AND CheckingOn = 1 AND inclinenumber(inclevel) = 0 THEN temp$ = vWatchErrorCall$ ELSE temp$ = ""
|
||||||
WriteBufLine MainTxtBuf, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors)
|
WriteBufLine MainTxtBuf, "if(qbevent){" + temp$ + "evnt(" + str2$(linenumber) + inclinenump$ + ");}" 'non-resumable error check (cannot exit without handling errors)
|
||||||
WriteBufLine MainTxtBuf, "exit_code=" + e$ + ";"
|
WriteBufLine MainTxtBuf, "exit_code=" + e$ + ";"
|
||||||
l$ = l$ + sp + l2$
|
l$ = l$ + sp + l2$
|
||||||
|
@ -9042,7 +9042,7 @@ DO
|
||||||
'note: this value is currently ignored but evaluated for checking reasons
|
'note: this value is currently ignored but evaluated for checking reasons
|
||||||
END IF
|
END IF
|
||||||
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
||||||
IF vWatchOn = 1 AND NoChecks = 0 AND inclinenumber(inclevel) = 0 THEN
|
IF vWatchOn = 1 AND CheckingOn = 1 AND inclinenumber(inclevel) = 0 THEN
|
||||||
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
WriteBufLine MainTxtBuf, "*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;"
|
||||||
vWatchAddLabel linenumber, 0
|
vWatchAddLabel linenumber, 0
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -9333,7 +9333,7 @@ DO
|
||||||
IF varsize$ = "4" THEN s = 4: st$ = "int32"
|
IF varsize$ = "4" THEN s = 4: st$ = "int32"
|
||||||
IF varsize$ = "8" THEN s = 8: st$ = "int64"
|
IF varsize$ = "8" THEN s = 8: st$ = "int64"
|
||||||
|
|
||||||
IF NoChecks THEN
|
IF CheckingOn = 0 THEN
|
||||||
'fast version:
|
'fast version:
|
||||||
IF s THEN
|
IF s THEN
|
||||||
WriteBufLine MainTxtBuf, "*(" + st$ + "*)" + varoffs$ + "=*(" + st$ + "*)(" + offs$ + ");"
|
WriteBufLine MainTxtBuf, "*(" + st$ + "*)" + varoffs$ + "=*(" + st$ + "*)(" + offs$ + ");"
|
||||||
|
@ -9430,7 +9430,7 @@ DO
|
||||||
IF varsize$ = "4" THEN s = 4: st$ = "int32"
|
IF varsize$ = "4" THEN s = 4: st$ = "int32"
|
||||||
IF varsize$ = "8" THEN s = 8: st$ = "int64"
|
IF varsize$ = "8" THEN s = 8: st$ = "int64"
|
||||||
|
|
||||||
IF NoChecks THEN
|
IF CheckingOn = 0 THEN
|
||||||
'fast version:
|
'fast version:
|
||||||
IF s THEN
|
IF s THEN
|
||||||
WriteBufLine MainTxtBuf, "*(" + st$ + "*)(" + offs$ + ")=*(" + st$ + "*)" + varoffs$ + ";"
|
WriteBufLine MainTxtBuf, "*(" + st$ + "*)(" + offs$ + ")=*(" + st$ + "*)" + varoffs$ + ";"
|
||||||
|
@ -9474,7 +9474,7 @@ DO
|
||||||
e$ = evaluatetotyp(e$, t): IF Error_Happened THEN GOTO errmes
|
e$ = evaluatetotyp(e$, t): IF Error_Happened THEN GOTO errmes
|
||||||
st$ = typ2ctyp$(t, "")
|
st$ = typ2ctyp$(t, "")
|
||||||
varsize$ = str2((t AND 511) \ 8)
|
varsize$ = str2((t AND 511) \ 8)
|
||||||
IF NoChecks THEN
|
IF CheckingOn = 0 THEN
|
||||||
'fast version:
|
'fast version:
|
||||||
WriteBufLine MainTxtBuf, "*(" + st$ + "*)(" + offs$ + ")=" + e$ + ";"
|
WriteBufLine MainTxtBuf, "*(" + st$ + "*)(" + offs$ + ")=" + e$ + ";"
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -9564,7 +9564,7 @@ DO
|
||||||
varoffs$ = evaluatetotyp(e$, -6): IF Error_Happened THEN GOTO errmes
|
varoffs$ = evaluatetotyp(e$, -6): IF Error_Happened THEN GOTO errmes
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF NoChecks THEN
|
IF CheckingOn = 0 THEN
|
||||||
WriteBufLine MainTxtBuf, "sub__memfill_nochecks(" + offs$ + "," + bytes$ + ",(ptrszint)" + varoffs$ + "," + varsize$ + ");"
|
WriteBufLine MainTxtBuf, "sub__memfill_nochecks(" + offs$ + "," + bytes$ + ",(ptrszint)" + varoffs$ + "," + varsize$ + ");"
|
||||||
ELSE
|
ELSE
|
||||||
WriteBufLine MainTxtBuf, "sub__memfill((mem_block*)" + blkoffs$ + "," + offs$ + "," + bytes$ + ",(ptrszint)" + varoffs$ + "," + varsize$ + ");"
|
WriteBufLine MainTxtBuf, "sub__memfill((mem_block*)" + blkoffs$ + "," + offs$ + "," + bytes$ + ",(ptrszint)" + varoffs$ + "," + varsize$ + ");"
|
||||||
|
@ -9583,7 +9583,7 @@ DO
|
||||||
e$ = evaluatetotyp(e$, t): IF Error_Happened THEN GOTO errmes
|
e$ = evaluatetotyp(e$, t): IF Error_Happened THEN GOTO errmes
|
||||||
|
|
||||||
c$ = "sub__memfill_"
|
c$ = "sub__memfill_"
|
||||||
IF NoChecks THEN c$ = "sub__memfill_nochecks_"
|
IF CheckingOn = 0 THEN c$ = "sub__memfill_nochecks_"
|
||||||
IF t AND ISOFFSET THEN
|
IF t AND ISOFFSET THEN
|
||||||
c$ = c$ + "OFFSET"
|
c$ = c$ + "OFFSET"
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -9596,7 +9596,7 @@ DO
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
c$ = c$ + "("
|
c$ = c$ + "("
|
||||||
IF NoChecks = 0 THEN c$ = c$ + "(mem_block*)" + blkoffs$ + ","
|
IF CheckingOn THEN c$ = c$ + "(mem_block*)" + blkoffs$ + ","
|
||||||
WriteBufLine MainTxtBuf, c$ + offs$ + "," + bytes$ + "," + e$ + ");"
|
WriteBufLine MainTxtBuf, c$ + offs$ + "," + bytes$ + "," + e$ + ");"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -11325,7 +11325,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 NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
IF vWatchOn AND inclinenumber(inclevel) = 0 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
|
||||||
|
@ -14020,14 +14020,14 @@ FUNCTION arrayreference$ (indexes$, typ)
|
||||||
IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION
|
IF e$ = "" THEN Give_Error "Array index missing": EXIT FUNCTION
|
||||||
argi = (elements - curarg) * 4 + 4
|
argi = (elements - curarg) * 4 + 4
|
||||||
IF curarg = 1 THEN
|
IF curarg = 1 THEN
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+"
|
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])+"
|
||||||
ELSE
|
ELSE
|
||||||
r$ = r$ + "(" + e$ + ")-" + n$ + "[" + str2(argi) + "]+"
|
r$ = r$ + "(" + e$ + ")-" + n$ + "[" + str2(argi) + "]+"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
ELSE
|
ELSE
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
|
r$ = r$ + "array_check((" + e$ + ")-" + n$ + "[" + str2(argi) + "]," + n$ + "[" + str2(argi + 1) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
|
||||||
ELSE
|
ELSE
|
||||||
r$ = r$ + "((" + e$ + ")-" + n$ + "[" + str2(argi) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
|
r$ = r$ + "((" + e$ + ")-" + n$ + "[" + str2(argi) + "])*" + n$ + "[" + str2(argi + 2) + "]+"
|
||||||
|
@ -16695,7 +16695,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG)
|
||||||
'assume checking off
|
'assume checking off
|
||||||
offs$ = evaluatetotyp(memget_offs$, OFFSETTYPE - ISPOINTER)
|
offs$ = evaluatetotyp(memget_offs$, OFFSETTYPE - ISPOINTER)
|
||||||
blkoffs$ = evaluatetotyp(memget_blk$, -6)
|
blkoffs$ = evaluatetotyp(memget_blk$, -6)
|
||||||
IF NoChecks = 0 THEN
|
IF CheckingOn THEN
|
||||||
'change offs$ to be the return of the safe version
|
'change offs$ to be the return of the safe version
|
||||||
offs$ = "func__memget((mem_block*)" + blkoffs$ + "," + offs$ + "," + str2(memget_size) + ")"
|
offs$ = "func__memget((mem_block*)" + blkoffs$ + "," + offs$ + "," + str2(memget_size) + ")"
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue