From 94c5198fd17f775672af0cd959adf46ff89bee1f Mon Sep 17 00:00:00 2001
From: Carlo Kok <ck@carlo-kok.com>
Date: Tue, 3 Dec 2013 12:42:38 +0100
Subject: [PATCH] 0: Cast to IPointer instead of Cardinal for 64bits Pascal
 SCript

---
 Source/uPSCompiler.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/uPSCompiler.pas b/Source/uPSCompiler.pas
index 53c889b..f55dcac 100644
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@@ -14568,7 +14568,7 @@ begin
       C := CurrClass.FClassItems[I];
       if (c is TPSDelphiClassItemConstructor) and (C.NameHash = H) and (C.Name = Name) then
       begin
-        Index := Cardinal(C);
+        Index := IPointer(C);
         Result := True;
         exit;
       end;