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

Timestamp:

Nov 25, 2023, 11:47:52 PM (12 months ago)

Author:

chronos

Message:

• Fixed: Assembler and disassembler to work correctly with supported instructions.

File:

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

branches/ByteArray/Devices/Memory.pas

@@ -16 +16 @@
     function GetSize: Integer;
     procedure SetSize(AValue: Integer);
+    procedure CheckGrow(Address: Integer);
   public
     Position: Integer;
+    Grow: Boolean;
     procedure Assign(Source: TMemory);
     function Read(Address: TBigInt; ASize: TBigIntSize): TBigInt;
@@ -28 +30 @@
     procedure SetChannel(Channel: TChannel); override;
     procedure SaveToFile(FileName: string);
-    procedure Clean;
+    procedure FillZero;
+    procedure Clear;
     property Size: Integer read FSize write SetSize;
     destructor Destroy; override;
@@ -50 +53 @@
   FSize := AValue;
   FData := ReAllocMem(FData, AValue);
+end;
+
+procedure TMemory.CheckGrow(Address: Integer);
+begin
+  if Grow and (Size < Address) then Size := Address;
 end;
 
@@ -90 +98 @@
 procedure TMemory.WritePos(ASize: Byte; Value: TBigInt);
 begin
+  CheckGrow(Position + ASize);
   Write(Position, ASize, Value);
   Inc(Position, ASize);
@@ -98 +107 @@
   I: Integer;
 begin
+  CheckGrow(Position + Length(Value));
   if Length(Value) > 0 then begin
     if Position + Length(Value) > FSize then Size := Position + Length(Value);
@@ -108 +118 @@
 procedure TMemory.WriteMemoryPos(Memory: TMemory);
 begin
+  CheckGrow(Position + Memory.Size);
   if Memory.Size > 0 then begin
     if Position + Memory.Size > FSize then Size := Position + Memory.Size;
@@ -126 +137 @@
 end;
 
-procedure TMemory.Clean;
+procedure TMemory.FillZero;
 begin
   FillChar(FData^, FSize, 0);
+end;
+
+procedure TMemory.Clear;
+begin
+  Size := 0;
+  Position := 0;
 end;