Changeset 35 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Feb 19, 2012, 12:03:21 AM (13 years ago)

Author:

chronos

Message:

• Added: Function to show execution point in code if program is paused.
• Added: Some partial stepping implementation.

File:

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

trunk/Target/UTargetInterpretter.pas

@@ -45 +45 @@
     procedure CommandLoopStart;
     procedure CommandLoopEnd;
-    procedure SingleStep;
     procedure Reset;
+    procedure PrepareBreakPoints;
   protected
     function GetTargetCode: string; override;
+    function GetExecutionPosition: Integer; override;
   public
     FProgram: array of TBrainFuckCommand;
+    FProgramBreakpoints: array of Boolean;
     SourceJump: array of Integer;
     SourcePosition: Integer;
@@ -64 +66 @@
     procedure Pause; override;
     procedure Stop; override;
+    procedure StepInto; override;
+    procedure StepOver; override;
+    procedure StepOut; override;
+    procedure RunToCursor(Pos: Integer); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -92 +98 @@
 procedure TTargetInterpretterThread.Execute;
 begin
+  with Parent do
   repeat
-    while (Parent.SourcePosition < Length(Parent.FProgram)) and (Parent.State <> rsStopped) do begin
-      Parent.SingleStep;
-      while Parent.State = rsPaused do begin
-        Sleep(1);
-      end;
+    while (SourcePosition < Length(FProgram)) and (State <> rsStopped) do begin
+      if State = rsRunning then begin
+        if FProgramBreakpoints[SourcePosition] then begin
+          FProgramBreakpoints[SourcePosition] := False;
+          SetState(rsPaused);
+        end else begin
+          FCommandTable[FProgram[SourcePosition]];
+          Inc(SourcePosition);
+          Inc(FStepCount);
+        end;
+      end else
+      if State = rsPaused then Sleep(1);
     end;
-    Parent.SetState(rsStopped);
-  until Terminated or (Parent.State = rsStopped);
+    SetState(rsStopped);
+  until Terminated or (State = rsStopped);
 end;
 
@@ -127 +141 @@
   Pos: Integer;
 begin
+  inherited;
   DebugSteps.Clear;
   SetLength(FProgram, Length(FSourceCode));
@@ -282 +297 @@
 end;
 
+procedure TTargetInterpretter.PrepareBreakPoints;
+var
+  I: Integer;
+begin
+  SetLength(FProgramBreakpoints, Length(FProgram));
+  for I := 0 to High(FProgramBreakpoints) do
+    FProgramBreakpoints[I] := False;
+  for I := 0 to BreakPoints.Count - 1 do
+    FProgramBreakpoints[BreakPoints[I]] := True;
+end;
+
 function TTargetInterpretter.GetTargetCode: string;
 var
@@ -291 +317 @@
 end;
 
-procedure TTargetInterpretter.SingleStep;
-begin
-  FCommandTable[FProgram[SourcePosition]];
-  Inc(SourcePosition);
-  Inc(FStepCount);
+function TTargetInterpretter.GetExecutionPosition: Integer;
+begin
+  Result := SourcePosition;
 end;
 
@@ -302 +326 @@
   SetState(rsRunning);
   Reset;
+  PrepareBreakPoints;
   SetThread(False);
   SetThread(True);
@@ -314 +339 @@
 begin
   SetState(rsStopped);
+end;
+
+procedure TTargetInterpretter.StepInto;
+var
+  Step: TDebugStep;
+begin
+  Step := DebugSteps.SearchByTargetPos(SourcePosition);
+  FProgramBreakpoints[Step.TargetPosition + 1] := True;
+end;
+
+procedure TTargetInterpretter.StepOver;
+var
+  Step: TDebugStep;
+begin
+end;
+
+procedure TTargetInterpretter.StepOut;
+begin
+  inherited StepOut;
+end;
+
+procedure TTargetInterpretter.RunToCursor(Pos: Integer);
+begin
+  FProgramBreakpoints[Pos] := True;
 end;