Procházet zdrojové kódy

fppkg: fixed mem leak

mattias před 2 roky
rodič
revize
45cfdcc582
1 změnil soubory, kde provedl 9 přidání a 6 odebrání
  1. 9 6
      packages/fppkg/src/pkgglobals.pp

+ 9 - 6
packages/fppkg/src/pkgglobals.pp

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