Changeset 15 for trunk/LibrePaint.lpr

Timestamp:

Sep 22, 2014, 11:06:27 PM (10 years ago)

Author:

chronos

Message:

• Added: Memory leaks reporting in debug mode.
• Fixed: Various memory leaks in bitmap, color and colorformat classes.

File:

• trunk/LibrePaint.lpr (modified) (2 diffs)

trunk/LibrePaint.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UCore, UGraphic, UProject, UMemory, UFormNew, UFormMain,
+  SysUtils, Forms, UCore, UGraphic, UProject, UMemory, UFormNew, UFormMain,
   UColorRGBA8, UColorGray8, UColorGray1, UColorGray4, UColorRGB565
   { you can add units after this };
@@ -14 +14 @@
 {$R *.res}
 
+{$IFDEF DEBUG}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$IFDEF DEBUG}
+  // Heap trace
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
   RequireDerivedFormResource := True;
   Application.Initialize;