blob: 02fa05100be0843d7f9e245d4711ce24f23252be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2015 by Sven Barth, member of the Free Pascal development
team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
procedure PascalMain; external name 'PASCALMAIN';
{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}
procedure SysEntry(constref info: TEntryInformation); external name 'FPC_SysEntry';
var
InitFinalTable : record end; external name 'INITFINAL';
ThreadvarTablesTable : record end; external name 'FPC_THREADVARTABLES';
{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
WideInitTables : record end; external name 'FPC_WIDEINITTABLES';
{$endif}
{$ifdef FPC_HAS_RESSTRINITS}
ResStrInitTables : record end; external name 'FPC_RESSTRINITTABLES';
{$endif}
ResourceStringTables : record end; external name 'FPC_RESOURCESTRINGTABLES';
ResLocation : Pointer; external name 'FPC_RESLOCATION';
const
SysInitEntryInformation : TEntryInformation = (
InitFinalTable : @InitFinalTable;
ThreadvarTablesTable : @ThreadvarTablesTable;
ResourceStringTables : @ResourceStringTables;
{$ifdef FPC_HAS_RESSTRINITS}
ResStrInitTables : @ResStrInitTables;
{$else}
ResStrInitTables : nil;
{$endif}
{$ifndef FPC_WIDESTRING_EQUAL_UNICODESTRING}
WideInitTables : @WideInitTables;
{$endif}
ResLocation : @ResLocation;
asm_exit : nil;
PascalMain : @PascalMain;
valgrind_used : false;
Platform: (
argc: 0;
argv: nil;
envp: nil;
stkptr: nil;
haltproc: nil;
);
);
{$endif}
|
