Changeset 217 for branches/CpuSingleSize/UMemory.pas

Timestamp:

Oct 14, 2020, 7:34:55 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved assembler parsing.
• Modified: TParser moved to separate unit.

Location:

branches/CpuSingleSize

Files:

• . (modified) (1 prop)
• UMemory.pas (modified) (3 diffs)

branches/CpuSingleSize/UMemory.pas

@@ -25 +25 @@
     Position: Integer;
     procedure Write(Value: TInteger);
+    procedure WriteString(Value: string);
     procedure WriteMemory(Memory: TMemory);
     function Read: TInteger;
@@ -81 +82 @@
 procedure TMemory.Write(Value: TInteger);
 begin
-  if Position >= FSize then Size := Position + 1;
+  if Position + 1 > FSize then Size := Position + 1;
   Data[Position] := Value;
   Inc(Position);
+end;
+
+procedure TMemory.WriteString(Value: string);
+var
+  I: Integer;
+begin
+  if Length(Value) > 0 then begin
+    if Position + Length(Value) > FSize then Size := Position + Length(Value);
+    for I := 0 to Length(Value) - 1 do
+      Data[Position + I] := Ord(Value[I + 1]);
+    Inc(Position, Length(Value));
+  end;
 end;
 
@@ -91 +104 @@
     if Position + Memory.Size > FSize then Size := Position + Memory.Size;
     Move(Memory.Data[0], Data[Position], Memory.Size * SizeOf(TInteger));
+    Inc(Position, Memory.Size);
   end;
 end;