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

fppkg: fixed mem leak

Browse Source
This commit is contained in:
mattias 2023-07-20 08:01:47 +02:00
parent c249495e2d
commit 45cfdcc582
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fppkg/src/pkgglobals.pp
View File

@ -377,12 +377,15 @@ begin
Close (TmpFile); Close (TmpFile);
{$ELSE USE_SHELL} {$ELSE USE_SHELL}
S:=TProcess.Create(Nil); S:=TProcess.Create(Nil);
try
S.Commandline:=ACompiler+' '+AOptions; S.Commandline:=ACompiler+' '+AOptions;
S.ShowWindow:=swoHIDE; S.ShowWindow:=swoHIDE;
S.Options:=[poUsePipes]; S.Options:=[poUsePipes];
S.execute; S.execute;
Count:=s.output.read(buf,BufSize); Count:=s.output.read(buf,BufSize);
finally
S.Free; S.Free;
end;
{$ENDIF USE_SHELL} {$ENDIF USE_SHELL}
SetLength(Result,Count); SetLength(Result,Count);
Move(Buf,Result[1],Count); Move(Buf,Result[1],Count);