mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-05 16:48:50 +02:00
ead8d0c1d4
* The initialization code is a normal function called by runtime linker, stack layout at process startup is irrelevant. * Stack pointer can be replaced by frame pointer, they are just a few bytes away. * IsLibrary is set to true in fpc_libinitializeunits and therefore assigning it here is redundant. * The exitcode is passed as argument to haltproc, so messing with PIC is not necessary. git-svn-id: trunk@26759 -
45 lines
1.6 KiB
PHP
45 lines
1.6 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2005 by Michael Van Canneyt, Peter Vreman,
|
|
& Daniel Mantione, members 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.
|
|
|
|
**********************************************************************}
|
|
{$asmmode att}
|
|
|
|
procedure PASCALMAIN; external name 'PASCALMAIN';
|
|
|
|
|
|
{******************************************************************************
|
|
Shared library start/halt
|
|
******************************************************************************}
|
|
|
|
procedure _FPC_shared_lib_start(argc : dword;argv,envp : pointer); cdecl; public name 'FPC_SHARED_LIB_START'; public name '_start';
|
|
begin
|
|
|
|
operatingsystem_parameter_argc:=argc; { Copy the argument count }
|
|
operatingsystem_parameter_argv:=argv; { Copy the argument pointer }
|
|
operatingsystem_parameter_envp:=envp; { Copy the environment pointer }
|
|
initialstkptr:=get_frame;
|
|
|
|
PASCALMAIN;
|
|
end;
|
|
|
|
{ this routine is only called when the halt() routine of the RTL embedded in
|
|
the shared library is called }
|
|
procedure _FPC_shared_lib_haltproc(e:longint); cdecl; assembler; nostackframe; public name '_haltproc';
|
|
asm
|
|
.Lhaltproc:
|
|
movl e,%ebx
|
|
xorl %eax,%eax
|
|
incl %eax { eax=1, exit call }
|
|
int $0x80
|
|
jmp .Lhaltproc
|
|
end;
|