paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

*wince : fix longint/longword issue

Browse Source 
git-svn-id: trunk@3344 -
This commit is contained in:
oro06 2006-04-27 17:07:16 +00:00
parent 34f1c427eb
commit b9a0cd4d1f
2 changed files with 4 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/wince/pipes.inc
View File

@ -13,7 +13,7 @@
**********************************************************************} **********************************************************************}
Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean; Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
// No pipes under dos, sorry... // No pipes under dos, sorry...
begin begin
Result := False; Result := False;

20
fcl/wince/process.inc
View File

@ -136,25 +136,11 @@ end;
Procedure CreatePipes(Var HI,HO,HE : Thandle; Var SI : TStartupInfo; CE : Boolean); 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 begin
DoCreatePipeHandles(SI.hStdInput,HI); CreatePipeHandles(SI.hStdInput,HI);
DoCreatePipeHandles(HO,Si.hStdOutput); CreatePipeHandles(HO,Si.hStdOutput);
if CE then if CE then
DoCreatePipeHandles(HE,SI.hStdError) CreatePipeHandles(HE,SI.hStdError)
else else
begin begin
SI.hStdError:=SI.hStdOutput; SI.hStdError:=SI.hStdOutput;