Changeset 8 for branches/bigint/BigIntVM.lpr

Timestamp:

Aug 2, 2024, 9:36:35 AM (3 months ago)

Author:

chronos

Message:

• Added: Common package.
• Added: Memory form to show content of memory.

Location:

branches/bigint

Files:

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

branches/bigint

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc

branches/bigint/BigIntVM.lpr

@@ -3 +3 @@
 uses
   {$IFDEF UNIX}
-  cthreads,
+  cthreads, clocale,
   {$ENDIF}
   {$IFDEF HASAMIGA}
   athreads,
   {$ENDIF}
-  Interfaces, // this includes the LCL widgetset
-  Forms, FormMain, FormDisassembler, Cpu, Memory, Int, Machine, DeviceManager,
-  Screen, Console, Device, Assembler, Instructions, Parser, Message,
-  Disassembler
+  Interfaces, SysUtils, // this includes the LCL widgetset
+  Forms, FormMain, FormDisassembler, FormMemory, Cpu, IntMemory, Int, Machine,
+  DeviceManager, Screen, Console, Device, Assembler, Instructions, Parser,
+  Message, Disassembler, CommonPackage
   { 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 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc