Open Vizit0r opened 4 years ago
The sequence of code calls:
function TPSExec.RunScript
... repeat ... while ...
case Cmd of
CM_CO
DoBooleanCalc(Vs.P, Vd.P, v3.P, vs.aType, vd.aType, v3.aType, CalcType);
CM_PO
FStack.Pop;
CM_PO
FStack.Pop;
CM_SF
ReadVariable(vd, True)
case VarType
0:
if Param >= Cardinal(FStack.Count) then // Param == 2; Stack.Count == 1
CMD_Err(erOutOfStackRange) *** ERROR ...
Resume: Or bad generated bytecode or bad it execute.
@pult seems like your answer is for issue #224
Eror raised in compilation time.
Script for reproduce: