Changeset 152 for trunk/Target/TargetInterpreter.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: A typo in interpreter target name.

File:

• trunk/Target/TargetInterpreter.pas (moved) (moved from trunk/Target/TargetInterpretter.pas ) (32 diffs)

trunk/Target/TargetInterpreter.pas

@@ -1 @@
-unit TargetInterpretter;
+unit TargetInterpreter;
 
 interface
@@ -7 +7 @@
 
 type
-  TTargetInterpretter = class;
-
-  { TTargetInterpretterThread }
-
-  TTargetInterpretterThread = class(TThread)
+  TTargetInterpreter = class;
+
+  { TTargetInterpreterThread }
+
+  TTargetInterpreterThread = class(TThread)
   private
     FNewState: TRunState;
@@ -19 +19 @@
     procedure SetStateSafe(State: TRunState);
   public
-    Parent: TTargetInterpretter;
+    Parent: TTargetInterpreter;
     procedure Execute; override;
   end;
@@ -25 +25 @@
   TCommandHandler = procedure of object;
 
-  { TTargetInterpretter }
-
-  TTargetInterpretter = class(TBFTarget)
+  { TTargetInterpreter }
+
+  TTargetInterpreter = class(TBFTarget)
   private
     FThreadState: Boolean;
-    FThread: TTargetInterpretterThread;
+    FThread: TTargetInterpreterThread;
     FStepCount: Integer;
     FCommandTable: array[TMachineCommand] of TCommandHandler;
@@ -89 +89 @@
   SBreakPointIndexError = 'Break point index error: %d';
 
-{ TTargetInterpretterThread }
-
-procedure TTargetInterpretterThread.Execute;
+{ TTargetInterpreterThread }
+
+procedure TTargetInterpreterThread.Execute;
 var
   BreakPoint: TBreakPoint;
@@ -130 +130 @@
 end;
 
-procedure TTargetInterpretterThread.DoMessage;
+procedure TTargetInterpreterThread.DoMessage;
 begin
   Parent.SendMessage(FMessage);
 end;
 
-procedure TTargetInterpretterThread.DoSetState;
+procedure TTargetInterpreterThread.DoSetState;
 begin
   Parent.State := FNewState;
 end;
 
-procedure TTargetInterpretterThread.SetStateSafe(State: TRunState);
+procedure TTargetInterpreterThread.SetStateSafe(State: TRunState);
 begin
   if Parent.State = State then Exit;
@@ -147 +147 @@
 end;
 
-{ TTargetInterpretter }
-
-procedure TTargetInterpretter.SetState(AValue: TRunState);
+{ TTargetInterpreter }
+
+procedure TTargetInterpreter.SetState(AValue: TRunState);
 begin
   if FState = AValue then Exit;
@@ -156 +156 @@
 end;
 
-procedure TTargetInterpretter.SetThread(State: Boolean);
+procedure TTargetInterpreter.SetThread(State: Boolean);
 begin
   if FThreadState = State then Exit;
   FThreadState := State;
   if State then begin
-    FThread := TTargetInterpretterThread.Create(True);
+    FThread := TTargetInterpreterThread.Create(True);
     FThread.Parent := Self;
     FThread.FreeOnTerminate := False;
@@ -170 +170 @@
 end;
 
-procedure TTargetInterpretter.PrepareJumpTable;
+procedure TTargetInterpreter.PrepareJumpTable;
 type
   TArrayOfInteger = array of Integer;
@@ -205 +205 @@
 end;
 
-procedure TTargetInterpretter.CommandInput;
+procedure TTargetInterpreter.CommandInput;
 var
   Addr: Integer;
@@ -221 +221 @@
 end;
 
-procedure TTargetInterpretter.CommandOutput;
+procedure TTargetInterpreter.CommandOutput;
 begin
   if OutputPosition > Length(Output) then
@@ -231 +231 @@
 end;
 
-procedure TTargetInterpretter.CommandLoopStart;
+procedure TTargetInterpreter.CommandLoopStart;
 begin
   if Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] = 0 then
@@ -237 +237 @@
 end;
 
-procedure TTargetInterpretter.CommandLoopEnd;
+procedure TTargetInterpreter.CommandLoopEnd;
 begin
   if Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] > 0 then
@@ -243 +243 @@
 end;
 
