Changeset 152 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Fixed: A typo in interpreter target name.

Location:

trunk/Forms

Files:

• FormCPU.pas (modified) (2 diffs)
• FormInput.pas (modified) (1 diff)
• FormMain.pas (modified) (4 diffs)
• FormMemory.pas (modified) (3 diffs)
• FormOutput.pas (modified) (2 diffs)

trunk/Forms/FormCPU.pas

@@ -32 +32 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 {$R *.lfm}
@@ -43 +43 @@
 procedure TFormCPU.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
     LabelProgramPointer.Caption := IntToStr(ProgramIndex);
     LabelMemoryPointer.Caption := IntToStr(MemoryPosition);

trunk/Forms/FormInput.pas

@@ -23 +23 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char);
 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
     Input := Input + Key;
 end;

trunk/Forms/FormMain.pas

@@ -136 +136 @@
     procedure AShowTargetPositionExecute(Sender: TObject);
     procedure AViewCompilersExecute(Sender: TObject);
-    procedure AViewInterpretterExecute(Sender: TObject);
+    procedure AViewInterpreterExecute(Sender: TObject);
     procedure AViewLogExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -176 +176 @@
 
 uses
-  Core, TargetInterpretter, BFTarget, Common, FormAbout;
+  Core, TargetInterpreter, BFTarget, Common, FormAbout;
 
 resourcestring
@@ -403 +403 @@
 procedure TFormMain.AProgramRunExecute(Sender: TObject);
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-    TTargetInterpretter(Core.Core.CurrentTarget).Input := FormInput.MemoInput.Lines.Text;
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+    TTargetInterpreter(Core.Core.CurrentTarget).Input := FormInput.MemoInput.Lines.Text;
   if not Core.Core.CurrentTarget.Compiled then AProgramCompile.Execute;
   Core.Core.CurrentTarget.Run;
@@ -442 +442 @@
 end;
 
-procedure TFormMain.AViewInterpretterExecute(Sender: TObject);
+procedure TFormMain.AViewInterpreterExecute(Sender: TObject);
 begin
   FormCPU.Show;

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);

trunk/Forms/FormOutput.pas

@@ -24 +24 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 { TFormOutput }
@@ -30 +30 @@
 procedure TFormOutput.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 OutputChanged then begin
       OutputChanged := False;