Fix some minor (compile time) memory leaks

Villavu · Sep 16, 2023 · 671ed33 · 671ed33
1 parent a46543d
commit 671ed33
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/Source/Simba.lpr b/Source/Simba.lpr
@@ -23,7 +23,7 @@
 
 begin
   {$IF DECLARED(SetHeapTraceOutput)}
-  SetHeapTraceOutput(IntToStr(GetProcessID()) + '.trc');
+  SetHeapTraceOutput(Application.Location + '/' + IntToStr(GetProcessID()) + '.trc');
   {$ENDIF}
 
   Application.CaptureExceptions := False;

diff --git a/Source/script/simba.script.pas b/Source/script/simba.script.pas
@@ -288,7 +288,14 @@ destructor TSimbaScript.Destroy;
   FPlugins := nil;
 
   if (FCompiler <> nil) then
+  begin
+    if (FCompiler.Globals['HTTPClient'] <> nil) then
+      TObject(FCompiler.Globals['HTTPClient'].Ptr^).Free();
+    if (FCompiler.Globals['ASyncMouse'] <> nil) then
+      TObject(FCompiler.Globals['ASyncMouse'].Ptr^).Free();
+
     FreeAndNil(FCompiler);
+  end;
   if (FSimbaCommunication <> nil) then
     FreeAndNil(FSimbaCommunication);
 

diff --git a/Third-Party/lape b/Third-Party/lape