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

Compiles for 64-bit operating systems

This commit is contained in:
mysticbbs 2012-07-30 22:53:27 -04:00
parent 58d44a3f53
commit 5803caa999
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/mpl_execute.pas
View File

@ -1622,7 +1622,7 @@ Begin
TempLong := DateStr2Julian(Param[1].S); TempLong := DateStr2Julian(Param[1].S);
Store (TempLong, 4); Store (TempLong, 4);
End; End;
53 : DateG2J(Param[1].L, Param[2].L, Param[3].L, LongInt(VarData[Param[4].vID]^.Data)); 53 : DateG2J(Param[1].L, Param[2].L, Param[3].L, LongInt(Pointer(VarData[Param[4].vID]^.Data)^));
54 : DateJ2G(Param[1].L, SmallInt(Pointer(Param[2].vData)^), SmallInt(Pointer(Param[3].vData)^), SmallInt(Pointer(Param[4].vData)^)); 54 : DateJ2G(Param[1].L, SmallInt(Pointer(Param[2].vData)^), SmallInt(Pointer(Param[3].vData)^), SmallInt(Pointer(Param[4].vData)^));
55 : Begin 55 : Begin
TempBool := DateValid(Param[1].S); TempBool := DateValid(Param[1].S);