Changeset 4 for branches/bigint/Memory.pas

Timestamp:

Aug 1, 2024, 10:47:04 PM (3 months ago)

Author:

chronos

Message:

• Added: Assembler to parse instructions from text string and produce binary code.

File:

• branches/bigint/Memory.pas (modified) (2 diffs)

branches/bigint/Memory.pas

@@ -21 +21 @@
     procedure WritePos(Data: TInt);
     function ReadPos: TInt;
+    procedure CopyFrom(Source: TMemory; Dst, Src, Count: TInt);
+    procedure WriteStringPos(Value: string);
     property Size: TInt read GetSize write SetSize;
     property Position: TInt read FPosition write FPosition;
+    property Items[Index: TInt]: TInt read Read write Write; default;
   end;
 
@@ -62 +65 @@
 end;
 
+procedure TMemory.CopyFrom(Source: TMemory; Dst, Src, Count: TInt);
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do begin
+    Write(Dst, Source.Read(Src));
+    Inc(Dst);
+    Inc(Src);
+  end;
+end;
+
+procedure TMemory.WriteStringPos(Value: string);
+var
+  I: Integer;
+begin
+  if Length(Value) > 0 then begin
+    if Position + Length(Value) > Size then Size := Position + Length(Value);
+    for I := 0 to Length(Value) - 1 do
+      Items[Position + I] := Ord(Value[I + 1]);
+    Inc(FPosition, Length(Value));
+  end;
+end;
+
 end.