0: Cast to IPointer instead of Cardinal for 64bits Pascal SCript

2013-12-03 12:42:38 +01:00 · 2013-12-03 12:42:38 +01:00 · 94c5198fd1
commit 94c5198fd1
parent 4f0682d518
1 changed files with 1 additions and 1 deletions
--- 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;