Changeset 152 for trunk/Forms/FormMemory.pas

Timestamp:

Jun 6, 2024, 9:10:15 PM (4 months ago)

Author:

chronos

Message:

• Fixed: A typo in interpreter target name.

File:

• trunk/Forms/FormMemory.pas (modified) (3 diffs)

trunk/Forms/FormMemory.pas

@@ -28 +28 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 { TFormMemory }
@@ -34 +34 @@
 procedure TFormMemory.Reload;
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do begin
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do begin
     if MemoryChanged then begin
       MemoryChanged := False;
@@ -51 +51 @@
   Address: Integer;
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do
   if (Item.Index >= 0) and (Item.Index <= Trunc((MemoryMaxUsedAddr + 1) / RowSize)) then begin
     Item.Caption := IntToHex(Item.Index * RowSize, 8);