Changeset 52 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Jul 26, 2012, 3:11:08 PM (12 years ago)

Author:

chronos

Message:

• Modified: Optimization functions moved to shared place in TTarget.
• Modified: Text source is loaded to program source array of brainfuck commands for better processing.

File:

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

trunk/Target/UTargetInterpretter.pas

@@ -22 +22 @@
     procedure Execute; override;
   end;
-
-  TBrainFuckCommand = (cmNoOperation, cmInc, cmDec, cmPointerInc, cmPointerDec,
-    cmOutput, cmInput, cmLoopStart, cmLoopEnd, cmDebug);
 
   TCommandHandler = procedure of object;
@@ -55 +52 @@
     function GetExecutionPosition: Integer; override;
   public
-    FProgram: array of TBrainFuckCommand;
     FProgramBreakpoints: array of Boolean;
     SourceJump: array of Integer;
-    SourcePosition: Integer;
     SourceBreakpoint: array of Boolean;
     Memory: array of Integer;
@@ -109 +104 @@
   with Parent do
   repeat
-    while (SourcePosition < Length(FProgram)) and (State <> rsStopped) do begin
+    while (FProgramIndex < Length(FProgram)) and (State <> rsStopped) do begin
       if State = rsRunning then begin
-        if FProgramBreakpoints[SourcePosition] then begin
-          BreakPoint := BreakPoints.SearchByTargetPos(SourcePosition);
+        if FProgramBreakpoints[FProgramIndex] then begin
+          BreakPoint := BreakPoints.SearchByTargetPos(FProgramIndex);
           if BreakPoint.System then BreakPoints.Delete(BreakPoints.IndexOf(BreakPoint));
           SetStateSafe(rsPaused);
         end else begin
-          FCommandTable[FProgram[SourcePosition]];
-          Inc(SourcePosition);
+          FCommandTable[FProgram[FProgramIndex]];
+          Inc(FProgramIndex);
           Inc(FStepCount);
         end;
@@ -155 +150 @@
 begin
   SetLength(Memory, AValue);
-end;
-
-procedure TTargetInterpretter.Compile;
-var
-  I: Integer;
-  Pos: Integer;
-begin
-  inherited;
-  DebugSteps.Clear;
-  SetLength(FProgram, Length(FSourceCode));
-  Pos := 0;
-  for I := 1 to Length(FSourceCode) do begin
-    case FSourceCode[I] of
-      '+': begin
-        FProgram[Pos] := cmInc;
-        DebugSteps.AddStep(I - 1, Pos, soNormal);
-      end;
-      '-': begin
-        FProgram[Pos] := cmDec;
-        DebugSteps.AddStep(I - 1, Pos, soNormal);
-      end;
-      '>': begin
-        FProgram[Pos] := cmPointerInc;
-        DebugSteps.AddStep(I - 1, Pos, soNormal);
-      end;
-      '<': begin
-        FProgram[Pos] := cmPointerDec;
-        DebugSteps.AddStep(I - 1, Pos, soNormal);
-      end;
-      ',': begin
-        FProgram[Pos] := cmInput;
-        DebugSteps.AddStep(I - 1, Pos, soNormal);
-      end;
-      '.': begin
-        FProgram[Pos] := cmOutput;
-        DebugSteps.AddStep(I - 1, Pos, soNormal);
-      end;
-      '[': begin
-        FProgram[Pos] := cmLoopStart;
-        DebugSteps.AddStep(I - 1, Pos, soStepIn);
-      end;
-      ']': begin
-        FProgram[Pos] := cmLoopEnd;
-        DebugSteps.AddStep(I - 1, Pos, soStepOut);
-      end
-      else Dec(Pos);
-    end;
-    Inc(Pos);
-  end;
-  SetLength(FProgram, Pos);
 end;
 
@@ -293 +238 @@
 begin
   if Memory[MemoryPosition] = 0 then
-    SourcePosition := SourceJump[SourcePosition];
+    FProgramIndex := SourceJump[FProgramIndex];
 end;
 
@@ -299 +244 @@
 begin
   if Memory[MemoryPosition] > 0 then
-    SourcePosition := SourceJump[SourcePosition] - 1;
+    FProgramIndex := SourceJump[FProgramIndex] - 1;
 end;
 
@@ -308 +253 @@
   inherited;
   PrepareJumpTable;
-  SourcePosition := 0;
+  FProgramIndex := 0;
   InputPosition := 1;
   Output := '';
@@ -320 +265 @@
 end;
 
+procedure TTargetInterpretter.Compile;
+begin
+  inherited;
+end;
+
 procedure TTargetInterpretter.PrepareBreakPoints;
 var
@@ -343 +293 @@
 function TTargetInterpretter.GetExecutionPosition: Integer;
 begin
-  Result := SourcePosition;
+  Result := FProgramIndex;
 end;
 
@@ -379 +329 @@
 begin
   if State = rsPaused then begin
-    Step := DebugSteps.SearchByTargetPos(SourcePosition);
+    Step := DebugSteps.SearchByTargetPos(FProgramIndex);
     if Step.Operation = soStepOut then begin
       BreakPoints.SetSystem(Step.TargetPosition + 1);
@@ -401 +351 @@
 begin
   if State = rsPaused then begin
-    Step := DebugSteps.SearchByTargetPos(SourcePosition);
+    Step := DebugSteps.SearchByTargetPos(FProgramIndex);
     if Step.Operation = soStepOut then begin
       BreakPoints.SetSystem(Step.TargetPosition + 1);
@@ -422 +372 @@
 begin
   if State = rsPaused then begin
-    Step := DebugSteps.SearchByTargetPos(SourcePosition);
+    Step := DebugSteps.SearchByTargetPos(FProgramIndex);
     StepIndex := DebugSteps.IndexOf(Step);
     Nesting := 1;