mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 17:22:53 +02:00
92ff07deaf
o fixed gprof under linux/i386
o fixed pic-compilation of the linux/i386 rtl
o initialisation of linux shared libraries is now possible with pic-code
git-svn-id: trunk@13703 -
100 lines
2.6 KiB
PHP
100 lines
2.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.
|
|
|
|
**********************************************************************}
|
|
{$goto on}
|
|
{
|
|
Linux ELF startup code for Free Pascal
|
|
|
|
|
|
Stack layout at program start:
|
|
|
|
nil
|
|
envn
|
|
....
|
|
.... ENVIRONMENT VARIABLES
|
|
env1
|
|
env0
|
|
nil
|
|
argn
|
|
....
|
|
.... COMMAND LINE OPTIONS
|
|
arg1
|
|
arg0
|
|
argc <--- esp
|
|
}
|
|
|
|
procedure PASCALMAIN; external name 'PASCALMAIN';
|
|
|
|
function get1eipasebx : pointer; compilerproc; nostackframe; assembler;
|
|
asm
|
|
movl (%esp),%ebx
|
|
ret
|
|
end;
|
|
|
|
{******************************************************************************
|
|
Shared library start/halt
|
|
******************************************************************************}
|
|
{$asmmode ATT}
|
|
|
|
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 }
|
|
|
|
IsLibrary:=true;
|
|
|
|
asm
|
|
{ Save initial stackpointer }
|
|
{$ifdef FPC_PIC}
|
|
call get1eipasebx
|
|
addl $_GLOBAL_OFFSET_TABLE_,%ebx
|
|
movl initialstkptr@GOT(%ebx),%ecx
|
|
movl %esp,(%ecx)
|
|
{$else FPC_PIC}
|
|
movl %esp,initialstkptr
|
|
{$endif FPC_PIC}
|
|
end;
|
|
|
|
PASCALMAIN;
|
|
end;
|
|
|
|
Procedure lib_exit; external name 'FPC_LIB_EXIT';
|
|
|
|
procedure _FPC_shared_lib_haltproc; assembler; nostackframe; public name 'FPC_SHARED_LIB_EXIT'; public name '_haltproc';
|
|
asm
|
|
.Lhaltproc:
|
|
call lib_exit
|
|
{$ifdef FPC_PIC}
|
|
call get1eipasebx
|
|
addl $_GLOBAL_OFFSET_TABLE_,%ebx
|
|
movl ExitCode@GOT(%ebx),%ebx
|
|
{$if sizeof(ExitCode)=2}
|
|
movzwl (%ebx),%ebx
|
|
{$else}
|
|
mov (%ebx),%ebx
|
|
{$endif}
|
|
{$else FPC_PIC}
|
|
{$if sizeof(ExitCode)=2}
|
|
movzwl ExitCode,%ebx
|
|
{$else}
|
|
mov ExitCode,%ebx
|
|
{$endif}
|
|
{$endif FPC_PIC}
|
|
xorl %eax,%eax
|
|
incl %eax { eax=1, exit call }
|
|
int $0x80
|
|
jmp .Lhaltproc
|
|
end;
|