Changeset 47 for branches/ByteArray/Devices/FrameBuffer.pas

Timestamp:

Oct 25, 2023, 12:33:07 AM (15 months ago)

Author:

chronos

Message:

• Added: Common package.
• Modified: Improved BigInt class.

File:

• branches/ByteArray/Devices/FrameBuffer.pas (modified) (3 diffs)

branches/ByteArray/Devices/FrameBuffer.pas

@@ -22 +22 @@
     Mode: TScreenMode;
     procedure UpdateMode;
-    function Read(Address: TBigInt; Size: Byte): TBigInt;
-    procedure Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+    function Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
+    procedure Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
     function GetAddressCount: Integer; override;
     procedure SetChannel(Channel: TChannel); override;
@@ -47 +47 @@
 end;
 
-function TFrameBuffer.Read(Address: TBigInt; Size: Byte): TBigInt;
+function TFrameBuffer.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
 begin
   case Integer(Address) of
@@ -61 +61 @@
 end;
 
-procedure TFrameBuffer.Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+procedure TFrameBuffer.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
 begin
   case Integer(Address) of