Changeset 8 for branches/bigint/IntMemory.pas

Timestamp:

Aug 2, 2024, 9:36:35 AM (3 months ago)

Author:

chronos

Message:

• Added: Common package.
• Added: Memory form to show content of memory.

Location:

branches/bigint

Files:

• . (modified) (1 prop)
• IntMemory.pas (moved) (moved from branches/bigint/Memory.pas ) (7 diffs)

branches/bigint

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc

branches/bigint/IntMemory.pas

@@ -1 @@
-unit Memory;
+unit IntMemory;
 
 interface
@@ -8 +8 @@
 type
 
-  { TMemory }
+  { TIntMemory }
 
-  TMemory = class
+  TIntMemory = class
   private
     FData: array of TInt;
@@ -21 +21 @@
     procedure WritePos(Data: TInt);
     function ReadPos: TInt;
-    procedure CopyFrom(Source: TMemory; Dst, Src, Count: TInt);
+    procedure CopyFrom(Source: TIntMemory; Dst, Src, Count: TInt);
     procedure WriteStringPos(Value: string);
     property Size: TInt read GetSize write SetSize;
@@ -31 +31 @@
 implementation
 
-{ TMemory }
+{ TIntMemory }
 
-function TMemory.GetSize: TInt;
+function TIntMemory.GetSize: TInt;
 begin
   Result := Length(FData);
 end;
 
-procedure TMemory.SetSize(AValue: TInt);
+procedure TIntMemory.SetSize(AValue: TInt);
 begin
   SetLength(FData, AValue);
 end;
 
-procedure TMemory.Write(Address, Data: TInt);
+procedure TIntMemory.Write(Address, Data: TInt);
 begin
   FData[Address] := Data;
 end;
 
-function TMemory.Read(Address: TInt): TInt;
+function TIntMemory.Read(Address: TInt): TInt;
 begin
   Result := FData[Address];
 end;
 
-procedure TMemory.WritePos(Data: TInt);
+procedure TIntMemory.WritePos(Data: TInt);
 begin
   Write(FPosition, Data);
@@ -59 +59 @@
 end;
 
-function TMemory.ReadPos: TInt;
+function TIntMemory.ReadPos: TInt;
 begin
   Result := Read(FPosition);
@@ -65 +65 @@
 end;
 
-procedure TMemory.CopyFrom(Source: TMemory; Dst, Src, Count: TInt);
+procedure TIntMemory.CopyFrom(Source: TIntMemory; Dst, Src, Count: TInt);
 var
   I: Integer;
@@ -76 +76 @@
 end;
 
-procedure TMemory.WriteStringPos(Value: string);
+procedure TIntMemory.WriteStringPos(Value: string);
 var
   I: Integer;

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc