paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for compilation breakage due to windows header fix. (reported by Reinier on ML)

Browse Source 
git-svn-id: trunk@28241 -
This commit is contained in:
marco 2014-07-20 10:53:25 +00:00
parent a4a11cb149
commit 2fdb701f9a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-process/src/win/process.inc
View File

@ -116,7 +116,7 @@ begin
TA.nLength := SizeOf(TA);
end;
Procedure InitStartupInfo(P : TProcess; Var SI : STARTUPINFO);
Procedure InitStartupInfo(P : TProcess; Var SI : STARTUPINFOA);
Const
SWC : Array [TShowWindowOptions] of Cardinal =
@ -179,7 +179,7 @@ begin
end;
Procedure CreatePipes(Var HI,HO,HE : Thandle; Var SI : TStartupInfo; CE : Boolean; APipeBufferSize : Cardinal);
Procedure CreatePipes(Var HI,HO,HE : Thandle; Var SI : TStartupInfoA; CE : Boolean; APipeBufferSize : Cardinal);
begin
CreatePipeHandles(SI.hStdInput,HI, APipeBufferSize);
@ -224,7 +224,7 @@ Var
FProcessAttributes : TSecurityAttributes;
FThreadAttributes : TSecurityAttributes;
FProcessInformation : TProcessInformation;
FStartupInfo : STARTUPINFO;
FStartupInfo : STARTUPINFOA;
HI,HO,HE : THandle;
Cmd : String;