From 5803caa999f29717baa5bbc5f84d34d7e1547188 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 30 Jul 2012 22:53:27 -0400
Subject: [PATCH] Compiles for 64-bit operating systems

---
 mystic/mpl_execute.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index 69f9325..0b6cebe 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -1622,7 +1622,7 @@ Begin
             TempLong := DateStr2Julian(Param[1].S);
             Store (TempLong, 4);
           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)^));
     55  : Begin
             TempBool := DateValid(Param[1].S);