mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-24 23:16:20 +02:00
6afda909d4
rtl/inc/system.inc: * SetupEntryInformation: call new, optional function OSSetupEntryInformation to handle platform specific entry information initialization rtl/win/sysosh.inc, TEntryInformationOS: + new field TlsKeyAddr which will hold the address to the main binary's TlsKey variable win32/sysinit.inc: + provide the variable holding the TlsKey and pass that on to the entry information record win32/system.pp: + new OS specific entry information initialization (currently only the TlsKey) win/systhrd.inc: * declare TlsKey as a pointer to a DWord value instead of a DWord; on non-indirect entry platforms this is initialized with the address of new variable TlsKeyVar, on indirect entry platforms it will be initialized by the entry information initialization * adjust usages of TlsKey from DWord to PDWord win/systlsdir.inc: * TlsKey is now a PDWord and (in sysinit) points to TlsKeyVar win/syswin.inc: * adjust TlsKey usage inc/heaptrc.pp: * TlsKey is now a PDWord, thus adjust the import and the usage git-svn-id: trunk@33091 -
91 lines
3.4 KiB
PHP
91 lines
3.4 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';
|
|
TlsKeyVar: DWord = $ffffffff;
|
|
|
|
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;
|
|
TlsKeyAddr : @TlsKeyVar;
|
|
);
|
|
);
|
|
|
|
|
|
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.OS.TlsKeyAddr:=@TlsKeyVar;
|
|
EntryInformation.PascalMain:=@PascalMain;}
|
|
SysInitEntryInformation.valgrind_used:=valgrind_used;
|
|
end;
|
|
|
|
{$define FPC_INSSIDE_SYSINIT}
|
|
{$include systlsdir.inc}
|
|
|