Changeset 152 for trunk/Forms/FormMain.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/FormMain.pas (modified) (4 diffs)

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;