Changeset 128 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Jan 17, 2022, 4:53:31 PM (3 years ago)

Author:

chronos

Message:

• Added: Two more code examples.
• Added: Allow to disable debugging support.
• Added: Remember last opened tab in options form.

File:

• trunk/Target/UTargetInterpretter.pas (modified) (9 diffs)

trunk/Target/UTargetInterpretter.pas

@@ -46 +46 @@
     procedure CommandMultiply;
     procedure PrepareBreakPoints;
+    procedure CheckMemoryBounds(Address: Integer);
   protected
     procedure SetState(AValue: TRunState); override;
-    function GetTargetCode: string; override;
+    procedure EmitTargetCode;
     function GetExecutionPosition: Integer; override;
   public
@@ -82 +83 @@
   SProgramLowerLimit = 'Program run over lower limit';
   SProgramUpperLimit = 'Program run over upper limit';
-  SJumpTableInsistent = 'Jump table is inconsistent';
+  SJumpTableInconsistent = 'Jump table is inconsistent';
   SJumpTableCollision = 'Jump table collision';
   SProgramNotRunning = 'Program not running';
@@ -179 +180 @@
     end;
   end;
-  if Length(Loop) > 0 then raise Exception.Create(SJumpTableInsistent);
+  if Length(Loop) > 0 then raise Exception.Create(SJumpTableInconsistent);
 end;
 
@@ -242 +243 @@
 procedure TTargetInterpretter.CommandPointerInc;
 begin
-  if MemoryPosition < MemorySize then Inc(MemoryPosition, FProgram[FProgramIndex].Parameter)
+  if MemoryPosition < MemorySize then
+    Inc(MemoryPosition, FProgram[FProgramIndex].Parameter)
     else raise Exception.Create(SProgramUpperLimit);
 end;
@@ -248 +250 @@
 procedure TTargetInterpretter.CommandPointerDec;
 begin
-  if MemoryPosition > 0 then Dec(MemoryPosition, FProgram[FProgramIndex].Parameter)
+  if MemoryPosition > 0 then
+    Dec(MemoryPosition, FProgram[FProgramIndex].Parameter)
     else raise Exception.Create(SProgramLowerLimit);
 end;
@@ -257 +260 @@
 begin
   Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
+  CheckMemoryBounds(Addr);
   Memory[Addr] := FProgram[FProgramIndex].Parameter mod CellSize;
   MemoryMaxUsedAddr := Max(Addr, MemoryMaxUsedAddr);
@@ -267 +271 @@
 begin
   Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
+  CheckMemoryBounds(Addr);
   Memory[Addr] := (Memory[Addr] + Memory[MemoryPosition] *
     FProgram[FProgramIndex].Parameter) mod CellSize;
@@ -297 +302 @@
 begin
   inherited;
+  EmitTargetCode;
 end;
 
@@ -311 +317 @@
 end;
 
-function TTargetInterpretter.GetTargetCode: string;
+procedure TTargetInterpretter.CheckMemoryBounds(Address: Integer);
+begin
+  if Address < 0 then raise Exception.Create(SProgramLowerLimit);
+  if Address >= MemorySize then raise Exception.Create(SProgramUpperLimit);
+end;
+
+procedure TTargetInterpretter.EmitTargetCode;
 var
   I: Integer;
-begin
-  Result := '';
+  Code: string;
+  TargetIndex: Integer;
+  Step: TDebugStep;
+begin
+  TargetIndex := 0;
+  FTargetCode := '';
   for I := 0 to FProgram.Count - 1 do begin
-    Result := Result + GetOperationText(FProgram[I]);
+    Code := GetOperationText(FProgram[I]);
+    FTargetCode := FTargetCode + Code;
+    if DebugEnabled then begin
+      Step := DebugSteps.SearchByProgramPos(I);
+      if Assigned(Step) then begin
+        Step.TargetPosition := TargetIndex;
+      end;// else
+      // raise Exception.Create(Format('Program index %d missing debug step.', [I]));
+    end;
+    Inc(TargetIndex, Length(Code));
   end;
 end;