Changeset 176 for branches/virtualcpu4/virtucpu4.lpr

Timestamp:

Apr 12, 2019, 11:43:24 AM (5 years ago)

Author:

chronos

Message:

• Modified: Optimization of draw only modified part of screen.

Location:

branches/virtualcpu4

Files:

• . (modified) (1 prop)
• virtucpu4.lpr (modified) (1 diff)

branches/virtualcpu4

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc

branches/virtualcpu4/virtucpu4.lpr

@@ -5 +5 @@
 uses
   {$IFDEF UNIX}
-  cthreads,
+  cthreads, clocale,
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormMain, UCpu, UMachine
+  SysUtils, Forms, UFormMain, UCpu, UMachine
   { you can add units after this };
 
 {$R *.res}
 
+{$if declared(UseHeapTrace)}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$if declared(UseHeapTrace)}
+  // Heap trace
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
   RequireDerivedFormResource:=True;
   Application.Scaled:=True;

@@ -4 +4 @@
 *.lps
 *.res
+heaptrclog.trc