Changeset 78 for trunk/Forms/UFormMemory.pas

Timestamp:

Jan 1, 2017, 12:59:53 AM (8 years ago)

Author:

chronos

Message:

• Modified: Show only really used memory.
• Added: Check memory leaks in Debug build mode.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormMemory.pas (modified) (3 diffs)

trunk

@@ -5 +5 @@
 LazFuck
 compiled
+heaptrclog.trc

@@ -5 +5 @@
 LazFuck
 compiled
+heaptrclog.trc

trunk/Forms/UFormMemory.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls;
+  ComCtrls, Math;
 
 const
@@ -42 +42 @@
   if Core.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(Core.CurrentTarget) do begin
-    ListViewMemory.Items.Count := Trunc(Length(Memory) / RowSize);
+    ListViewMemory.Items.Count := Ceil(MemoryMaxUsed / RowSize);
     ListViewMemory.Refresh;
   end;
@@ -54 +54 @@
   if Core.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(Core.CurrentTarget) do
-  if (Item.Index >= 0) and (Item.Index < Trunc(Length(Memory) / RowSize)) then begin
+  if (Item.Index >= 0) and (Item.Index <= Trunc(MemoryMaxUsed / RowSize)) then begin
     Item.Caption := IntToHex(Item.Index * RowSize, 8);
     Row := '';
     for I := 0 to RowSize - 1 do
-      Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
+      if (Item.Index * RowSize + I) < MemoryMaxUsed then
+        Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
     Item.SubItems.Add(Row);
   end;

@@ -5 +5 @@
 LazFuck
 compiled
+heaptrclog.trc