浏览代码

fppkg: fixed mem leak

mattias 2 年之前
父节点
当前提交
45cfdcc582
共有 1 个文件被更改,包括 9 次插入6 次删除
  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);