← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/amunits/units/configvars.pas

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/amunits/units/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