blob: c377ef01175edbbd81d93103ab5659f65dc9f0e7 (
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Implements indirect entry point for executables and libaries
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.
**********************************************************************}
unit sysinit;
interface
implementation
{$ifndef ver2_6}
procedure PascalMain; external name 'PASCALMAIN';
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}
ResLocation: record end; external name 'FPC_RESLOCATION';
ResourceStringTables : record end; external name 'FPC_RESOURCESTRINGTABLES';
StkLen: SizeUInt; external name '__stklen';
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;
stklen: 0;
);
);
procedure FPC_SYSTEMMAIN(argcparam: Longint; argvparam: ppchar; envpparam: ppchar); cdecl; [public];
begin
SysInitEntryInformation.Platform.argc := argcparam;
SysInitEntryInformation.Platform.argv := argvparam;
SysInitEntryInformation.Platform.envp := envpparam;
SysInitEntryInformation.Platform.stklen := StkLen;
SysEntry(SysInitEntryInformation);
end;
procedure FPC_LIBMAIN; cdecl; [public];
begin
SysEntry(SysInitEntryInformation);
end;
{$endif ver2_6}
end.
|
