development/compilers/freepascal/rtl/aros/configvars.pas

   1 {
   2     This file is part of the Free Pascal run time library.
   3
   4     A file in Amiga system run time library.
   5     Copyright (c) 1998 by Nils Sjoholm
   6     member of the Amiga RTL development team.
   7
   8     See the file COPYING.FPC, included in this distribution,
   9     for details about the copyright.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  **********************************************************************}
  16
  17 unit configvars;
  18
  19 INTERFACE
  20
  21 uses exec, configregs;
  22
  23 Type
  24
  25     pConfigDev = ^tConfigDev;
  26     tConfigDev = record
  27         cd_Node         : tNode;
  28         cd_Flags        : Byte;
  29         cd_Pad          : Byte;
  30         cd_Rom          : tExpansionRom; { image of expansion rom area }
  31         cd_BoardAddr    : Pointer;       { where in memory the board is }
  32         cd_BoardSize    : ULONG;         { size in bytes }
  33         cd_SlotAddr     : Word;          { which slot number }
  34         cd_SlotSize     : Word;          { number of slots the board takes }
  35         cd_Driver       : Pointer;       { pointer to node of driver }
  36         cd_NextCD       : pConfigDev;    { linked list of drivers to config }
  37         cd_Unused       : Array [0..3] of ULONG;
  38                                          { for whatever the driver whats }
  39     end;
  40
  41
  42 Const
  43
  44 { cd_Flags }
  45     CDB_SHUTUP          = 0;    { this board has been shut up }
  46     CDB_CONFIGME        = 1;    { this board needs a driver to claim it }
  47     CDB_BADMEMORY       = 2;
  48     CDB_PROCESSED       = 3;
  49
  50     CDF_SHUTUP          = $01;
  51     CDF_CONFIGME        = $02;
  52     CDF_BADMEMORY       = $04;
  53     CDF_PROCESSED       = $08;
  54
  55 Type
  56
  57 { this structure is used by GetCurrentBinding() and SetCurrentBinding() }
  58
  59     pCurrentBinding = ^tCurrentBinding;
  60     tCurrentBinding = record
  61         cb_ConfigDev    : pConfigDev;           { first configdev in chain }
  62         cb_FileName     : STRPTR;               { file name of driver }
  63         cb_ProductString : STRPTR;              { product # string }
  64         cb_ToolTypes    : POINTER;              { tooltypes from disk object }
  65     end;
  66
  67 IMPLEMENTATION
  68
  69 end.
  70
  71