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 {$packrecords 2}
17 
18 unit configvars;
19 
20 INTERFACE
21 
22 uses exec, configregs;
23 
24 Type
25 
26     pConfigDev = ^tConfigDev;
27     tConfigDev = record
28         cd_Node         : tNode;
29         cd_Flags        : Byte;
30         cd_Pad          : Byte;
31         cd_Rom          : tExpansionRom; { image of expansion rom area }
32         cd_BoardAddr    : Pointer;       { where in memory the board is }
33         cd_BoardSize    : ULONG;         { size in bytes }
34         cd_SlotAddr     : Word;          { which slot number }
35         cd_SlotSize     : Word;          { number of slots the board takes }
36         cd_Driver       : Pointer;       { pointer to node of driver }
37         cd_NextCD       : pConfigDev;    { linked list of drivers to config }
38         cd_Unused       : Array [0..3] of ULONG;
39                                          { for whatever the driver whats }
40     end;
41 
42 
43 Const
44 
45 { cd_Flags }
46     CDB_SHUTUP          = 0;    { this board has been shut up }
47     CDB_CONFIGME        = 1;    { this board needs a driver to claim it }
48     CDB_BADMEMORY       = 2;
49     CDB_PROCESSED       = 3;
50 
51     CDF_SHUTUP          = $01;
52     CDF_CONFIGME        = $02;
53     CDF_BADMEMORY       = $04;
54     CDF_PROCESSED       = $08;
55 
56 Type
57 
58 { this structure is used by GetCurrentBinding() and SetCurrentBinding() }
59 
60     pCurrentBinding = ^tCurrentBinding;
61     tCurrentBinding = record
62         cb_ConfigDev    : pConfigDev;           { first configdev in chain }
63         cb_FileName     : STRPTR;               { file name of driver }
64         cb_ProductString : STRPTR;              { product # string }
65         cb_ToolTypes    : POINTER;              { tooltypes from disk object }
66     end;
67 
68 IMPLEMENTATION
69 
70 end.
71