From 95b995fe27a7df39d11057f54c8f463b6aaa9f1f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 23 Sep 2005 09:56:14 +0000
Subject: [PATCH] * fixed resource streams for 64 bit systems

git-svn-id: trunk@1158 -
---
 rtl/objpas/classes/streams.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/streams.inc b/rtl/objpas/classes/streams.inc
index eebf32894d..ae72be04f9 100644
--- a/rtl/objpas/classes/streams.inc
+++ b/rtl/objpas/classes/streams.inc
@@ -777,7 +777,7 @@ constructor TResourceStream.Create(Instance: THandle; const ResName: string; Res
 constructor TResourceStream.CreateFromID(Instance: THandle; ResID: Integer; ResType: PChar);
   begin
     inherited create;
-    Initialize(Instance,pchar(ResID),ResType);
+    Initialize(Instance,pchar(PtrInt(ResID)),ResType);
   end;