Changeset 68 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Oct 11, 2015, 6:28:24 PM (9 years ago)

Author:

chronos

Message:

• Modified: Used jump instructions parameter instead of special sourcejump auxiliary array.

File:

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

trunk/Target/UTargetInterpretter.pas

@@ -55 +55 @@
   public
     FProgramBreakpoints: array of Boolean;
-    SourceJump: array of Integer;
     SourceBreakpoint: array of Boolean;
     Memory: array of Integer;
@@ -176 +175 @@
   I: Integer;
 begin
-  SetLength(SourceJump, Length(FProgram));
-  //FillChar(Pointer(SourceJump)^, Length(SourceJump), 0);
-  for I := 0 to Length(FProgram) - 1 do
-    SourceJump[I] := 0;
   SetLength(Loop, 0);
   for I := 0 to Length(FProgram) - 1 do begin
@@ -188 +183 @@
       end;
       cmLoopEnd: begin
-        if SourceJump[I] > 0 then raise Exception.Create(SJumpTableColision);
-        SourceJump[I] := Loop[High(Loop)];
-        if SourceJump[Loop[High(Loop)]] > 0 then raise Exception.Create(SJumpTableColision);
-        SourceJump[Loop[High(Loop)]] := I;
+        if FProgram[I].Parameter > 0 then
+          raise Exception.Create(SJumpTableColision);
+        FProgram[I].Parameter := Loop[High(Loop)];
+        if FProgram[Loop[High(Loop)]].Parameter > 0 then
+          raise Exception.Create(SJumpTableColision);
+        FProgram[Loop[High(Loop)]].Parameter := I;
         SetLength(Loop, Length(Loop) - 1);
       end;
@@ -221 +218 @@
 begin
   if Memory[MemoryPosition] = 0 then
-    FProgramIndex := SourceJump[FProgramIndex];
+    FProgramIndex := FProgram[FProgramIndex].Parameter;
 end;
 
@@ -227 +224 @@
 begin
   if Memory[MemoryPosition] > 0 then
-    FProgramIndex := SourceJump[FProgramIndex] - 1;
+    FProgramIndex := FProgram[FProgramIndex].Parameter - 1;
 end;
 
@@ -347 +344 @@
     if Step.Operation = soStepOut then begin
       BreakPoints.SetSystem(Step.TargetPosition + 1);
-      Step := DebugSteps.SearchByTargetPos(SourceJump[Step.TargetPosition]);
+      Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter);
       BreakPoints.AddSystem(Step.TargetPosition);
     end else
     if Step.Operation = soStepIn then begin
       BreakPoints.SetSystem(Step.TargetPosition + 1);
-      Step := DebugSteps.SearchByTargetPos(SourceJump[Step.TargetPosition]);
+      Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter);
       BreakPoints.AddSystem(Step.TargetPosition);
     end else BreakPoints.SetSystem(Step.TargetPosition + 1);
@@ -369 +366 @@
     if Step.Operation = soStepOut then begin
       BreakPoints.SetSystem(Step.TargetPosition + 1);
-      Step := DebugSteps.SearchByTargetPos(SourceJump[Step.TargetPosition]);
+      Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter);
       BreakPoints.AddSystem(Step.TargetPosition);
     end else
     if Step.Operation = soStepIn then begin
-      Step := DebugSteps.SearchByTargetPos(SourceJump[Step.TargetPosition]);
+      Step := DebugSteps.SearchByTargetPos(FProgram[Step.TargetPosition].Parameter);
       BreakPoints.SetSystem(Step.TargetPosition + 1);
     end else BreakPoints.SetSystem(Step.TargetPosition + 1);