From b9a0cd4d1f878902c86f2ad279e50813dd627736 Mon Sep 17 00:00:00 2001
From: oro06 <oro06@idefix.freepascal.org>
Date: Thu, 27 Apr 2006 17:07:16 +0000
Subject: [PATCH] *wince : fix longint/longword issue

git-svn-id: trunk@3344 -
---
 fcl/wince/pipes.inc   |  2 +-
 fcl/wince/process.inc | 20 +++-----------------
 2 files changed, 4 insertions(+), 18 deletions(-)

diff --git a/fcl/wince/pipes.inc b/fcl/wince/pipes.inc
index aa59074aa2..3783de8e42 100644
--- a/fcl/wince/pipes.inc
+++ b/fcl/wince/pipes.inc
@@ -13,7 +13,7 @@
 
  **********************************************************************}
 
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
+Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
 // No pipes under dos, sorry...
 begin
   Result := False;
diff --git a/fcl/wince/process.inc b/fcl/wince/process.inc
index 8c40fe6a96..2b0797d808 100644
--- a/fcl/wince/process.inc
+++ b/fcl/wince/process.inc
@@ -136,25 +136,11 @@ end;
 
 Procedure CreatePipes(Var HI,HO,HE : Thandle; Var SI : TStartupInfo; CE : Boolean);
 
-  Procedure DoCreatePipeHandles(Var H1,H2 : THandle);
-
-  Var
-    I,O : Longint;
-
-  begin
-    CreatePipeHandles(I,O);
-    H1:=Thandle(I);
-    H2:=THandle(O);
-  end;
-
-
-
-
 begin
-  DoCreatePipeHandles(SI.hStdInput,HI);
-  DoCreatePipeHandles(HO,Si.hStdOutput);
+  CreatePipeHandles(SI.hStdInput,HI);
+  CreatePipeHandles(HO,Si.hStdOutput);
   if CE then
-    DoCreatePipeHandles(HE,SI.hStdError)
+    CreatePipeHandles(HE,SI.hStdError)
   else
     begin
     SI.hStdError:=SI.hStdOutput;