eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for records

This commit is contained in:
mysticbbs 2012-04-20 19:28:38 -04:00
parent bbb3916764
commit 5cee7974a7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mpl_execute.pas
View File

@ -930,6 +930,7 @@ Var
RecInfo : TRecInfo; RecInfo : TRecInfo;
Target : Byte; Target : Byte;
TempStr : String; TempStr : String;
RecID : Word;
Begin Begin
CheckArray (VarNum, ArrayData, RecInfo); CheckArray (VarNum, ArrayData, RecInfo);
@ -961,7 +962,9 @@ Begin
iRecord : Begin iRecord : Begin
NextWord; NextWord;
Move (VarData[W]^.Data^, GetDataPtr(VarNum, ArrayData, RecInfo)^, VarData[W]^.DataSize); RecID := FindVariable(W);
Move (VarData[RecID]^.Data^, GetDataPtr(VarNum, ArrayData, RecInfo)^, VarData[RecID]^.DataSize);
End; End;
End; End;
End; End;