Fix for records

This commit is contained in:
mysticbbs 2012-04-20 19:28:21 -04:00
parent 42b6a91cbd
commit bbb3916764
1 changed files with 1 additions and 1 deletions

View File

@ -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;