Changeset 112 for trunk/Target/UTargetInterpretter.pas

Timestamp:

May 17, 2019, 10:06:59 PM (6 years ago)

Author:

chronos

Message:

• Modified: Redraw output form content only if output instruction was used in interpretter mode.
• Modified: Redraw memory form content only if memory was written in interpretter mode.
• Fixed: Replace windows newlines by unix newlines in interpretter output under Linux.

File:

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

trunk/Target/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, Forms, UTarget, UBFTarget;
+  Classes, SysUtils, Dialogs, Forms, UTarget, UBFTarget, Math;
 
 type
@@ -55 +55 @@
     Memory: array of Integer;
     MemoryPosition: Integer;
+    MemoryChanged: Boolean;
     Output: string;
     OutputPosition: Integer;
+    OutputChanged: Boolean;
     Input: string;
     InputPosition: Integer;
@@ -185 +187 @@
 
 procedure TTargetInterpretter.CommandInput;
-begin
+var
+  Addr: Integer;
+begin
+  Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
   while (InputPosition > Length(Input)) and (FState <> rsStopped) do begin
     Sleep(1);
   end;
   if InputPosition <= Length(Input) then begin
-    Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
-      Ord(Input[InputPosition]);
+    Memory[Addr] := Ord(Input[InputPosition]);
     Inc(InputPosition);
+    MemoryMaxUsedAddr := Max(Addr, MemoryMaxUsedAddr);
+    MemoryChanged := True;
   end;
 end;
@@ -199 +205 @@
 begin
   if OutputPosition > Length(Output) then
-    SetLength(Output, Length(Output) + 1 + Length(Output) div 4);
+    SetLength(Output, Length(Output) + 1);
   Output[OutputPosition] := Char(Memory[MemoryPosition +
     FProgram[FProgramIndex].RelIndex]);
   Inc(OutputPosition);
+  OutputChanged := True;
 end;
 
@@ -218 +225 @@
 
 procedure TTargetInterpretter.CommandInc;
-begin
-  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
-    ((Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] +
-    FProgram[FProgramIndex].Parameter) mod CellSize);
+var
+  Addr: Integer;
+begin
+  Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
+  Memory[Addr] := ((Memory[Addr] + FProgram[FProgramIndex].Parameter) mod CellSize);
+  MemoryMaxUsedAddr := Max(Addr, MemoryMaxUsedAddr);
+  MemoryChanged := True;
 end;
 
 procedure TTargetInterpretter.CommandDec;
-begin
-  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
-    ((Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] -
-    FProgram[FProgramIndex].Parameter) mod CellSize);
+var
+  Addr: Integer;
+begin
+  Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
+  Memory[Addr] := ((Memory[Addr] - FProgram[FProgramIndex].Parameter) mod CellSize);
+  MemoryMaxUsedAddr := Max(Addr, MemoryMaxUsedAddr);
+  MemoryChanged := True;
 end;
 
@@ -235 +248 @@
   if MemoryPosition < MemorySize then Inc(MemoryPosition, FProgram[FProgramIndex].Parameter)
     else raise Exception.Create(SProgramUpperLimit);
-  if (MemoryPosition + 1) > MemoryMaxUsed then
-    MemoryMaxUsed := MemoryPosition + 1;
 end;
 
@@ -246 +257 @@
 
 procedure TTargetInterpretter.CommandSet;
-begin
-  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
-    FProgram[FProgramIndex].Parameter mod CellSize;
+var
+  Addr: Integer;
+begin
+  Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
+  Memory[Addr] := FProgram[FProgramIndex].Parameter mod CellSize;
+  MemoryMaxUsedAddr := Max(Addr, MemoryMaxUsedAddr);
+  MemoryChanged := True;
 end;
 
 procedure TTargetInterpretter.CommandMultiply;
-begin
-  Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] :=
-    (Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] +
-    Memory[MemoryPosition] * FProgram[FProgramIndex].Parameter) mod CellSize;
+var
+  Addr: Integer;
+begin
+  Addr := MemoryPosition + FProgram[FProgramIndex].RelIndex;
+  Memory[Addr] := (Memory[Addr] + Memory[MemoryPosition] *
+    FProgram[FProgramIndex].Parameter) mod CellSize;
+  MemoryMaxUsedAddr := Max(Addr, MemoryMaxUsedAddr);
+  MemoryChanged := True;
 end;
 
@@ -270 +289 @@
   OutputPosition := 1;
   MemoryPosition := 0;
-  MemoryMaxUsed := 1;
+  MemoryMaxUsedAddr := 0;
   //FillChar(Pointer(Memory)^, Length(Memory), 0);
   for I := 0 to Length(Memory) - 1 do
     Memory[I] := 0;
+  MemoryChanged := True;
   FStepCount := 0;
   PrepareBreakPoints;