i2c-h.~pas

来自「pipe类 pipe类 pipe类 pipe类 pipe类」· ~PAS 代码 · 共 32 行

unit i2c-h;

interface

type
  DWord = LongWord;

  tPCIDevice = packed record
    dwBus, dwDev, dwFunc: byte;
    VendorID, DeviceID: Word;
    Detected: boolean;
  end;

  tSMBusHost = packed record
    device: tPCIDevice;
    //I2C: tI2C_adapt;
    base: DWord;
    size: DWord;
  end;

  tSMBusHosts = array of tSMBusHost;

  tHostID = packed record
    VendorID, DeviceID: Word;
  end;

  tHostIDs = array of tHostID;

implementation

end.