Changeset 201 for branches/interpreter2/interpreter.lpr

Timestamp:

Apr 16, 2020, 7:40:38 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Memory leaks.

Location:

branches/interpreter2

Files:

• . (modified) (1 prop)
• interpreter.lpr (modified) (2 diffs)

branches/interpreter2/interpreter.lpr

@@ -7 +7 @@
   cthreads,
   {$ENDIF}{$ENDIF}
-  Interfaces, // this includes the LCL widgetset
+  Interfaces, SysUtils, // this includes the LCL widgetset
   Forms, UFormMain, UParser, UTokenizer, USource, UExecutor, UInterpreter
   { you can add units after this };
@@ -13 +13 @@
 {$R *.res}
 
+{$if declared(UseHeapTrace)}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$if declared(UseHeapTrace)}
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
   RequireDerivedFormResource:=True;
   Application.Scaled:=True;