From 529d872aea50e77c33a79549b1d15ba85cd9c13b Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Sun, 19 Dec 2004 19:29:04 +0000
Subject: [PATCH] * x86_64 fix: Conversion if integer to pointer

git-svn-id: trunk@6395 -
---
 lcl/include/intfbasewinapi.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/intfbasewinapi.inc b/lcl/include/intfbasewinapi.inc
index 9254b05185..5003ce1d2d 100644
--- a/lcl/include/intfbasewinapi.inc
+++ b/lcl/include/intfbasewinapi.inc
@@ -307,7 +307,7 @@ var
     For I := 1 to Length(Source) do
       If Source[I] = ' ' then
         If not Breakable(Result, I) then
-          Result.Add(Pointer(I));
+          Result.Add(Pointer(PtrInt(I)));
     If not Breakable(Result, Length(Source)) then
       Result.Add(Pointer(PtrInt(Length(Source))));
     If not Breakable(Result, 0) then
@@ -1404,6 +1404,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.15  2004/12/19 19:29:04  marc
+  * x86_64 fix: Conversion if integer to pointer
+
   Revision 1.14  2004/12/19 19:26:05  marc
   * x86_64 fix: Conversion if integer to pointer