Changeset 50 for branches/ByteArray/Devices/Memory.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (7 months ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

• branches/ByteArray/Devices/Memory.pas (modified) (5 diffs)

branches/ByteArray/Devices/Memory.pas

@@ -17 +17 @@
   public
     Position: Integer;
+    procedure Assign(Source: TMemory);
     function Read(Address: TBigInt; ASize: TBigIntSize): TBigInt;
     function ReadPos(ASize: Byte): TBigInt;
@@ -22 +23 @@
     procedure WritePos(ASize: Byte; Value: TBigInt);
     procedure WriteStringPos(Value: string);
+    procedure WriteMemoryPos(Memory: TMemory);
     function GetAddressCount: Integer; override;
     procedure SetChannel(Channel: TChannel); override;
     procedure Clean;
     property Size: Integer read GetSize write SetSize;
+    destructor Destroy; override;
   end;
 
@@ -44 +47 @@
 begin
   FData := ReAllocMem(FData, AValue);
+end;
+
+procedure TMemory.Assign(Source: TMemory);
+begin
+  Size := Source.Size;
+  if Size > 0 then
+    Move(Source.FData[0], FData[0], Size);
+  Position := Source.Position;
 end;
 
@@ -90 +101 @@
 end;
 
+procedure TMemory.WriteMemoryPos(Memory: TMemory);
+begin
+  if Memory.Size > 0 then begin
+    if Position + Memory.Size > Size then Size := Position + Memory.Size;
+    Move(Memory.FData[0], FData[Position], Memory.Size);
+    Inc(Position, Memory.Size);
+  end;
+end;
+
 function TMemory.GetAddressCount: Integer;
 begin
@@ -106 +126 @@
 end;
 
+destructor TMemory.Destroy;
+begin
+  Size := 0;
+  inherited;
+end;
+
 end.