paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS: and also add the system info/target units which were forgotten in the previous commit

Browse Source 
git-svn-id: trunk@28433 -
This commit is contained in:
Károly Balogh 2014-08-17 18:36:57 +00:00
parent 4431ba2c08
commit 1410838aa7
3 changed files with 468 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -673,6 +673,7 @@ compiler/systems.pas svneol=native#text/plain
compiler/systems/i_aix.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_amiga.pas svneol=native#text/plain
compiler/systems/i_android.pas svneol=native#text/plain compiler/systems/i_android.pas svneol=native#text/plain
compiler/systems/i_aros.pas svneol=native#text/plain
compiler/systems/i_atari.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_beos.pas svneol=native#text/plain
compiler/systems/i_bsd.pas svneol=native#text/plain compiler/systems/i_bsd.pas svneol=native#text/plain
@ -702,6 +703,7 @@ compiler/systems/mac_crea.txt svneol=native#text/plain
compiler/systems/t_aix.pas 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_amiga.pas svneol=native#text/plain
compiler/systems/t_android.pas svneol=native#text/plain compiler/systems/t_android.pas svneol=native#text/plain
compiler/systems/t_aros.pas svneol=native#text/plain
compiler/systems/t_atari.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_beos.pas svneol=native#text/plain
compiler/systems/t_bsd.pas svneol=native#text/plain compiler/systems/t_bsd.pas svneol=native#text/plain

169
compiler/systems/i_aros.pas Normal file
View File

@ -0,0 +1,169 @@
{
Copyright (c) 1998-2002 by Peter Vreman
This unit implements support information structures for arosOS
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 the arosOS. }
unit i_aros;
{$i fpcdefs.inc}
interface
uses
systems;
const
system_i386_aros_info : tsysteminfo =
(
system : system_i386_aros;
name : 'AROS for i386';
shortname : 'aros';
flags : [tf_files_case_aware, tf_smartlink_library, tf_has_winlike_resources];
cpu : cpu_i386;
unit_env : '';
extradefines : 'HASAMIGA';
exeext : '';
defext : '.def';
scriptext : '.sh';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
resext : '.res';
resobjext : '.or';
sharedlibext : '.library';
staticlibext : '.a';
staticlibprefix : 'libp';
sharedlibprefix : '';
sharedClibext : '.library';
staticClibext : '.a';
staticClibprefix : 'lib';
sharedClibprefix : '';
importlibprefix : 'libimp';
importlibext : '.a';
Cprefix : '';
newline : #10;
dirsep : '/';
assem : as_i386_elf32;
assemextern : as_gas;
link : ld_none;
linkextern : ld_aros;
ar : ar_gnu_ar;
res : res_elf;
dbg : dbg_stabs;
script : script_amiga;
endian : endian_little;
alignment :
(
procalign : 16;
loopalign : 4;
jumpalign : 0;
constalignmin : 0;
constalignmax : 8;
varalignmin : 0;
varalignmax : 16;
localalignmin : 0;
localalignmax : 4;
recordalignmin : 0;
recordalignmax : 16;
maxCrecordalign : 4
);
first_parm_offset : 8;
stacksize : 262144;
stackalign : 4;
abi : abi_default;
);
system_x86_64_aros_info : tsysteminfo =
(
system : system_x86_64_aros;
name : 'AROS for x86_64';
shortname : 'aros';
flags : [tf_files_case_aware];
cpu : cpu_x86_64;
unit_env : '';
extradefines : 'HASAMIGA';
exeext : '';
defext : '.def';
scriptext : '.sh';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
asmext : '.s';
objext : '.o';
resext : '.res';
resobjext : '.or';
sharedlibext : '.library';
staticlibext : '.a';
staticlibprefix : 'libp';
sharedlibprefix : '';
sharedClibext : '.library';
staticClibext : '.a';
staticClibprefix : 'lib';
sharedClibprefix : '';
importlibprefix : 'libimp';
importlibext : '.a';
Cprefix : '';
newline : #10;
dirsep : '/';
assem : as_x86_64_elf64;
assemextern : as_gas;
link : ld_none;
linkextern : ld_aros;
ar : ar_gnu_ar;
res : res_none;
dbg : dbg_stabs;
script : script_amiga;
endian : endian_little;
alignment :
(
procalign : 8;
loopalign : 4;
jumpalign : 0;
constalignmin : 0;
constalignmax : 8;
varalignmin : 0;
varalignmax : 16;
localalignmin : 4;
localalignmax : 16;
recordalignmin : 0;
recordalignmax : 16;
maxCrecordalign : 16
);
first_parm_offset : 16;
stacksize : 8*1024*1024;
stackalign : 16; { fix me: this is a wild guess for now (KB) }
abi : abi_default;
);
implementation
initialization
{$ifdef CPU86}
{$ifdef aros}
set_source_info(system_i386_aros_info);
{$endif aros}
{$endif CPU86}
{$ifdef CPUX86_64}
{$ifdef AROS}
set_source_info(system_x86_64_aros_info);
{$endif AROS}
{$endif CPUX86_64}
end.

