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

* Patch from Vincent Snijders to initialize some variables correctly

Browse Source
This commit is contained in:
michael 2004-09-10 20:31:50 +00:00
parent 2e629a4355
commit 312405c3b3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/win32/process.inc
View File

@ -88,12 +88,14 @@ Procedure InitProcessAttributes(P : TProcess; Var PA : TSecurityAttributes);
begin
FillChar(PA,SizeOf(PA),0);
PA.nLength := SizeOf(PA);
end;
Procedure InitThreadAttributes(P : TProcess; Var TA : TSecurityAttributes);
begin
FillChar(TA,SizeOf(TA),0);
TA.nLength := SizeOf(TA);
end;
Procedure InitStartupInfo(P : TProcess; Var SI : STARTUPINFO);
@ -175,7 +177,7 @@ Var
HI,HO,HE : THandle;
begin
FInheritHandles:=True;
FInheritHandles:=True;
PName:=Nil;
PCommandLine:=Nil;
PDir:=Nil;