PageRenderTime 15ms CodeModel.GetById 14ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/packages/amunits/src/coreunits/romboot_base.pas

https://github.com/slibre/freepascal
Pascal | 40 lines | 15 code | 9 blank | 16 comment | 0 complexity | 12f16060f480facd4fcd320e3e55cca6 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 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
17unit romboot_base;
18
19INTERFACE
20
21uses exec;
22
23Type
24
25    pRomBootBase = ^tRomBootBase;
26    tRomBootBase = record
27        LibNode         : tLibrary;
28        ExecBase        : pExecBase;
29        BootList        : tList;
30        Reserved        : Array [0..3] of Longint;
31                                { for future expansion }
32    end;
33
34Const
35
36    ROMBOOT_NAME : PChar = 'romboot.library';
37
38IMPLEMENTATION
39
40end.