source: branches/multi-width/Channel.pas

unit Channel;

interface

uses
  Classes, SysUtils;

type
  TBitWidth = (bwNone, bw8, bw16, bw24, bw32, bw40, bw48, bw56, bw64,
    bw128);

  { TChannel }

  TChannel = class
  type
    TRead8 = function (Address: QWord): Byte of object;
    TRead16 = function (Address: QWord): Word of object;
    TRead24 = function (Address: QWord): DWord of object;
    TRead32 = function (Address: QWord): DWord of object;
    TRead64 = function (Address: QWord): QWord of object;
    TWrite8 = procedure (Address: QWord; Data: Byte) of object;
    TWrite16 = procedure (Address: QWord; Data: Word) of object;
    TWrite24 = procedure (Address: QWord; Data: DWord) of object;
    TWrite32 = procedure (Address: QWord; Data: DWord) of object;
    TWrite64 = procedure (Address: QWord; Data: QWord) of object;
  var
    Read8: TRead8;
    Read16: TRead16;
    Read24: TRead24;
    Read32: TRead32;
    Read64: TRead64;
    Write8: TWrite8;
    Write16: TWrite16;
    Write24: TWrite24;
    Write32: TWrite32;
    Write64: TWrite64;
    procedure Write(Width: TBitWidth; Address: QWord; Data: QWord);
    procedure Read(Width: TBitWidth; Address: QWord; var Data: QWord);
  end;


implementation

{ TChannel }

procedure TChannel.Write(Width: TBitWidth; Address: QWord; Data: QWord);
begin
  case Width of
    bw8: Write8(Address, Data);
    bw16: Write16(Address, Data);
    bw24: Write24(Address, Data);
    bw32: Write32(Address, Data);
    bw64: Write64(Address, Data);
  end;
end;

procedure TChannel.Read(Width: TBitWidth; Address: QWord; var Data: QWord);
begin
  case Width of
    bw8: PByte(@Data)^ := Read8(Address);
    bw16: PWord(@Data)^ := Read16(Address);
    bw24: PWord(@Data)^ := Read24(Address);
    bw32: PDWord(@Data)^ := Read32(Address);
    bw64: PQWord(@Data)^ := Read64(Address);
  end;
end;

end.