mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-12 10:49:07 +02:00
- commit missing new files
git-svn-id: branches/targetandroid@21062 -
This commit is contained in:
tom_at_work
parent
acbc94e0fd
commit
c520f713f4
6
.gitattributes
vendored
6
.gitattributes
vendored
@ -524,6 +524,7 @@ compiler/systems.inc svneol=native#text/plain
|
||||
compiler/systems.pas svneol=native#text/plain
|
||||
compiler/systems/i_aix.pas svneol=native#text/plain
|
||||
compiler/systems/i_amiga.pas svneol=native#text/plain
|
||||
compiler/systems/i_android.pas svneol=native#text/plain
|
||||
compiler/systems/i_atari.pas svneol=native#text/plain
|
||||
compiler/systems/i_beos.pas svneol=native#text/plain
|
||||
compiler/systems/i_bsd.pas svneol=native#text/plain
|
||||
@ -550,6 +551,7 @@ compiler/systems/i_win.pas svneol=native#text/plain
|
||||
compiler/systems/mac_crea.txt svneol=native#text/plain
|
||||
compiler/systems/t_aix.pas svneol=native#text/plain
|
||||
compiler/systems/t_amiga.pas svneol=native#text/plain
|
||||
compiler/systems/t_android.pas svneol=native#text/plain
|
||||
compiler/systems/t_atari.pas svneol=native#text/plain
|
||||
compiler/systems/t_beos.pas svneol=native#text/plain
|
||||
compiler/systems/t_bsd.pas svneol=native#text/plain
|
||||
@ -7135,6 +7137,10 @@ rtl/amiga/sysutils.pp svneol=native#text/plain
|
||||
rtl/amiga/timerd.inc svneol=native#text/plain
|
||||
rtl/amiga/tthread.inc svneol=native#text/plain
|
||||
rtl/amiga/varutils.pp svneol=native#text/plain
|
||||
rtl/android/Makefile.fpc svneol=native#text/plain
|
||||
rtl/android/arm/cprt0.as svneol=native#text/plain
|
||||
rtl/android/arm/dllprt0.as svneol=native#text/plain
|
||||
rtl/android/arm/prt0.as svneol=native#text/plain
|
||||
rtl/arm/arm.inc svneol=native#text/plain
|
||||
rtl/arm/divide.inc svneol=native#text/plain
|
||||
rtl/arm/int64p.inc svneol=native#text/plain
|
||||
|
||||
109
compiler/systems/i_android.pas
Normal file
109
compiler/systems/i_android.pas
Normal file
@ -0,0 +1,109 @@
|
||||
{
|
||||
Copyright (c) 1998-2012 by Peter Vreman
|
||||
|
||||
This unit implements support information structures for linux
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
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. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
****************************************************************************
|
||||
}
|
||||
{ This unit implements support information structures for android. }
|
||||
unit i_android;
|
||||
|
||||
{$i fpcdefs.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
systems, rescmn;
|
||||
|
||||
const
|
||||
system_arm_android_info : tsysteminfo =
|
||||
(
|
||||
system : system_arm_Android;
|
||||
name : 'Android for ARMEL';
|
||||
shortname : 'ANDROID';
|
||||
flags : [tf_needs_symbol_size,tf_needs_symbol_type,tf_files_case_sensitive,
|
||||
tf_requires_proper_alignment,
|
||||
tf_smartlink_sections,tf_smartlink_library,tf_has_winlike_resources];
|
||||
cpu : cpu_arm;
|
||||
unit_env : 'ANDROIDUNITS';
|
||||
extradefines : 'UNIX;HASUNIX;CPUARMEL';
|
||||
exeext : '';
|
||||
defext : '.def';
|
||||
scriptext : '.sh';
|
||||
smartext : '.sl';
|
||||
unitext : '.ppu';
|
||||
unitlibext : '.ppl';
|
||||
asmext : '.s';
|
||||
objext : '.o';
|
||||
resext : '.res';
|
||||
resobjext : '.or';
|
||||
sharedlibext : '.so';
|
||||
staticlibext : '.a';
|
||||
staticlibprefix : 'libp';
|
||||
sharedlibprefix : 'lib';
|
||||
sharedClibext : '.so';
|
||||
staticClibext : '.a';
|
||||
staticClibprefix : 'lib';
|
||||
sharedClibprefix : 'lib';
|
||||
importlibprefix : 'libimp';
|
||||
importlibext : '.a';
|
||||
Cprefix : '';
|
||||
newline : #10;
|
||||
dirsep : '/';
|
||||
assem : as_gas;
|
||||
assemextern : as_gas;
|
||||
link : nil;
|
||||
linkextern : nil;
|
||||
ar : ar_gnu_ar;
|
||||
res : res_elf;
|
||||
dbg : dbg_stabs;
|
||||
script : script_unix;
|
||||
endian : endian_little;
|
||||
alignment :
|
||||
(
|
||||
procalign : 4;
|
||||
loopalign : 4;
|
||||
jumpalign : 0;
|
||||
constalignmin : 0;
|
||||
constalignmax : 8;
|
||||
varalignmin : 0;
|
||||
varalignmax : 8;
|
||||
localalignmin : 4;
|
||||
localalignmax : 8;
|
||||
recordalignmin : 0;
|
||||
recordalignmax : 8;
|
||||
maxCrecordalign : 8
|
||||
);
|
||||
first_parm_offset : 8;
|
||||
stacksize : 8*1024*1024;
|
||||
abi : abi_eabi
|
||||
);
|
||||
|
||||
implementation
|
||||
|
||||
initialization
|
||||
{$ifdef CPU86}
|
||||
{$ifdef android}
|
||||
// not implemented yet
|
||||
// set_source_info(system_x86_android_info);
|
||||
{$endif}
|
||||
{$endif CPU86}
|
||||
{$ifdef CPUARM}
|
||||
{$ifdef android}
|
||||
set_source_info(system_arm_android_info);
|
||||
{$endif linux}
|
||||
{$endif CPUARM}
|
||||
end.
|
||||
821
compiler/systems/t_android.pas
Normal file
821
compiler/systems/t_android.pas
Normal file
@ -0,0 +1,821 @@
|
||||
{
|
||||
Copyright (c) 1998-2008 by Peter Vreman
|
||||
|
||||
This unit implements support import,export,link routines
|
||||
for the Android target
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
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. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
****************************************************************************
|
||||
}
|
||||
unit t_android;
|
||||
|
||||
{$i fpcdefs.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
aasmdata,
|
||||
symsym,symdef,ppu,
|
||||
import,export,expunix,link;
|
||||
|
||||
type
|
||||
timportlibandroid=class(timportlib)
|
||||
procedure generatelib;override;
|
||||
end;
|
||||
|
||||
texportlibandroid=class(texportlibunix)
|
||||
procedure setfininame(list: TAsmList; const s: string); override;
|
||||
end;
|
||||
|
||||
tlinkerandroid=class(texternallinker)
|
||||
private
|
||||
libctype:(libc5,glibc2,glibc21,uclibc);
|
||||
cprtobj,
|
||||
gprtobj,
|
||||
prtobj : string[80];
|
||||
reorder : boolean;
|
||||
linklibc: boolean;
|
||||
Function WriteResponseFile(isdll:boolean) : Boolean;
|
||||
public
|
||||
constructor Create;override;
|
||||
procedure SetDefaultInfo;override;
|
||||
procedure InitSysInitUnitName;override;
|
||||
function MakeExecutable:boolean;override;
|
||||
function MakeSharedLibrary:boolean;override;
|
||||
procedure LoadPredefinedLibraryOrder; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
cutils,cfileutl,cclasses,
|
||||
verbose,systems,globtype,globals,
|
||||
symconst,script,
|
||||
fmodule,
|
||||
aasmbase,aasmtai,aasmcpu,cpubase,
|
||||
cgbase,cgobj,cgutils,ogbase,ncgutil,
|
||||
comprsrc,
|
||||
rescmn, i_android
|
||||
;
|
||||
|
||||
{*****************************************************************************
|
||||
TIMPORTLIBANDROID
|
||||
*****************************************************************************}
|
||||
|
||||
procedure timportlibandroid.generatelib;
|
||||
var
|
||||
i : longint;
|
||||
ImportLibrary : TImportLibrary;
|
||||
begin
|
||||
for i:=0 to current_module.ImportLibraryList.Count-1 do
|
||||
begin
|
||||
ImportLibrary:=TImportLibrary(current_module.ImportLibraryList[i]);
|
||||
current_module.linkothersharedlibs.add(ImportLibrary.Name,link_always);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
{*****************************************************************************
|
||||
TEXPORTLIBANDROID
|
||||
*****************************************************************************}
|
||||
|
||||
procedure texportlibandroid.setfininame(list: TAsmList; const s: string);
|
||||
begin
|
||||
{ the problem with not having a .fini section is that a finalization
|
||||
routine in regular code can get "smart" linked away -> reference it
|
||||
just like the debug info }
|
||||
new_section(list,sec_fpc,'links',0);
|
||||
list.concat(Tai_const.Createname(s,0));
|
||||
inherited setfininame(list,s);
|
||||
end;
|
||||
|
||||
{*****************************************************************************
|
||||
TLINKERANDROID
|
||||
*****************************************************************************}
|
||||
|
||||
Constructor TLinkerAndroid.Create;
|
||||
begin
|
||||
Inherited Create;
|
||||
end;
|
||||
|
||||
|
||||
procedure TLinkerAndroid.SetDefaultInfo;
|
||||
{
|
||||
This will also detect which libc version will be used
|
||||
}
|
||||
|
||||
const
|
||||
{$ifdef arm} platform_select='';{$endif} {unknown :( }
|
||||
|
||||
var
|
||||
defdynlinker: string;
|
||||
begin
|
||||
with Info do
|
||||
begin
|
||||
ExeCmd[1]:='ld '+platform_select+' $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP -L. -o $EXE';
|
||||
{ when we want to cross-link we need to override default library paths }
|
||||
if length(sysrootpath) > 0 then
|
||||
ExeCmd[1]:=ExeCmd[1]+' -T';
|
||||
ExeCmd[1]:=ExeCmd[1]+' $RES';
|
||||
DllCmd[1]:='ld '+platform_select+' $OPT $INIT $FINI $SONAME -shared -L. -o $EXE $RES';
|
||||
DllCmd[2]:='strip --strip-unneeded $EXE';
|
||||
ExtDbgCmd[1]:='objcopy --only-keep-debug $EXE $DBG';
|
||||
ExtDbgCmd[2]:='objcopy --add-gnu-debuglink=$DBG $EXE';
|
||||
ExtDbgCmd[3]:='strip --strip-unneeded $EXE';
|
||||
|
||||
{$ifdef arm}
|
||||
defdynlinker:='/system/bin/linker';
|
||||
{$endif arm}
|
||||
{
|
||||
Search order:
|
||||
glibc 2.1+
|
||||
uclibc
|
||||
glibc 2.0
|
||||
If none is found (e.g. when cross compiling) glibc21 is assumed
|
||||
}
|
||||
if fileexists(sysrootpath+defdynlinker,false) then
|
||||
begin
|
||||
DynamicLinker:=defdynlinker;
|
||||
libctype:=glibc2;
|
||||
end
|
||||
else if fileexists(sysrootpath+'/lib/ld-uClibc.so.0',false) then
|
||||
begin
|
||||
dynamiclinker:='/lib/ld-uClibc.so.0';
|
||||
libctype:=uclibc;
|
||||
end
|
||||
else
|
||||
begin
|
||||
{ when no dyn. linker is found, we are probably
|
||||
cross compiling, so use the default dyn. linker }
|
||||
DynamicLinker:=defdynlinker;
|
||||
{
|
||||
the default c startup script is gcrt0.as on all platforms
|
||||
except i386
|
||||
}
|
||||
libctype:=glibc2;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TLinkerAndroid.LoadPredefinedLibraryOrder;
|
||||
// put your linkorder/linkalias overrides here.
|
||||
// Note: assumes only called when reordering/aliasing is used.
|
||||
Begin
|
||||
if not (cs_link_no_default_lib_order in current_settings.globalswitches) Then
|
||||
Begin
|
||||
LinkLibraryOrder.add('gcc','',15);
|
||||
LinkLibraryOrder.add('c','',100);
|
||||
LinkLibraryOrder.add('gmon','',120);
|
||||
LinkLibraryOrder.add('dl','',140);
|
||||
LinkLibraryOrder.add('pthread','',160);
|
||||
end;
|
||||
End;
|
||||
|
||||
Procedure TLinkerAndroid.InitSysInitUnitName;
|
||||
var
|
||||
csysinitunit,
|
||||
gsysinitunit : string[20];
|
||||
hp : tmodule;
|
||||
begin
|
||||
hp:=tmodule(loaded_units.first);
|
||||
while assigned(hp) do
|
||||
begin
|
||||
linklibc := hp.linkothersharedlibs.find('c');
|
||||
if linklibc then break;
|
||||
hp:=tmodule(hp.next);
|
||||
end;
|
||||
reorder := linklibc and ReOrderEntries;
|
||||
if current_module.islibrary then
|
||||
begin
|
||||
sysinitunit:='dll';
|
||||
csysinitunit:='dll';
|
||||
gsysinitunit:='dll';
|
||||
prtobj:='dllprt0';
|
||||
cprtobj:='dllprt0';
|
||||
gprtobj:='dllprt0';
|
||||
end
|
||||
else
|
||||
begin
|
||||
prtobj:='prt0';
|
||||
sysinitunit:='prc';
|
||||
case libctype of
|
||||
glibc21:
|
||||
begin
|
||||
cprtobj:='cprt21';
|
||||
gprtobj:='gprt21';
|
||||
csysinitunit:='c21';
|
||||
gsysinitunit:='c21g';
|
||||
end;
|
||||
uclibc:
|
||||
begin
|
||||
cprtobj:='ucprt0';
|
||||
gprtobj:='ugprt0';
|
||||
csysinitunit:='uc';
|
||||
gsysinitunit:='ucg';
|
||||
end
|
||||
else
|
||||
cprtobj:='cprt0';
|
||||
gprtobj:='gprt0';
|
||||
csysinitunit:='c';
|
||||
gsysinitunit:='g';
|
||||
end;
|
||||
end;
|
||||
if cs_profile in current_settings.moduleswitches then
|
||||
begin
|
||||
prtobj:=gprtobj;
|
||||
sysinitunit:=gsysinitunit;
|
||||
linklibc:=true;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if linklibc then
|
||||
begin
|
||||
prtobj:=cprtobj;
|
||||
sysinitunit:=csysinitunit;
|
||||
end;
|
||||
end;
|
||||
sysinitunit:='si_'+sysinitunit;
|
||||
end;
|
||||
|
||||
Function TLinkerAndroid.WriteResponseFile(isdll:boolean) : Boolean;
|
||||
Var
|
||||
linkres : TLinkRes;
|
||||
i : longint;
|
||||
HPath : TCmdStrListItem;
|
||||
s,s1,s2 : TCmdStr;
|
||||
found1,
|
||||
found2 : boolean;
|
||||
linksToSharedLibFiles : boolean;
|
||||
begin
|
||||
result:=False;
|
||||
{ set special options for some targets }
|
||||
if cs_profile in current_settings.moduleswitches then
|
||||
begin
|
||||
if not(libctype in [glibc2,glibc21]) then
|
||||
AddSharedLibrary('gmon');
|
||||
AddSharedLibrary('c');
|
||||
end;
|
||||
|
||||
{ Open link.res file }
|
||||
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName);
|
||||
with linkres do
|
||||
begin
|
||||
{ Write path to search libraries }
|
||||
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
|
||||
while assigned(HPath) do
|
||||
begin
|
||||
Add('SEARCH_DIR('+maybequoted(HPath.Str)+')');
|
||||
HPath:=TCmdStrListItem(HPath.Next);
|
||||
end;
|
||||
HPath:=TCmdStrListItem(LibrarySearchPath.First);
|
||||
while assigned(HPath) do
|
||||
begin
|
||||
Add('SEARCH_DIR('+maybequoted(HPath.Str)+')');
|
||||
HPath:=TCmdStrListItem(HPath.Next);
|
||||
end;
|
||||
|
||||
{ force local symbol resolution (i.e., inside the shared }
|
||||
{ library itself) for all non-exorted symbols, otherwise }
|
||||
{ several RTL symbols of FPC-compiled shared libraries }
|
||||
{ will be bound to those of a single shared library or }
|
||||
{ to the main program }
|
||||
if (isdll) then
|
||||
begin
|
||||
add('VERSION');
|
||||
add('{');
|
||||
add(' {');
|
||||
if not texportlibunix(exportlib).exportedsymnames.empty then
|
||||
begin
|
||||
add(' global:');
|
||||
repeat
|
||||
add(' '+texportlibunix(exportlib).exportedsymnames.getfirst+';');
|
||||
until texportlibunix(exportlib).exportedsymnames.empty;
|
||||
end;
|
||||
add(' local:');
|
||||
add(' *;');
|
||||
add(' };');
|
||||
add('}');
|
||||
end;
|
||||
|
||||
StartSection('INPUT(');
|
||||
{ add objectfiles, start with prt0 always }
|
||||
if not (target_info.system in systems_internal_sysinit) and (prtobj<>'') then
|
||||
AddFileName(maybequoted(FindObjectFile(prtobj,'',false)));
|
||||
{ try to add crti and crtbegin if linking to C }
|
||||
if linklibc and (libctype<>uclibc) then
|
||||
begin
|
||||
{ crti.o must come first }
|
||||
if librarysearchpath.FindFile('crti.o',false,s) then
|
||||
AddFileName(s);
|
||||
{ then the crtbegin* }
|
||||
if cs_create_pic in current_settings.moduleswitches then
|
||||
begin
|
||||
if librarysearchpath.FindFile('crtbeginS.o',false,s) then
|
||||
AddFileName(s);
|
||||
end
|
||||
else
|
||||
if (cs_link_staticflag in current_settings.globalswitches) and
|
||||
librarysearchpath.FindFile('crtbeginT.o',false,s) then
|
||||
AddFileName(s)
|
||||
else if librarysearchpath.FindFile('crtbegin.o',false,s) then
|
||||
AddFileName(s);
|
||||
end;
|
||||
{ main objectfiles }
|
||||
while not ObjectFiles.Empty do
|
||||
begin
|
||||
s:=ObjectFiles.GetFirst;
|
||||
if s<>'' then
|
||||
AddFileName(maybequoted(s));
|
||||
end;
|
||||
EndSection(')');
|
||||
|
||||
{ Write staticlibraries }
|
||||
if not StaticLibFiles.Empty then
|
||||
begin
|
||||
Add('GROUP(');
|
||||
While not StaticLibFiles.Empty do
|
||||
begin
|
||||
S:=StaticLibFiles.GetFirst;
|
||||
AddFileName(maybequoted(s))
|
||||
end;
|
||||
Add(')');
|
||||
end;
|
||||
|
||||
// we must reorder here because the result could empty sharedlibfiles
|
||||
if reorder Then
|
||||
ExpandAndApplyOrder(SharedLibFiles);
|
||||
// after this point addition of shared libs not allowed.
|
||||
|
||||
{ Write sharedlibraries like -l<lib>, also add the needed dynamic linker
|
||||
here to be sure that it gets linked this is needed for glibc2 systems (PFV) }
|
||||
if (isdll) then
|
||||
begin
|
||||
Add('INPUT(');
|
||||
Add(info.DynamicLinker);
|
||||
Add(')');
|
||||
end;
|
||||
linksToSharedLibFiles := not SharedLibFiles.Empty;
|
||||
|
||||
if not SharedLibFiles.Empty then
|
||||
begin
|
||||
|
||||
if (SharedLibFiles.Count<>1) or
|
||||
(TCmdStrListItem(SharedLibFiles.First).Str<>'c') or
|
||||
reorder then
|
||||
begin
|
||||
Add('INPUT(');
|
||||
While not SharedLibFiles.Empty do
|
||||
begin
|
||||
S:=SharedLibFiles.GetFirst;
|
||||
if (s<>'c') or reorder then
|
||||
begin
|
||||
i:=Pos(target_info.sharedlibext,S);
|
||||
if i>0 then
|
||||
Delete(S,i,255);
|
||||
Add('-l'+s);
|
||||
end
|
||||
else
|
||||
begin
|
||||
linklibc:=true;
|
||||
end;
|
||||
end;
|
||||
Add(')');
|
||||
end
|
||||
else
|
||||
linklibc:=true;
|
||||
if (cs_link_staticflag in current_settings.globalswitches) or
|
||||
(linklibc and not reorder) then
|
||||
begin
|
||||
Add('GROUP(');
|
||||
{ when we have -static for the linker the we also need libgcc }
|
||||
if (cs_link_staticflag in current_settings.globalswitches) then
|
||||
begin
|
||||
Add('-lgcc');
|
||||
if librarysearchpath.FindFile('libgcc_eh.a',false,s1) then
|
||||
Add('-lgcc_eh');
|
||||
end;
|
||||
{ be sure that libc is the last lib }
|
||||
if linklibc and not reorder then
|
||||
Add('-lc');
|
||||
Add(')');
|
||||
end;
|
||||
end;
|
||||
|
||||
{ objects which must be at the end }
|
||||
if linklibc and (libctype<>uclibc) then
|
||||
begin
|
||||
if cs_create_pic in current_settings.moduleswitches then
|
||||
found1:=librarysearchpath.FindFile('crtendS.o',false,s1)
|
||||
else
|
||||
found1:=librarysearchpath.FindFile('crtend.o',false,s1);
|
||||
found2:=librarysearchpath.FindFile('crtn.o',false,s2);
|
||||
if found1 or found2 then
|
||||
begin
|
||||
Add('INPUT(');
|
||||
if found1 then
|
||||
AddFileName(s1);
|
||||
if found2 then
|
||||
AddFileName(s2);
|
||||
Add(')');
|
||||
end;
|
||||
end;
|
||||
|
||||
{Entry point. Only needed for executables, set on the linker command line for
|
||||
shared libraries. }
|
||||
if (not isdll) then
|
||||
if (linksToSharedLibFiles and not linklibc) then
|
||||
add('ENTRY(_dynamic_start)')
|
||||
else
|
||||
add('ENTRY(_start)');
|
||||
|
||||
{$ifdef ARM}
|
||||
if target_info.abi=abi_eabi then
|
||||
begin
|
||||
{ from GNU ld (CodeSourcery Sourcery G++ Lite 2007q3-53) 2.18.50.20070820 }
|
||||
add('/* Script for -z combreloc: combine and sort reloc sections */');
|
||||
add('OUTPUT_FORMAT("elf32-littlearm", "elf32-bigarm",');
|
||||
add(' "elf32-littlearm")');
|
||||
add('OUTPUT_ARCH(arm)');
|
||||
add('SEARCH_DIR("=/usr/local/lib"); SEARCH_DIR("=/lib"); SEARCH_DIR("=/usr/lib");');
|
||||
add('SECTIONS');
|
||||
add('{');
|
||||
add(' /* Read-only sections, merged into text segment: */');
|
||||
add(' PROVIDE (__executable_start = 0x8000); . = 0x8000 + SIZEOF_HEADERS;');
|
||||
add(' .interp : { *(.interp) }');
|
||||
add(' .note.gnu.build-id : { *(.note.gnu.build-id) }');
|
||||
add(' .hash : { *(.hash) }');
|
||||
add(' .gnu.hash : { *(.gnu.hash) }');
|
||||
add(' .dynsym : { *(.dynsym) }');
|
||||
add(' .dynstr : { *(.dynstr) }');
|
||||
add(' .gnu.version : { *(.gnu.version) }');
|
||||
add(' .gnu.version_d : { *(.gnu.version_d) }');
|
||||
add(' .gnu.version_r : { *(.gnu.version_r) }');
|
||||
add(' .rel.dyn :');
|
||||
add(' {');
|
||||
add(' *(.rel.init)');
|
||||
add(' *(.rel.text .rel.text.* .rel.gnu.linkonce.t.*)');
|
||||
add(' *(.rel.fini)');
|
||||
add(' *(.rel.rodata .rel.rodata.* .rel.gnu.linkonce.r.*)');
|
||||
add(' *(.rel.data.rel.ro* .rel.gnu.linkonce.d.rel.ro.*)');
|
||||
add(' *(.rel.data .rel.data.* .rel.gnu.linkonce.d.*)');
|
||||
add(' *(.rel.tdata .rel.tdata.* .rel.gnu.linkonce.td.*)');
|
||||
add(' *(.rel.tbss .rel.tbss.* .rel.gnu.linkonce.tb.*)');
|
||||
add(' *(.rel.ctors)');
|
||||
add(' *(.rel.dtors)');
|
||||
add(' *(.rel.got)');
|
||||
add(' *(.rel.bss .rel.bss.* .rel.gnu.linkonce.b.*)');
|
||||
add(' }');
|
||||
add(' .rela.dyn :');
|
||||
add(' {');
|
||||
add(' *(.rela.init)');
|
||||
add(' *(.rela.text .rela.text.* .rela.gnu.linkonce.t.*)');
|
||||
add(' *(.rela.fini)');
|
||||
add(' *(.rela.rodata .rela.rodata.* .rela.gnu.linkonce.r.*)');
|
||||
add(' *(.rela.data .rela.data.* .rela.gnu.linkonce.d.*)');
|
||||
add(' *(.rela.tdata .rela.tdata.* .rela.gnu.linkonce.td.*)');
|
||||
add(' *(.rela.tbss .rela.tbss.* .rela.gnu.linkonce.tb.*)');
|
||||
add(' *(.rela.ctors)');
|
||||
add(' *(.rela.dtors)');
|
||||
add(' *(.rela.got)');
|
||||
add(' *(.rela.bss .rela.bss.* .rela.gnu.linkonce.b.*)');
|
||||
add(' }');
|
||||
add(' .rel.plt : { *(.rel.plt) }');
|
||||
add(' .rela.plt : { *(.rela.plt) }');
|
||||
add(' .init :');
|
||||
add(' {');
|
||||
add(' KEEP (*(.init))');
|
||||
add(' } =0');
|
||||
add(' .plt : { *(.plt) }');
|
||||
add(' .text :');
|
||||
add(' {');
|
||||
add(' *(.text .stub .text.* .gnu.linkonce.t.*)');
|
||||
add(' KEEP (*(.text.*personality*))');
|
||||
add(' /* .gnu.warning sections are handled specially by elf32.em. */');
|
||||
add(' *(.gnu.warning)');
|
||||
add(' *(.glue_7t) *(.glue_7) *(.vfp11_veneer)');
|
||||
add(' } =0');
|
||||
add(' .fini :');
|
||||
add(' {');
|
||||
add(' KEEP (*(.fini))');
|
||||
add(' } =0');
|
||||
add(' PROVIDE (__etext = .);');
|
||||
add(' PROVIDE (_etext = .);');
|
||||
add(' PROVIDE (etext = .);');
|
||||
add(' .rodata : { *(.rodata .rodata.* .gnu.linkonce.r.*) }');
|
||||
add(' .rodata1 : { *(.rodata1) }');
|
||||
add(' .ARM.extab : { *(.ARM.extab* .gnu.linkonce.armextab.*) }');
|
||||
add(' __exidx_start = .;');
|
||||
add(' .ARM.exidx : { *(.ARM.exidx* .gnu.linkonce.armexidx.*) }');
|
||||
add(' __exidx_end = .;');
|
||||
add(' .eh_frame_hdr : { *(.eh_frame_hdr) }');
|
||||
add(' .eh_frame : ONLY_IF_RO { KEEP (*(.eh_frame)) }');
|
||||
add(' .gcc_except_table : ONLY_IF_RO { *(.gcc_except_table .gcc_except_table.*) }');
|
||||
add(' /* Adjust the address for the data segment. We want to adjust up to');
|
||||
add(' the same address within the page on the next page up. */');
|
||||
add(' . = ALIGN(CONSTANT (MAXPAGESIZE)) + (. & (CONSTANT (MAXPAGESIZE) - 1));');
|
||||
add(' /* Exception handling */');
|
||||
add(' .eh_frame : ONLY_IF_RW { KEEP (*(.eh_frame)) }');
|
||||
add(' .gcc_except_table : ONLY_IF_RW { *(.gcc_except_table .gcc_except_table.*) }');
|
||||
add(' /* Thread Local Storage sections */');
|
||||
add(' .tdata : { *(.tdata .tdata.* .gnu.linkonce.td.*) }');
|
||||
add(' .tbss : { *(.tbss .tbss.* .gnu.linkonce.tb.*) *(.tcommon) }');
|
||||
add(' .preinit_array :');
|
||||
add(' {');
|
||||
add(' PROVIDE_HIDDEN (__preinit_array_start = .);');
|
||||
add(' KEEP (*(.preinit_array))');
|
||||
add(' PROVIDE_HIDDEN (__preinit_array_end = .);');
|
||||
add(' }');
|
||||
add(' .init_array :');
|
||||
add(' {');
|
||||
add(' PROVIDE_HIDDEN (__init_array_start = .);');
|
||||
add(' KEEP (*(SORT(.init_array.*)))');
|
||||
add(' KEEP (*(.init_array))');
|
||||
add(' PROVIDE_HIDDEN (__init_array_end = .);');
|
||||
add(' }');
|
||||
add(' .fini_array :');
|
||||
add(' {');
|
||||
add(' PROVIDE_HIDDEN (__fini_array_start = .);');
|
||||
add(' KEEP (*(.fini_array))');
|
||||
add(' KEEP (*(SORT(.fini_array.*)))');
|
||||
add(' PROVIDE_HIDDEN (__fini_array_end = .);');
|
||||
add(' }');
|
||||
add(' .ctors :');
|
||||
add(' {');
|
||||
add(' /* gcc uses crtbegin.o to find the start of');
|
||||
add(' the constructors, so we make sure it is');
|
||||
add(' first. Because this is a wildcard, it');
|
||||
add(' doesn''t matter if the user does not');
|
||||
add(' actually link against crtbegin.o; the');
|
||||
add(' linker won''t look for a file to match a');
|
||||
add(' wildcard. The wildcard also means that it');
|
||||
add(' doesn''t matter which directory crtbegin.o');
|
||||
add(' is in. */');
|
||||
add(' KEEP (*crtbegin.o(.ctors))');
|
||||
add(' KEEP (*crtbegin?.o(.ctors))');
|
||||
add(' /* We don''t want to include the .ctor section from');
|
||||
add(' the crtend.o file until after the sorted ctors.');
|
||||
add(' The .ctor section from the crtend file contains the');
|
||||
add(' end of ctors marker and it must be last */');
|
||||
add(' KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .ctors))');
|
||||
add(' KEEP (*(SORT(.ctors.*)))');
|
||||
add(' KEEP (*(.ctors))');
|
||||
add(' }');
|
||||
add(' .dtors :');
|
||||
add(' {');
|
||||
add(' KEEP (*crtbegin.o(.dtors))');
|
||||
add(' KEEP (*crtbegin?.o(.dtors))');
|
||||
add(' KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .dtors))');
|
||||
add(' KEEP (*(SORT(.dtors.*)))');
|
||||
add(' KEEP (*(.dtors))');
|
||||
add(' }');
|
||||
add(' .jcr : { KEEP (*(.jcr)) }');
|
||||
add(' .data.rel.ro : { *(.data.rel.ro.local* .gnu.linkonce.d.rel.ro.local.*) *(.data.rel.ro* .gnu.linkonce.d.rel.ro.*) }');
|
||||
add(' .dynamic : { *(.dynamic) }');
|
||||
add(' .got : { *(.got.plt) *(.got) }');
|
||||
add(' .data :');
|
||||
add(' {');
|
||||
add(' __data_start = . ;');
|
||||
add(' *(.data .data.* .gnu.linkonce.d.*)');
|
||||
|
||||
{ extra by FPC }
|
||||
add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
|
||||
|
||||
add(' KEEP (*(.gnu.linkonce.d.*personality*))');
|
||||
add(' SORT(CONSTRUCTORS)');
|
||||
add(' }');
|
||||
add(' .data1 : { *(.data1) }');
|
||||
add(' _edata = .; PROVIDE (edata = .);');
|
||||
add(' __bss_start = .;');
|
||||
add(' __bss_start__ = .;');
|
||||
add(' .bss :');
|
||||
add(' {');
|
||||
add(' *(.dynbss)');
|
||||
add(' *(.bss .bss.* .gnu.linkonce.b.*)');
|
||||
add(' *(COMMON)');
|
||||
add(' /* Align here to ensure that the .bss section occupies space up to');
|
||||
add(' _end. Align after .bss to ensure correct alignment even if the');
|
||||
add(' .bss section disappears because there are no input sections.');
|
||||
add(' FIXME: Why do we need it? When there is no .bss section, we don''t');
|
||||
add(' pad the .data section. */');
|
||||
add(' . = ALIGN(. != 0 ? 32 / 8 : 1);');
|
||||
add(' }');
|
||||
add(' _bss_end__ = . ; __bss_end__ = . ;');
|
||||
add(' . = ALIGN(32 / 8);');
|
||||
add(' . = ALIGN(32 / 8);');
|
||||
add(' __end__ = . ;');
|
||||
add(' _end = .; PROVIDE (end = .);');
|
||||
add(' /* Stabs debugging sections. */');
|
||||
add(' .stab 0 : { *(.stab) }');
|
||||
add(' .stabstr 0 : { *(.stabstr) }');
|
||||
add(' .stab.excl 0 : { *(.stab.excl) }');
|
||||
add(' .stab.exclstr 0 : { *(.stab.exclstr) }');
|
||||
add(' .stab.index 0 : { *(.stab.index) }');
|
||||
add(' .stab.indexstr 0 : { *(.stab.indexstr) }');
|
||||
add(' .comment 0 : { *(.comment) }');
|
||||
add(' /* DWARF debug sections.');
|
||||
add(' Symbols in the DWARF debugging sections are relative to the beginning');
|
||||
add(' of the section so we begin them at 0. */');
|
||||
add(' /* DWARF 1 */');
|
||||
add(' .debug 0 : { *(.debug) }');
|
||||
add(' .line 0 : { *(.line) }');
|
||||
add(' /* GNU DWARF 1 extensions */');
|
||||
add(' .debug_srcinfo 0 : { *(.debug_srcinfo) }');
|
||||
add(' .debug_sfnames 0 : { *(.debug_sfnames) }');
|
||||
add(' /* DWARF 1.1 and DWARF 2 */');
|
||||
add(' .debug_aranges 0 : { *(.debug_aranges) }');
|
||||
add(' .debug_pubnames 0 : { *(.debug_pubnames) }');
|
||||
add(' /* DWARF 2 */');
|
||||
add(' .debug_info 0 : { *(.debug_info .gnu.linkonce.wi.*) }');
|
||||
add(' .debug_abbrev 0 : { *(.debug_abbrev) }');
|
||||
add(' .debug_line 0 : { *(.debug_line) }');
|
||||
add(' .debug_frame 0 : { *(.debug_frame) }');
|
||||
add(' .debug_str 0 : { *(.debug_str) }');
|
||||
add(' .debug_loc 0 : { *(.debug_loc) }');
|
||||
add(' .debug_macinfo 0 : { *(.debug_macinfo) }');
|
||||
add(' /* SGI/MIPS DWARF 2 extensions */');
|
||||
add(' .debug_weaknames 0 : { *(.debug_weaknames) }');
|
||||
add(' .debug_funcnames 0 : { *(.debug_funcnames) }');
|
||||
add(' .debug_typenames 0 : { *(.debug_typenames) }');
|
||||
add(' .debug_varnames 0 : { *(.debug_varnames) }');
|
||||
add(' /* DWARF 3 */');
|
||||
add(' .debug_pubtypes 0 : { *(.debug_pubtypes) }');
|
||||
add(' .debug_ranges 0 : { *(.debug_ranges) }');
|
||||
add(' .stack 0x80000 :');
|
||||
add(' {');
|
||||
add(' _stack = .;');
|
||||
add(' *(.stack)');
|
||||
add(' }');
|
||||
add(' .ARM.attributes 0 : { KEEP (*(.ARM.attributes)) KEEP (*(.gnu.attributes)) }');
|
||||
add(' .note.gnu.arm.ident 0 : { KEEP (*(.note.gnu.arm.ident)) }');
|
||||
add(' /DISCARD/ : { *(.note.GNU-stack) *(.gnu_debuglink) }');
|
||||
add('}');
|
||||
end;
|
||||
{$endif ARM}
|
||||
|
||||
{ Write and Close response }
|
||||
writetodisk;
|
||||
Free;
|
||||
end;
|
||||
|
||||
WriteResponseFile:=True;
|
||||
end;
|
||||
|
||||
|
||||
function TLinkerAndroid.MakeExecutable:boolean;
|
||||
var
|
||||
i : longint;
|
||||
binstr,
|
||||
cmdstr : TCmdStr;
|
||||
success : boolean;
|
||||
DynLinkStr : string;
|
||||
GCSectionsStr,
|
||||
StaticStr,
|
||||
StripStr : string[40];
|
||||
begin
|
||||
if not(cs_link_nolink in current_settings.globalswitches) then
|
||||
Message1(exec_i_linking,current_module.exefilename^);
|
||||
|
||||
{ Create some replacements }
|
||||
StaticStr:='';
|
||||
StripStr:='';
|
||||
GCSectionsStr:='';
|
||||
DynLinkStr:='';
|
||||
if (cs_link_staticflag in current_settings.globalswitches) then
|
||||
StaticStr:='-static';
|
||||
if (cs_link_strip in current_settings.globalswitches) and
|
||||
not(cs_link_separate_dbg_file in current_settings.globalswitches) then
|
||||
StripStr:='-s';
|
||||
if (cs_link_map in current_settings.globalswitches) then
|
||||
StripStr:='-Map '+maybequoted(ChangeFileExt(current_module.exefilename^,'.map'));
|
||||
if create_smartlink_sections then
|
||||
GCSectionsStr:='--gc-sections';
|
||||
If (cs_profile in current_settings.moduleswitches) or
|
||||
((Info.DynamicLinker<>'') and (not SharedLibFiles.Empty)) then
|
||||
begin
|
||||
DynLinkStr:='--dynamic-linker='+Info.DynamicLinker;
|
||||
if cshared then
|
||||
DynLinkStr:=DynLinkStr+' --shared ';
|
||||
if rlinkpath<>'' then
|
||||
DynLinkStr:=DynLinkStr+' --rpath-link '+rlinkpath;
|
||||
End;
|
||||
|
||||
{ Write used files and libraries }
|
||||
WriteResponseFile(false);
|
||||
|
||||
{ Call linker }
|
||||
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
|
||||
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename^));
|
||||
Replace(cmdstr,'$OPT',Info.ExtraOptions);
|
||||
Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
|
||||
Replace(cmdstr,'$STATIC',StaticStr);
|
||||
Replace(cmdstr,'$STRIP',StripStr);
|
||||
Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
|
||||
Replace(cmdstr,'$DYNLINK',DynLinkStr);
|
||||
|
||||
{ create dynamic symbol table? }
|
||||
if HasExports then
|
||||
cmdstr:=cmdstr+' -E';
|
||||
|
||||
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
|
||||
|
||||
{ Create external .dbg file with debuginfo }
|
||||
if success and (cs_link_separate_dbg_file in current_settings.globalswitches) then
|
||||
begin
|
||||
for i:=1 to 3 do
|
||||
begin
|
||||
SplitBinCmd(Info.ExtDbgCmd[i],binstr,cmdstr);
|
||||
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename^));
|
||||
Replace(cmdstr,'$DBGFN',maybequoted(extractfilename(current_module.dbgfilename^)));
|
||||
Replace(cmdstr,'$DBG',maybequoted(current_module.dbgfilename^));
|
||||
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
|
||||
if not success then
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ Remove ReponseFile }
|
||||
if (success) and not(cs_link_nolink in current_settings.globalswitches) then
|
||||
DeleteFile(outputexedir+Info.ResName);
|
||||
|
||||
MakeExecutable:=success; { otherwise a recursive call to link method }
|
||||
end;
|
||||
|
||||
|
||||
Function TLinkerAndroid.MakeSharedLibrary:boolean;
|
||||
var
|
||||
InitStr,
|
||||
FiniStr,
|
||||
SoNameStr : string[80];
|
||||
binstr,
|
||||
cmdstr : TCmdStr;
|
||||
success : boolean;
|
||||
begin
|
||||
MakeSharedLibrary:=false;
|
||||
if not(cs_link_nolink in current_settings.globalswitches) then
|
||||
Message1(exec_i_linking,current_module.sharedlibfilename^);
|
||||
|
||||
{ Write used files and libraries }
|
||||
WriteResponseFile(true);
|
||||
|
||||
{ Create some replacements }
|
||||
{ note: linux does not use exportlib.initname/fininame due to the custom startup code }
|
||||
InitStr:='-init FPC_SHARED_LIB_START';
|
||||
FiniStr:='-fini FPC_LIB_EXIT';
|
||||
SoNameStr:='-soname '+ExtractFileName(current_module.sharedlibfilename^);
|
||||
|
||||
{ Call linker }
|
||||
SplitBinCmd(Info.DllCmd[1],binstr,cmdstr);
|
||||
Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename^));
|
||||
Replace(cmdstr,'$OPT',Info.ExtraOptions);
|
||||
Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
|
||||
Replace(cmdstr,'$INIT',InitStr);
|
||||
Replace(cmdstr,'$FINI',FiniStr);
|
||||
Replace(cmdstr,'$SONAME',SoNameStr);
|
||||
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
|
||||
|
||||
{ Strip the library ? }
|
||||
if success and (cs_link_strip in current_settings.globalswitches) then
|
||||
begin
|
||||
{ only remove non global symbols and debugging info for a library }
|
||||
Info.DllCmd[2]:='strip --discard-all --strip-debug $EXE';
|
||||
SplitBinCmd(Info.DllCmd[2],binstr,cmdstr);
|
||||
Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename^));
|
||||
success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
|
||||
end;
|
||||
|
||||
{ Remove ReponseFile }
|
||||
if (success) and not(cs_link_nolink in current_settings.globalswitches) then
|
||||
DeleteFile(outputexedir+Info.ResName);
|
||||
|
||||
MakeSharedLibrary:=success; { otherwise a recursive call to link method }
|
||||
end;
|
||||
|
||||
{*****************************************************************************
|
||||
Initialize
|
||||
*****************************************************************************}
|
||||
|
||||
initialization
|
||||
{$ifdef ARM}
|
||||
RegisterExternalLinker(system_arm_android_info,TLinkerAndroid);
|
||||
RegisterImport(system_arm_android,timportlibandroid);
|
||||
RegisterExport(system_arm_android,texportlibandroid);
|
||||
RegisterTarget(system_arm_android_info);
|
||||
{$endif ARM}
|
||||
RegisterRes(res_elf_info,TWinLikeResourceFile);
|
||||
end.
|
||||
301
rtl/android/Makefile.fpc
Normal file
301
rtl/android/Makefile.fpc
Normal file
@ -0,0 +1,301 @@
|
||||
#
|
||||
# Makefile.fpc for Free Pascal Linux RTL
|
||||
#
|
||||
|
||||
[package]
|
||||
main=rtl
|
||||
|
||||
[target]
|
||||
loaders=$(LOADERS)
|
||||
units=$(SYSTEMUNIT) $(SYSINIT_UNITS) \
|
||||
unixtype ctypes baseunix strings objpas macpas iso7185 syscall unixutil \
|
||||
fpintres heaptrc lineinfo lnfodwrf \
|
||||
termio unix linux initc cmem $(CPU_UNITS) \
|
||||
crt printer linuxvcs \
|
||||
sysutils typinfo math matrix varutils \
|
||||
charset character ucomplex getopts \
|
||||
errors sockets gpm ipc serial terminfo dl dynlibs \
|
||||
video mouse keyboard variants types dateutils sysconst fmtbcd \
|
||||
cthreads classes fgl convutils stdconvs strutils rtlconsts dos objects cwstring fpcylix clocale
|
||||
implicitunits=exeinfo
|
||||
|
||||
rsts=math varutils typinfo variants sysconst rtlconsts stdconvs
|
||||
|
||||
[require]
|
||||
nortl=y
|
||||
|
||||
[clean]
|
||||
units=syslinux linux
|
||||
|
||||
[install]
|
||||
fpcpackage=y
|
||||
|
||||
[default]
|
||||
fpcdir=../..
|
||||
target=android
|
||||
|
||||
[compiler]
|
||||
includedir=$(INC) $(PROCINC) $(UNIXINC) $(ARCH) $(LINUXINC) $(OSPROCINC)
|
||||
sourcedir=$(INC) $(PROCINC) $(UNIXINC) $(ARCH) $(COMMON) $(LINUXINC)
|
||||
targetdir=.
|
||||
|
||||
[shared]
|
||||
libunits=$(SYSTEMUNIT) objpas strings dos \
|
||||
unix baseunix unixtype unixutil \
|
||||
sysutils typinfo math \
|
||||
$(CPU_UNITS) getopts \
|
||||
errors sockets varutils \
|
||||
classes fgl variants sysconst rtlconsts \
|
||||
|
||||
[prerules]
|
||||
RTL=..
|
||||
INC=$(RTL)/inc
|
||||
COMMON=$(RTL)/common
|
||||
PROCINC=$(RTL)/$(ARCH)
|
||||
UNIXINC=$(RTL)/unix
|
||||
OSPROCINC=$(RTL)/linux/$(CPU_TARGET)
|
||||
LINUXINC=$(RTL)/linux
|
||||
|
||||
UNITPREFIX=rtl
|
||||
|
||||
CPU_UNITS=
|
||||
SYSINIT_UNITS=
|
||||
|
||||
LOADERS=prt0 dllprt0 cprt0
|
||||
|
||||
ifeq ($(ARCH),i386)
|
||||
ifeq ($(findstring 2.0.,$(FPC_VERSION)),)
|
||||
override LOADERS=
|
||||
else
|
||||
override LOADERS+=cprt21 gprt21
|
||||
endif
|
||||
CPU_UNITS=x86 ports cpu mmx
|
||||
SYSINIT_UNITS=si_prc si_c21g si_c21 si_c si_dll si_uc
|
||||
endif
|
||||
|
||||
ifeq ($(ARCH),x86_64)
|
||||
CPU_UNITS=x86 ports cpu
|
||||
SYSINIT_UNITS= # si_prc si_c si_dll
|
||||
endif
|
||||
|
||||
SYSTEMUNIT=system
|
||||
|
||||
# Causes release PPU files not to be recompiled
|
||||
ifdef RELEASE
|
||||
override FPCOPT+=-Ur
|
||||
endif
|
||||
|
||||
# Paths
|
||||
OBJPASDIR=$(RTL)/objpas
|
||||
|
||||
[rules]
|
||||
.NOTPARALLEL:
|
||||
# Get the $(SYSTEMUNIT) independent include file names.
|
||||
# This will set the following variables :
|
||||
# SYSINCNAMES
|
||||
include $(INC)/makefile.inc
|
||||
SYSINCDEPS=$(addprefix $(INC)/,$(SYSINCNAMES))
|
||||
|
||||
# Get the processor dependent include file names.
|
||||
# This will set the following variables :
|
||||
# CPUINCNAMES
|
||||
include $(PROCINC)/makefile.cpu
|
||||
SYSCPUDEPS=$(addprefix $(PROCINC)/,$(CPUINCNAMES))
|
||||
|
||||
# Put $(SYSTEMUNIT) unit dependencies together.
|
||||
SYSDEPS=$(SYSINCDEPS) $(SYSCPUDEPS)
|
||||
|
||||
# Select 32/64 mode
|
||||
ifeq ($(ARCH),i386)
|
||||
ASTARGET=--32
|
||||
endif
|
||||
ifeq ($(ARCH),x86_64)
|
||||
ASTARGET=--64
|
||||
endif
|
||||
ifeq ($(ARCH),powerpc64)
|
||||
ASTARGET=-a64
|
||||
endif
|
||||
|
||||
#
|
||||
# Loaders
|
||||
#
|
||||
|
||||
prt0$(OEXT) : $(ARCH)/prt0.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)prt0$(OEXT) $(ARCH)/prt0.as
|
||||
|
||||
dllprt0$(OEXT) : $(ARCH)/dllprt0.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)dllprt0$(OEXT) $(ARCH)/dllprt0.as
|
||||
|
||||
cprt0$(OEXT) : $(ARCH)/cprt0.as
|
||||
$(AS) $(ASTARGET) -o $(UNITTARGETDIRPREFIX)cprt0$(OEXT) $(ARCH)/cprt0.as
|
||||
|
||||
#
|
||||
# $(SYSTEMUNIT) Units ($(SYSTEMUNIT), Objpas, Strings)
|
||||
#
|
||||
|
||||
$(SYSTEMUNIT)$(PPUEXT) : $(LINUXINC)/$(SYSTEMUNIT).pp $(SYSDEPS)
|
||||
$(COMPILER) -Us -Sg $(LINUXINC)/$(SYSTEMUNIT).pp
|
||||
|
||||
objpas$(PPUEXT): $(OBJPASDIR)/objpas.pp $(INC)/except.inc $(SYSTEMUNIT)$(PPUEXT)
|
||||
$(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/objpas.pp
|
||||
|
||||
dateutils$(PPUEXT): $(OBJPASDIR)/dateutils.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
$(COMPILER) -I$(OBJPASDIR) $(OBJPASDIR)/dateutils.pp
|
||||
|
||||
strings$(PPUEXT) : $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
$(PROCINC)/strings.inc $(PROCINC)/stringss.inc\
|
||||
$(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
#
|
||||
# $(SYSTEMUNIT) Dependent Units
|
||||
#
|
||||
|
||||
unix$(PPUEXT) : unix.pp strings$(PPUEXT) baseunix$(PPUEXT) $(INC)/textrec.inc $(INC)/filerec.inc \
|
||||
unxconst.inc $(UNIXINC)/timezone.inc $(SYSTEMUNIT)$(PPUEXT) \
|
||||
unxfunc.inc
|
||||
|
||||
unixtype$(PPUEXT) : $(UNIXINC)/unixtype.pp ptypes.inc $(UNIXINC)/ctypes.inc $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
baseunix$(PPUEXT) : errno.inc ptypes.inc $(UNIXINC)/ctypes.inc \
|
||||
$(UNIXINC)/bunxh.inc \
|
||||
bunxsysc.inc $(ARCH)/syscallh.inc $(ARCH)/sysnr.inc \
|
||||
ostypes.inc osmacro.inc $(UNIXINC)/gensigset.inc \
|
||||
$(UNIXINC)/genfuncs.inc $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
ports$(PPUEXT) : ports.pp unix$(PPUEXT) objpas$(PPUEXT)
|
||||
|
||||
dl$(PPUEXT) : $(UNIXINC)/dl.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
dynlibs$(PPUEXT) : $(INC)/dynlibs.pas $(UNIXINC)/dynlibs.inc dl$(PPUEXT) objpas$(PPUEXT)
|
||||
|
||||
#
|
||||
# TP7 Compatible RTL Units
|
||||
#
|
||||
|
||||
dos$(PPUEXT) : dos.pp $(INC)/filerec.inc $(INC)/textrec.inc strings$(PPUEXT) \
|
||||
unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
crt$(PPUEXT) : crt.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
objects$(PPUEXT) : $(INC)/objects.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
printer$(PPUEXT) : printer.pp $(INC)/textrec.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
#
|
||||
# Delphi Compatible Units
|
||||
#
|
||||
|
||||
sysutils$(PPUEXT) : $(UNIXINC)/sysutils.pp $(wildcard $(OBJPASDIR)/sysutils/*.inc) \
|
||||
objpas$(PPUEXT) unix$(PPUEXT) errors$(PPUEXT) sysconst$(PPUEXT)
|
||||
$(COMPILER) -Fi$(OBJPASDIR)/sysutils $(UNIXINC)/sysutils.pp
|
||||
|
||||
classes$(PPUEXT) : $(UNIXINC)/classes.pp $(wildcard $(OBJPASDIR)/classes/*.inc) \
|
||||
sysutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT) fgl$(PPUEXT)
|
||||
$(COMPILER) -Fi$(OBJPASDIR)/classes $(UNIXINC)/classes.pp
|
||||
|
||||
typinfo$(PPUEXT): $(OBJPASDIR)/typinfo.pp objpas$(PPUEXT) sysutils$(PPUEXT) rtlconsts$(PPUEXT)
|
||||
$(COMPILER) -Sg $(OBJPASDIR)/typinfo.pp
|
||||
|
||||
character$(PPUEXT): $(OBJPASDIR)/character.pas objpas$(PPUEXT) sysutils$(PPUEXT) rtlconsts$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/character.pas
|
||||
|
||||
math$(PPUEXT): $(OBJPASDIR)/math.pp objpas$(PPUEXT) sysutils$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/math.pp
|
||||
|
||||
gettext$(PPUEXT): $(OBJPASDIR)/gettext.pp objpas$(PPUEXT) sysutils$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/gettext.pp
|
||||
|
||||
varutils$(PPUEXT) : $(OBJPASDIR)/cvarutil.inc $(OBJPASDIR)/varutils.inc \
|
||||
$(OBJPASDIR)/varutilh.inc varutils.pp sysutils$(PPUEXT)
|
||||
$(COMPILER) -I$(OBJPASDIR) $(UNIXINC)/varutils.pp
|
||||
|
||||
variants$(PPUEXT) : $(INC)/variants.pp sysutils$(PPUEXT) sysconst$(PPUEXT) varutils$(PPUEXT) typinfo$(PPUEXT) rtlconsts$(PPUEXT)
|
||||
$(COMPILER) -Fi$(INC) $(INC)/variants.pp
|
||||
|
||||
fmtbcd$(PPUEXT) : $(OBJPASDIR)/fmtbcd.pp objpas$(PPUEXT) sysutils$(PPUEXT) variants$(PPUEXT) classes$(PPUEXT) system$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/fmtbcd.pp
|
||||
|
||||
fgl$(PPUEXT) : $(OBJPASDIR)/fgl.pp objpas$(PPUEXT) types$(PPUEXT) system$(PPUEXT) sysutils$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/fgl.pp
|
||||
|
||||
types$(PPUEXT) : $(OBJPASDIR)/types.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/types.pp
|
||||
|
||||
sysconst$(PPUEXT) : $(OBJPASDIR)/sysconst.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/sysconst.pp
|
||||
|
||||
rtlconsts$(PPUEXT) : $(OBJPASDIR)/rtlconsts.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/rtlconsts.pp
|
||||
|
||||
strutils$(PPUEXT) : $(OBJPASDIR)/strutils.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
sysutils$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/strutils.pp
|
||||
|
||||
convutils$(PPUEXT) : $(OBJPASDIR)/convutils.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
sysutils$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/convutils.pp
|
||||
|
||||
stdconvs$(PPUEXT) : $(OBJPASDIR)/stdconvs.pp objpas$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \
|
||||
sysutils$(PPUEXT)
|
||||
$(COMPILER) $(OBJPASDIR)/stdconvs.pp
|
||||
|
||||
#
|
||||
# Mac Pascal Model
|
||||
#
|
||||
|
||||
macpas$(PPUEXT) : $(INC)/macpas.pp objpas$(PPUEXT) math$(PPUEXT)
|
||||
$(COMPILER) $(INC)/macpas.pp $(REDIR)
|
||||
|
||||
#
|
||||
# Other $(SYSTEMUNIT)-independent RTL Units
|
||||
#
|
||||
|
||||
ifeq ($(ARCH),x86_64)
|
||||
cpu$(PPUEXT) : $(PROCINC)/cpu.pp $(SYSTEMUNIT)$(PPUEXT) sysutils$(PPUEXT)
|
||||
else
|
||||
cpu$(PPUEXT) : $(PROCINC)/cpu.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
endif
|
||||
|
||||
mmx$(PPUEXT) : $(PROCINC)/mmx.pp cpu$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
getopts$(PPUEXT) : $(INC)/getopts.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
heaptrc$(PPUEXT) : $(INC)/heaptrc.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
$(COMPILER) -Sg $(INC)/heaptrc.pp
|
||||
|
||||
lineinfo$(PPUEXT) : $(INC)/lineinfo.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
lnfodwrf$(PPUEXT) : $(INC)/lnfodwrf.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
charset$(PPUEXT) : $(INC)/charset.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
ucomplex$(PPUEXT) : $(INC)/ucomplex.pp math$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
|
||||
#
|
||||
# Other $(SYSTEMUNIT)-dependent RTL Units
|
||||
#
|
||||
|
||||
sockets$(PPUEXT) : sockets.pp $(INC)/textrec.inc $(INC)/filerec.inc \
|
||||
unixsock.inc unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
errors$(PPUEXT) : errors.pp strings$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
# Android does not support SysV IPC at all
|
||||
#ipc$(PPUEXT) : ipc.pp unix$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
terminfo$(PPUEXT) : terminfo.pp unix$(PPUEXT)
|
||||
|
||||
callspec$(PPUEXT) : $(INC)/callspec.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
cmem$(PPUEXT) : $(INC)/cmem.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
cthreads$(PPUEXT) : $(UNIXINC)/cthreads.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
cwstring$(PPUEXT) : $(UNIXINC)/cwstring.pp $(SYSTEMUNIT)$(PPUEXT) sysutils$(PPUEXT) baseunix$(PPUEXT) unix$(PPUEXT) unixtype$(PPUEXT) ctypes$(PPUEXT) dynlibs$(PPUEXT)
|
||||
|
||||
gpm$(PPUEXT): gpm.pp unix$(PPUEXT) baseunix$(PPUEXT) sockets$(PPUEXT)
|
||||
|
||||
ctypes$(PPUEXT) : $(INC)/ctypes.pp $(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
fpcylix$(PPUEXT) : fpcylix.pp $(SYSTEMUNIT)$(PPUEXT) dynlibs$(PPUEXT) objpas$(PPUEXT)
|
||||
148
rtl/android/arm/cprt0.as
Normal file
148
rtl/android/arm/cprt0.as
Normal file
@ -0,0 +1,148 @@
|
||||
/* Startup code for ARM & ELF
|
||||
Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library 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. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
/* This is the canonical entry point, usually the first thing in the text
|
||||
segment.
|
||||
|
||||
Note that the code in the .init section has already been run.
|
||||
This includes _init and _libc_init
|
||||
|
||||
|
||||
At this entry point, most registers' values are unspecified, except:
|
||||
|
||||
a1 Contains a function pointer to be registered with `atexit'.
|
||||
This is how the dynamic linker arranges to have DT_FINI
|
||||
functions called for shared libraries that have been loaded
|
||||
before this code runs.
|
||||
|
||||
sp The stack contains the arguments and environment:
|
||||
0(sp) argc
|
||||
4(sp) argv[0]
|
||||
...
|
||||
(4*argc)(sp) NULL
|
||||
(4*(argc+1))(sp) envp[0]
|
||||
...
|
||||
NULL
|
||||
*/
|
||||
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,#function
|
||||
_start:
|
||||
/* Clear the frame pointer since this is the outermost frame. */
|
||||
mov fp, #0
|
||||
ldmia sp!, {a2}
|
||||
|
||||
/* Pop argc off the stack and save a pointer to argv */
|
||||
ldr ip,=operatingsystem_parameter_argc
|
||||
ldr a3,=operatingsystem_parameter_argv
|
||||
str a2,[ip]
|
||||
|
||||
/* calc envp */
|
||||
add a4,a2,#1
|
||||
add a4,sp,a4,LSL #2
|
||||
ldr ip,=operatingsystem_parameter_envp
|
||||
|
||||
str sp,[a3]
|
||||
str a4,[ip]
|
||||
|
||||
/* Save initial stackpointer */
|
||||
ldr ip,=__stkptr
|
||||
str sp,[ip]
|
||||
|
||||
/* Fetch address of fini */
|
||||
ldr ip, =_fini
|
||||
|
||||
/* argc already loaded to a2*/
|
||||
|
||||
/* load argv */
|
||||
mov a3, sp
|
||||
|
||||
/* Push stack limit */
|
||||
str a3, [sp, #-4]!
|
||||
|
||||
/* Push rtld_fini */
|
||||
str a1, [sp, #-4]!
|
||||
|
||||
/* Set up the other arguments in registers */
|
||||
ldr a1, =PASCALMAIN
|
||||
ldr a4, =_init
|
||||
|
||||
/* Push fini */
|
||||
str ip, [sp, #-4]!
|
||||
|
||||
/* __libc_start_main (main, argc, argv, init, fini, rtld_fini, stack_end) */
|
||||
|
||||
/* Let the libc call main and exit with its return code. */
|
||||
bl __libc_start_main
|
||||
|
||||
/* should never get here....*/
|
||||
bl abort
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,#function
|
||||
_haltproc:
|
||||
ldr r0,=operatingsystem_result
|
||||
ldrb r0,[r0]
|
||||
swi 0x900001
|
||||
b _haltproc
|
||||
|
||||
.globl _haltproc_eabi
|
||||
.type _haltproc_eabi,#function
|
||||
_haltproc_eabi:
|
||||
ldr r0,=operatingsystem_result
|
||||
ldrb r0,[r0]
|
||||
mov r7,#248
|
||||
swi 0x0
|
||||
b _haltproc_eabi
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.data
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
.long 0
|
||||
.weak data_start
|
||||
data_start = __data_start
|
||||
|
||||
.bss
|
||||
.comm __stkptr,4
|
||||
|
||||
.comm operatingsystem_parameter_envp,4
|
||||
.comm operatingsystem_parameter_argc,4
|
||||
.comm operatingsystem_parameter_argv,4
|
||||
|
||||
.section ".comment"
|
||||
.byte 0
|
||||
.ascii "generated by FPC http://www.freepascal.org\0"
|
||||
|
||||
/* We need this stuff to make gdb behave itself, otherwise
|
||||
gdb will chokes with SIGILL when trying to debug apps.
|
||||
*/
|
||||
.section ".note.ABI-tag", "a"
|
||||
.align 4
|
||||
.long 1f - 0f
|
||||
.long 3f - 2f
|
||||
.long 1
|
||||
0: .asciz "GNU"
|
||||
1: .align 4
|
||||
2: .long 0
|
||||
.long 2,0,0
|
||||
3: .align 4
|
||||
|
||||
.section .note.GNU-stack,"",%progbits
|
||||
75
rtl/android/arm/dllprt0.as
Normal file
75
rtl/android/arm/dllprt0.as
Normal file
@ -0,0 +1,75 @@
|
||||
/*
|
||||
* This file is part of the Free Pascal run time library.
|
||||
* Copyright (c) 2011 by Thomas Schatzl,
|
||||
* member of the Free Pascal development team.
|
||||
*
|
||||
* Startup code for shared libraries, ARM version.
|
||||
*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
.file "dllprt0.as"
|
||||
.text
|
||||
.globl _startlib
|
||||
.type _startlib,#function
|
||||
_startlib:
|
||||
.globl FPC_SHARED_LIB_START
|
||||
.type FPC_SHARED_LIB_START,#function
|
||||
FPC_SHARED_LIB_START:
|
||||
mov ip, sp
|
||||
stmfd sp!,{fp, ip, lr, pc}
|
||||
sub fp, ip, #4
|
||||
|
||||
/* registers do not contain any of the argc/argv/envp
|
||||
information. They are zero by default anyway, so no
|
||||
need to do anything else */
|
||||
|
||||
/* save initial stackpointer */
|
||||
ldr ip, =__stklen
|
||||
str sp, [ip]
|
||||
|
||||
/* call main and exit normally */
|
||||
bl PASCALMAIN
|
||||
ldmdb fp, {fp, sp, pc}
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,#function
|
||||
_haltproc:
|
||||
/* reload exitcode */
|
||||
ldr r0,=operatingsystem_result
|
||||
ldr r0,[r0]
|
||||
swi 0x900001
|
||||
b _haltproc
|
||||
|
||||
.globl _haltproc_eabi
|
||||
.type _haltproc_eabi,#function
|
||||
_haltproc_eabi:
|
||||
/* reload exitcode */
|
||||
ldr r0,=operatingsystem_result
|
||||
ldr r0,[r0]
|
||||
mov r7,#248
|
||||
swi 0x0
|
||||
b _haltproc_eabi
|
||||
|
||||
.data
|
||||
|
||||
.type operatingsystem_parameters,#object
|
||||
.size operatingsystem_parameters,12
|
||||
operatingsystem_parameters:
|
||||
.skip 3*4
|
||||
.global operatingsystem_parameter_envp
|
||||
.global operatingsystem_parameter_argc
|
||||
.global operatingsystem_parameter_argv
|
||||
.set operatingsystem_parameter_envp,operatingsystem_parameters+0
|
||||
.set operatingsystem_parameter_argc,operatingsystem_parameters+4
|
||||
.set operatingsystem_parameter_argv,operatingsystem_parameters+8
|
||||
|
||||
.bss
|
||||
|
||||
.comm __stkptr,4
|
||||
|
||||
141
rtl/android/arm/prt0.as
Normal file
141
rtl/android/arm/prt0.as
Normal file
@ -0,0 +1,141 @@
|
||||
/* Startup code for ARM & ELF
|
||||
Copyright (C) 1995, 1996, 1997, 1998, 2001, 2002 Free Software Foundation, Inc.
|
||||
This file is part of the GNU C Library.
|
||||
|
||||
The GNU C Library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
The GNU C Library 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. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with the GNU C Library; if not, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
/* This is the canonical entry point, usually the first thing in the text
|
||||
segment.
|
||||
|
||||
Note that the code in the .init section has already been run.
|
||||
This includes _init and _libc_init
|
||||
|
||||
|
||||
At this entry point, most registers' values are unspecified, except:
|
||||
|
||||
a1 Contains a function pointer to be registered with `atexit'.
|
||||
This is how the dynamic linker arranges to have DT_FINI
|
||||
functions called for shared libraries that have been loaded
|
||||
before this code runs.
|
||||
|
||||
sp The stack contains the arguments and environment:
|
||||
0(sp) argc
|
||||
4(sp) argv[0]
|
||||
...
|
||||
(4*argc)(sp) NULL
|
||||
(4*(argc+1))(sp) envp[0]
|
||||
...
|
||||
NULL
|
||||
*/
|
||||
|
||||
.text
|
||||
.globl _dynamic_start
|
||||
.type _dynamic_start,#function
|
||||
_dynamic_start:
|
||||
ldr ip,=__dl_fini
|
||||
str a1,[ip]
|
||||
b _start
|
||||
|
||||
.text
|
||||
.globl _start
|
||||
.type _start,#function
|
||||
_start:
|
||||
/* Clear the frame pointer since this is the outermost frame. */
|
||||
mov fp, #0
|
||||
ldmia sp!, {a2}
|
||||
|
||||
/* Pop argc off the stack and save a pointer to argv */
|
||||
ldr ip,=operatingsystem_parameter_argc
|
||||
ldr a3,=operatingsystem_parameter_argv
|
||||
str a2,[ip]
|
||||
|
||||
/* calc envp */
|
||||
add a2,a2,#1
|
||||
add a2,sp,a2,LSL #2
|
||||
ldr ip,=operatingsystem_parameter_envp
|
||||
|
||||
str sp,[a3]
|
||||
str a2,[ip]
|
||||
|
||||
/* Save initial stackpointer */
|
||||
ldr ip,=__stkptr
|
||||
str sp,[ip]
|
||||
/* align sp again to 8 byte boundary, needed by eabi */
|
||||
sub sp,sp,#4
|
||||
|
||||
/* Let the libc call main and exit with its return code. */
|
||||
bl PASCALMAIN
|
||||
|
||||
.globl _haltproc
|
||||
.type _haltproc,#function
|
||||
_haltproc:
|
||||
/* r0 contains exitcode */
|
||||
swi 0x900001
|
||||
b _haltproc
|
||||
|
||||
.globl _haltproc_eabi
|
||||
.type _haltproc_eabi,#function
|
||||
_haltproc_eabi:
|
||||
ldr r0,=__dl_fini
|
||||
ldr r0,[r0]
|
||||
cmp r0,#0
|
||||
|
||||
/* only branch if not equal zero */
|
||||
movne lr,pc
|
||||
bxne r0 /* we require armv5 anyway, so use bx here */
|
||||
|
||||
.Lloop:
|
||||
ldr r0,=operatingsystem_result
|
||||
ldr r0,[r0]
|
||||
mov r7,#248 /* exit group call */
|
||||
swi 0x0
|
||||
b .Lloop
|
||||
|
||||
/* Define a symbol for the first piece of initialized data. */
|
||||
.data
|
||||
.globl __data_start
|
||||
__data_start:
|
||||
.long 0
|
||||
.weak data_start
|
||||
data_start = __data_start
|
||||
|
||||
.bss
|
||||
.comm __dl_fini,4
|
||||
.comm __stkptr,4
|
||||
|
||||
.comm operatingsystem_parameter_envp,4
|
||||
.comm operatingsystem_parameter_argc,4
|
||||
.comm operatingsystem_parameter_argv,4
|
||||
|
||||
.section ".comment"
|
||||
.byte 0
|
||||
.ascii "generated by FPC http://www.freepascal.org\0"
|
||||
|
||||
/* We need this stuff to make gdb behave itself, otherwise
|
||||
gdb will chokes with SIGILL when trying to debug apps.
|
||||
*/
|
||||
.section ".note.ABI-tag", "a"
|
||||
.align 4
|
||||
.long 1f - 0f
|
||||
.long 3f - 2f
|
||||
.long 1
|
||||
0: .asciz "GNU"
|
||||
1: .align 4
|
||||
2: .long 0
|
||||
.long 2,0,0
|
||||
3: .align 4
|
||||
|
||||
.section .note.GNU-stack,"",%progbits
|
||||
Loading…
Reference in New Issue
Block a user