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

Timestamp:

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

Author:

chronos

Message:

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

File:

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

branches/ByteArray/Devices/DeviceMapper.pas

@@ -25 +25 @@
     procedure RegisterDevice(Device: TDevice);
     procedure UnregisterDevice(Device: TDevice);
-    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);
     procedure SetChannel(Channel: TChannel);
     constructor Create;
@@ -74 +74 @@
 end;
 
-function TDeviceMapper.Read(Address: TBigInt; Size: Byte): TBigInt;
+function TDeviceMapper.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
 var
   I: Integer;
@@ -85 +85 @@
 end;
 
-procedure TDeviceMapper.Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+procedure TDeviceMapper.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
 var
   I: Integer;