Changeset 126 for trunk/Target/UTargetInterpretter.pas

Timestamp:

Jan 14, 2022, 7:13:36 PM (3 years ago)

Author:

chronos

Message:

• Modified: SetZero optimization made as separate step.
• Fixed: Error during compilation in CopyMultiply optimization.

File:

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

trunk/Target/UTargetInterpretter.pas

@@ -83 +83 @@
   SProgramUpperLimit = 'Program run over upper limit';
   SJumpTableInsistent = 'Jump table is inconsistent';
-  SJumpTableColision = 'Jump table colision';
+  SJumpTableCollision = 'Jump table collision';
   SProgramNotRunning = 'Program not running';
   SUnsupportedCommand = 'Unsupported command';
@@ -95 +95 @@
   with Parent do
   repeat
-    while (FProgramIndex < Length(FProgram)) and (State <> rsStopped) do begin
+    while (FProgramIndex < FProgram.Count) and (State <> rsStopped) do begin
       if State = rsRunning then begin
         if FProgramBreakpoints[FProgramIndex] then begin
@@ -154 +154 @@
   I: Integer;
 begin
-  for I := 0 to Length(FProgram) - 1 do begin
+  for I := 0 to FProgram.Count - 1 do begin
     case FProgram[I].Command of
-      cmLoopStart: FProgram[I].Parameter := 0;
-      cmLoopEnd: FProgram[I].Parameter := 0;
+      cmLoopStart: FProgram.Operations[I].Parameter := 0;
+      cmLoopEnd: FProgram.Operations[I].Parameter := 0;
     end;
   end;
 
   SetLength(Loop, 0);
-  for I := 0 to Length(FProgram) - 1 do begin
+  for I := 0 to FProgram.Count - 1 do begin
     case FProgram[I].Command of
       cmLoopStart: begin
@@ -170 +170 @@
       cmLoopEnd: begin
         if FProgram[I].Parameter > 0 then
-          raise Exception.Create(SJumpTableColision);
-        FProgram[I].Parameter := Loop[High(Loop)];
+          raise Exception.Create(SJumpTableCollision);
+        FProgram.Operations[I].Parameter := Loop[High(Loop)];
         if FProgram[Loop[High(Loop)]].Parameter > 0 then
-          raise Exception.Create(SJumpTableColision);
-        FProgram[Loop[High(Loop)]].Parameter := I;
+          raise Exception.Create(SJumpTableCollision);
+        FProgram.Operations[Loop[High(Loop)]].Parameter := I;
         SetLength(Loop, Length(Loop) - 1);
       end;
@@ -303 +303 @@
   I: Integer;
 begin
-  SetLength(FProgramBreakpoints, Length(FProgram));
+  SetLength(FProgramBreakpoints, FProgram.Count);
   for I := 0 to High(FProgramBreakpoints) do
     FProgramBreakpoints[I] := False;
   for I := 0 to BreakPoints.Count - 1 do
-    if TBreakPoint(BreakPoints[I]).TargetAddress < Length(FProgramBreakpoints) then
-      FProgramBreakpoints[TBreakPoint(BreakPoints[I]).TargetAddress] := True;
+    if BreakPoints[I].TargetAddress < Length(FProgramBreakpoints) then
+      FProgramBreakpoints[BreakPoints[I].TargetAddress] := True;
 end;
 
@@ -316 +316 @@
 begin
   Result := '';
-  for I := 0 to Length(FProgram) - 1 do begin
+  for I := 0 to FProgram.Count - 1 do begin
     Result := Result + GetOperationText(FProgram[I]);
   end;
@@ -438 +438 @@
   // Extended commands
   FCommandTable[cmSet] := CommandSet;
-  FCommandTable[cmMultipy] := CommandMultiply;
+  FCommandTable[cmMultiply] := CommandMultiply;
 end;