297
compiler/systems/t_aros.pas Normal file
View File

@ -0,0 +1,297 @@
{
Copyright (c) 2004-2006 by Free Pascal Development Team
This unit implements support import, export, link routines
for the aros targets (arosOS/i386, arosOS/x86_64)
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_aros;
{$i fpcdefs.inc}
interface
uses
rescmn, comprsrc, import, export, link, ogbase;
type
timportlibaros=class(timportlib)
procedure generatelib; override;
end;
PLinkeraros = ^TLinkeraros;
TLinkeraros = class(texternallinker)
private
function WriteResponseFile(isdll: boolean): boolean;
procedure Setaros386Info;
procedure Setarosx86_64Info;
function Makearos386Exe: boolean;
function Makearosx86_64Exe: boolean;
public
constructor Create; override;
procedure SetDefaultInfo; override;
function MakeExecutable: boolean; override;
end;
implementation
uses
SysUtils,
cutils,cfileutl,cclasses,
globtype,globals,systems,verbose,script,fmodule,i_aros;
procedure timportlibaros.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;
{****************************************************************************
TLinkeraros
****************************************************************************}
constructor TLinkeraros.Create;
begin
Inherited Create;
{ allow duplicated libs (PM) }
SharedLibFiles.doubles:=true;
StaticLibFiles.doubles:=true;
end;
procedure TLinkeraros.Setaros386Info;
begin
with Info do begin
//ExeCmd[1]:='collect-aros $OPT -d -n -o $EXE $RES';
ExeCmd[1]:='i386-aros-ld $OPT -d -n -o $EXE $RES';
end;
end;
procedure TLinkeraros.Setarosx86_64Info;
begin
with Info do begin
ExeCmd[1]:='x86_64-aros-ld $OPT -defsym=__AROS__=1 -d -q -n -o $EXE $RES';
end;
end;
procedure TLinkeraros.SetDefaultInfo;
begin
case (target_info.system) of
system_i386_aros: Setaros386Info;
system_x86_64_aros: Setarosx86_64Info;
end;
end;
function TLinkeraros.WriteResponseFile(isdll: boolean): boolean;
var
linkres : TLinkRes;
i : longint;
HPath : TCmdStrListItem;
s,s1 : string;
linklibc : boolean;
begin
WriteResponseFile:=False;
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
{ Write path to search libraries }
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do
begin
s:=HPath.Str;
if (cs_link_on_target in current_settings.globalswitches) then
s:=ScriptFixFileName(s);
LinkRes.Add('-L'+s);
HPath:=TCmdStrListItem(HPath.Next);
end;
HPath:=TCmdStrListItem(LibrarySearchPath.First);
while assigned(HPath) do
begin
s:=HPath.Str;
s1 := Unix2AmigaPath(maybequoted(s));
if trim(s1)<>'' then
LinkRes.Add('SEARCH_DIR('+s1+')');
HPath:=TCmdStrListItem(HPath.Next);
end;
LinkRes.Add('INPUT (');
{ add objectfiles, start with prt0 always }
s:=FindObjectFile('prt0','',false);
LinkRes.AddFileName(s);
while not ObjectFiles.Empty do
begin
s:=ObjectFiles.GetFirst;
if s<>'' then
begin
LinkRes.AddFileName(Unix2AmigaPath(maybequoted(s)));
end;
end;
{ Write staticlibraries }
if not StaticLibFiles.Empty then
begin
LinkRes.Add(')');
LinkRes.Add('GROUP(');
while not StaticLibFiles.Empty do
begin
S:=StaticLibFiles.GetFirst;
LinkRes.AddFileName(Unix2AmigaPath(maybequoted(s)));
end;
end;
if (cs_link_on_target in current_settings.globalswitches) then
begin
LinkRes.Add(')');
{ 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) }
linklibc:=false;
while not SharedLibFiles.Empty do
begin
S:=SharedLibFiles.GetFirst;
if s<>'c' then
begin
i:=Pos(target_info.sharedlibext,S);
if i>0 then
Delete(S,i,255);
LinkRes.Add('-l'+s);
end
else
begin
LinkRes.Add('-l'+s);
linklibc:=true;
end;
end;
{ be sure that libc&libgcc is the last lib }
if linklibc then
begin
LinkRes.Add('-lc');
LinkRes.Add('-lgcc');
end;
end
else
begin
while not SharedLibFiles.Empty do
begin
S:=SharedLibFiles.GetFirst;
LinkRes.Add('lib'+s+target_info.staticlibext);
end;
LinkRes.Add(')');
end;
{ Write and Close response }
linkres.writetodisk;
linkres.free;
WriteResponseFile:=True;
end;
function TLinkeraros.Makearos386Exe: boolean;
var
BinStr,
CmdStr : TCmdStr;
StripStr: string[40];
begin
StripStr:='';
if (cs_link_strip in current_settings.globalswitches) then StripStr:='-s';
{ Call linker }
SplitBinCmd(Info.ExeCmd[1],BinStr,CmdStr);
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(current_module.exefilename)));
Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName)));
//Replace(cmdstr,'$EXE',Unix2AmigaPath(maybequoted(ScriptFixFileName(current_module.exefilename^))));
// Replace(cmdstr,'$RES',Unix2AmigaPath(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));
Replace(cmdstr,'$STRIP',StripStr);
Makearos386Exe:=DoExec(FindUtil(BinStr),CmdStr,true,false);
end;
function TLinkeraros.Makearosx86_64Exe: boolean;
var
BinStr,
CmdStr : TCmdStr;
StripStr: string[40];
begin
StripStr:='';
if (cs_link_strip in current_settings.globalswitches) then StripStr:='-s';
{ Call linker }
SplitBinCmd(Info.ExeCmd[1],BinStr,CmdStr);
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$EXE',Unix2AmigaPath(maybequoted(ScriptFixFileName(current_module.exefilename))));
Replace(cmdstr,'$RES',Unix2AmigaPath(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));
Replace(cmdstr,'$STRIP',StripStr);
Makearosx86_64Exe:=DoExec(FindUtil(BinStr),CmdStr,true,false);
end;
function TLinkeraros.MakeExecutable:boolean;
var
success : boolean;
begin
if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename);
{ Write used files and libraries }
WriteResponseFile(false);
case (target_info.system) of
system_i386_aros: success:=Makearos386Exe;
system_x86_64_aros: success:=Makearosx86_64Exe;
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;
{*****************************************************************************
Initialize
*****************************************************************************}
initialization
{$ifdef i386}
RegisterLinker(ld_aros,TLinkeraros);
RegisterTarget(system_i386_aros_info);
{$endif i386}
{$ifdef x86_64}
RegisterLinker(ld_aros,TLinkeraros);
RegisterTarget(system_x86_64_aros_info);
{$endif x86_64}
RegisterRes(res_elf_info, TWinLikeResourceFile);
end.