-procedure TTargetInterpretter.CommandInc;
+procedure TTargetInterpreter.CommandInc;
 var
   Addr: Integer;
@@ -253 +253 @@
 end;
 
-procedure TTargetInterpretter.CommandDec;
+procedure TTargetInterpreter.CommandDec;
 var
   Addr: Integer;
@@ -263 +263 @@
 end;
 
-procedure TTargetInterpretter.CommandPointerInc;
+procedure TTargetInterpreter.CommandPointerInc;
 begin
   if MemoryPosition < MemorySize then
@@ -270 +270 @@
 end;
 
-procedure TTargetInterpretter.CommandPointerDec;
+procedure TTargetInterpreter.CommandPointerDec;
 begin
   if MemoryPosition > 0 then
@@ -277 +277 @@
 end;
 
-procedure TTargetInterpretter.CommandSet;
+procedure TTargetInterpreter.CommandSet;
 var
   Addr: Integer;
@@ -288 +288 @@
 end;
 
-procedure TTargetInterpretter.CommandMultiply;
+procedure TTargetInterpreter.CommandMultiply;
 var
   Addr: Integer;
@@ -300 +300 @@
 end;
 
-procedure TTargetInterpretter.Reset;
+procedure TTargetInterpreter.Reset;
 var
   I: Integer;
@@ -322 +322 @@
 end;
 
-procedure TTargetInterpretter.Compile;
+procedure TTargetInterpreter.Compile;
 begin
   inherited;
@@ -328 +328 @@
 end;
 
-procedure TTargetInterpretter.PrepareBreakPoints;
+procedure TTargetInterpreter.PrepareBreakPoints;
 var
   I: Integer;
@@ -340 +340 @@
 end;
 
-procedure TTargetInterpretter.CheckMemoryBounds(Address: Integer);
+procedure TTargetInterpreter.CheckMemoryBounds(Address: Integer);
 begin
   if Address < 0 then raise Exception.Create(SProgramLowerMemoryLimit);
@@ -346 +346 @@
 end;
 
-procedure TTargetInterpretter.EmitTargetCode;
+procedure TTargetInterpreter.EmitTargetCode;
 var
   I: Integer;
@@ -369 +369 @@
 end;
 
-function TTargetInterpretter.GetExecutionPosition: Integer;
+function TTargetInterpreter.GetExecutionPosition: Integer;
 begin
   Result := FProgramIndex;
 end;
 
-procedure TTargetInterpretter.OptimizeSource;
+procedure TTargetInterpreter.OptimizeSource;
 begin
   inherited;
 end;
 
-procedure TTargetInterpretter.Run;
+procedure TTargetInterpreter.Run;
 begin
   PrepareBreakPoints;
@@ -390 +390 @@
 end;
 
-procedure TTargetInterpretter.Pause;
+procedure TTargetInterpreter.Pause;
 begin
   if State = rsRunning then State := rsPaused;
 end;
 
-procedure TTargetInterpretter.Stop;
+procedure TTargetInterpreter.Stop;
 begin
   State := rsStopped;
@@ -401 +401 @@
 end;
 
-procedure TTargetInterpretter.StepInto;
+procedure TTargetInterpreter.StepInto;
 var
   Step: TDebugStep;
@@ -421 +421 @@
 end;
 
-procedure TTargetInterpretter.StepOver;
+procedure TTargetInterpreter.StepOver;
 var
   Step: TDebugStep;
@@ -440 +440 @@
 end;
 
-procedure TTargetInterpretter.StepOut;
+procedure TTargetInterpreter.StepOut;
 var
   Step: TDebugStep;
@@ -462 +462 @@
 end;
 
-procedure TTargetInterpretter.RunToCursor(Pos: Integer);
+procedure TTargetInterpreter.RunToCursor(Pos: Integer);
 begin
   Breakpoints.SetSystem(Pos);
@@ -468 +468 @@
 end;
 
-constructor TTargetInterpretter.Create;
+constructor TTargetInterpreter.Create;
 begin
   inherited;
-  FName := 'Interpretter';
+  FName := 'Interpreter';
   FImageIndex := 25;
   FCapabilities := [tcRun, tcPause, tcStop, tcCompile, tcStepOut, tcStepInto,
@@ -489 +489 @@
 end;
 
-destructor TTargetInterpretter.Destroy;
+destructor TTargetInterpreter.Destroy;
 begin
   FState := rsStopped;