mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 17:13:42 +02:00
7b67ead440
rtl/inc/systemh.inc: + TEntryInformation: add Pointer fields ResourceStringTables, ResStrInitTables, WideInitTables (for targets with separate WideString type) and ResLocation (not used on Windows, but since most other targets don't have Windows' resource system it's not part of OS) rtl/java/jsystemh_types.inc: + TEntryInformation: adjust for consistency reasons rtl/win32/sysinit.inc: * SysInitEntryInformation: initialize with pointers to the correct tables git-svn-id: trunk@33027 -
88 lines
3.3 KiB
PHP
88 lines
3.3 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2006 by Florian Klaempfl and Pavel Ozerski
|
|
member of the Free Pascal development team.
|
|
|
|
Win32 startup code, shared part
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
var
|
|
SysInstance : Longint;external name '_FPC_SysInstance';
|
|
|
|
InitFinalTable : record end; external name 'INITFINAL';
|
|
ThreadvarTablesTable : record end; external name 'FPC_THREADVARTABLES';
|
|
WideInitTables : record end; external name 'FPC_WIDEINITTABLES';
|
|
{$ifdef FPC_HAS_RESSTRINITS}
|
|
ResStrInitTables : record end; external name 'FPC_RESSTRINITTABLES';
|
|
{$endif FPC_HAS_RESSTRINITS}
|
|
ResourceStringTables : record end; external name 'FPC_RESOURCESTRINGTABLES';
|
|
valgrind_used : boolean;external name '__fpc_valgrind';
|
|
|
|
{$if defined(FPC_USE_TLS_DIRECTORY) or defined(FPC_SECTION_THREADVARS)}
|
|
var
|
|
tlsdir: record end; external name '__tls_used';
|
|
|
|
procedure LinkIn(p1,p2,p3: Pointer); inline;
|
|
begin
|
|
end;
|
|
{$endif}
|
|
|
|
{$ifdef FPC_USE_TLS_DIRECTORY}
|
|
var
|
|
tls_callback_end: pointer; external name '__FPC_end_of_tls_callbacks';
|
|
tls_callback: pointer; external name '__FPC_tls_callbacks';
|
|
{$endif FPC_USE_TLS_DIRECTORY}
|
|
|
|
procedure EXE_Entry(const info : TEntryInformation); external name '_FPC_EXE_Entry';
|
|
function DLL_Entry(const info : TEntryInformation) : longbool; external name '_FPC_DLL_Entry';
|
|
procedure PascalMain;external name 'PASCALMAIN';
|
|
|
|
function GetStdHandle(nStdHandle:DWORD) : THandle; stdcall; external 'kernel32' name 'GetStdHandle';
|
|
function GetConsoleMode(hConsoleHandle: THandle; var lpMode: DWORD): Boolean; stdcall; external 'kernel32' name 'GetConsoleMode';
|
|
|
|
const
|
|
STD_INPUT_HANDLE = dword(-10);
|
|
SysInitEntryInformation : TEntryInformation = (
|
|
InitFinalTable : @InitFinalTable;
|
|
ThreadvarTablesTable : @ThreadvarTablesTable;
|
|
ResourceStringTables : @ResourceStringTables;
|
|
{$ifdef FPC_HAS_RESSTRINITS}
|
|
ResStrInitTables : @ResStrInitTables;
|
|
{$else FPC_HAS_RESSTRINITS}
|
|
ResStrInitTables : nil;
|
|
{$endif FPC_HAS_RESSTRINITS}
|
|
WideInitTables : @WideInitTables;
|
|
ResLocation : nil;
|
|
PascalMain : @PascalMain;
|
|
valgrind_used : false;
|
|
OS : (
|
|
asm_exit : @asm_exit;
|
|
);
|
|
);
|
|
|
|
|
|
procedure SetupEntryInformation;
|
|
begin
|
|
{ valgind_used is the only thng that can change at startup
|
|
EntryInformation.InitFinalTable:=@InitFinalTable;
|
|
EntryInformation.ThreadvarTablesTable:=@ThreadvarTablesTable;
|
|
EntryInformation.ResourceStringTables:=@ResourceStringTables;
|
|
EntryInformation.ResStrInitTables:=@ResStrInitTables;
|
|
EntryInformation.WideInitTables:=@WideInitTables;
|
|
EntryInformation.OS.asm_exit:=@asm_exit;
|
|
EntryInformation.PascalMain:=@PascalMain;}
|
|
SysInitEntryInformation.valgrind_used:=valgrind_used;
|
|
end;
|
|
|
|
{$define FPC_INSSIDE_SYSINIT}
|
|
{$include systlsdir.inc}
|
|
|