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

Timestamp:

Aug 6, 2024, 10:31:16 PM (2 months ago)

Author:

chronos

Message:

• Modified: Optimized DeviceMapper read/write handlers calls without case statement.
• Modified: Use TInt as base data type which can be redefined to different higher integer type. For start it is Int64.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• Devices/FrameBuffer.pas (modified) (5 diffs)

branches/ByteArray/Devices/FrameBuffer.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Device, Channel, Memory, BigInt;
+  Classes, SysUtils, Device, Channel, Memory, Int;
 
 type
@@ -15 +15 @@
     FOnChange: TNotifyEvent;
     procedure DoChange;
+    function ReadData(Size: TIntSize): TInt;
+    function ReadPosition(Size: TIntSize): TInt;
+    function ReadWidth(Size: TIntSize): TInt;
+    function ReadHeight(Size: TIntSize): TInt;
+    function ReadMode(Size: TIntSize): TInt;
+    procedure WriteData(Size: TIntSize; Value: TInt);
+    procedure WritePosition(Size: TIntSize; Value: TInt);
+    procedure WriteWidth(Size: TIntSize; Value: TInt);
+    procedure WriteHeight(Size: TIntSize; Value: TInt);
+    procedure WriteMode(Size: TIntSize; Value: TInt);
   public
     Memory: TMemory;
@@ -22 +32 @@
     Mode: TScreenMode;
     procedure UpdateMode;
-    function Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
-    procedure Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
-    function GetAddressCount: Integer; override;
-    procedure SetChannel(Channel: TChannel); override;
+    function GetHandlers: THandlers; override;
     constructor Create;
     destructor Destroy; override;
@@ -41 +48 @@
 end;
 
+function TFrameBuffer.ReadData(Size: TIntSize): TInt;
+begin
+  Result := Memory.Read(Position, Size);
+  Inc(Position, Size);
+end;
+
+function TFrameBuffer.ReadPosition(Size: TIntSize): TInt;
+begin
+  Result := Position;
+end;
+
+function TFrameBuffer.ReadWidth(Size: TIntSize): TInt;
+begin
+  Result := Width;
+end;
+
+function TFrameBuffer.ReadHeight(Size: TIntSize): TInt;
+begin
+  Result := Height;
+end;
+
+function TFrameBuffer.ReadMode(Size: TIntSize): TInt;
+begin
+  Result := Byte(Mode);
+end;
+
+procedure TFrameBuffer.WriteData(Size: TIntSize; Value: TInt);
+begin
+  Memory.Write(Position, Size, Value);
+  Inc(Position, Size);
+end;
+
+procedure TFrameBuffer.WritePosition(Size: TIntSize; Value: TInt);
+begin
+  Position := Value;
+end;
+
+procedure TFrameBuffer.WriteWidth(Size: TIntSize; Value: TInt);
+begin
+  Width := Value;
+  UpdateMode;
+end;
+
+procedure TFrameBuffer.WriteHeight(Size: TIntSize; Value: TInt);
+begin
+  Height := Value;
+  UpdateMode;
+end;
+
+procedure TFrameBuffer.WriteMode(Size: TIntSize; Value: TInt);
+begin
+  Mode := TScreenMode(Integer(Value));
+  UpdateMode;
+end;
+
 procedure TFrameBuffer.UpdateMode;
 begin
@@ -47 +109 @@
 end;
 
-function TFrameBuffer.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
+function TFrameBuffer.GetHandlers: THandlers;
 begin
-  case Integer(Address) of
-    0: begin
-      Result := Memory.Read(Position, Size);
-      Inc(Position, Size);
-    end;
-    1: Result := Position;
-    2: Result := Width;
-    3: Result := Height;
-    4: Result := Byte(Mode);
-  end;
-end;
-
-procedure TFrameBuffer.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
-begin
-  case Integer(Address) of
-    0: begin
-      Memory.Write(Position, Size, Value);
-      Inc(Position, Size);
-    end;
-    1: Position := Value;
-    2: begin
-      Width := Value;
-      UpdateMode;
-    end;
-    3: begin
-      Height := Value;
-      UpdateMode;
-    end;
-    4: begin
-      Mode := TScreenMode(Integer(Value));
-      UpdateMode;
-    end;
-  end;
-  DoChange;
-end;
-
-function TFrameBuffer.GetAddressCount: Integer;
-begin
-  Result := 5;
-end;
-
-procedure TFrameBuffer.SetChannel(Channel: TChannel);
-begin
-  Channel.Read := Read;
-  Channel.Write := Write;
+  Result := THandlers.Create;
+  Result.ReadHandlers.Add(ReadData);
+  Result.ReadHandlers.Add(ReadPosition);
+  Result.ReadHandlers.Add(ReadWidth);
+  Result.ReadHandlers.Add(ReadHeight);
+  Result.ReadHandlers.Add(ReadMode);
+  Result.WriteHandlers.Add(WriteData);
+  Result.WriteHandlers.Add(WritePosition);
+  Result.WriteHandlers.Add(WriteWidth);
+  Result.WriteHandlers.Add(WriteHeight);
+  Result.WriteHandlers.Add(WriteMode);
 end;