Changeset 112 for trunk/Forms/UFormMemory.pas

Timestamp:

May 17, 2019, 10:06:59 PM (5 years ago)

Author:

chronos

Message:

• Modified: Redraw output form content only if output instruction was used in interpretter mode.
• Modified: Redraw memory form content only if memory was written in interpretter mode.
• Fixed: Replace windows newlines by unix newlines in interpretter output under Linux.

File:

• trunk/Forms/UFormMemory.pas (modified) (2 diffs)

trunk/Forms/UFormMemory.pas

@@ -42 +42 @@
   if Core.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(Core.CurrentTarget) do begin
-    ListViewMemory.Items.Count := Ceil(MemoryMaxUsed / RowSize);
-    ListViewMemory.Refresh;
+    if MemoryChanged then begin
+      MemoryChanged := False;
+      ListViewMemory.Items.Count := Ceil((MemoryMaxUsedAddr + 1) / RowSize);
+      ListViewMemory.Refresh;
+    end;
   end;
 end;
@@ -54 +57 @@
   if Core.CurrentTarget is TTargetInterpretter then
   with TTargetInterpretter(Core.CurrentTarget) do
-  if (Item.Index >= 0) and (Item.Index <= Trunc(MemoryMaxUsed / RowSize)) then begin
+  if (Item.Index >= 0) and (Item.Index <= Trunc((MemoryMaxUsedAddr + 1) / RowSize)) then begin
     Item.Caption := IntToHex(Item.Index * RowSize, 8);
     Row := '';
     for I := 0 to RowSize - 1 do
-      if (Item.Index * RowSize + I) < MemoryMaxUsed then
+      if (Item.Index * RowSize + I) < (MemoryMaxUsedAddr + 1) then
         Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
     Item.SubItems.Add(Row);