Fix for records
This commit is contained in:
parent
42b6a91cbd
commit
bbb3916764
|
@ -1303,7 +1303,7 @@ Begin
|
||||||
If VarData[VarNum]^.vType <> iRecord Then
|
If VarData[VarNum]^.vType <> iRecord Then
|
||||||
Error (mpsTypeMismatch, '');
|
Error (mpsTypeMismatch, '');
|
||||||
|
|
||||||
OutWord (VarNum);
|
OutWord (VarData[VarNum]^.VarID);
|
||||||
End;
|
End;
|
||||||
|
|
||||||
Procedure TParserEngine.NewBooleanCrap;
|
Procedure TParserEngine.NewBooleanCrap;
|
||||||
|
|
Loading…
Reference in New Issue