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