mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 18:29:28 +02:00
AROS: and also add the system info/target units which were forgotten in the previous commit
git-svn-id: trunk@28433 -
This commit is contained in:
Károly Balogh
parent
4431ba2c08
commit
1410838aa7
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -673,6 +673,7 @@ 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_aros.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
|
||||
@ -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_amiga.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_beos.pas svneol=native#text/plain
|
||||
compiler/systems/t_bsd.pas svneol=native#text/plain
|
||||
|
||||
169
compiler/systems/i_aros.pas
Normal file
169
compiler/systems/i_aros.pas
Normal 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
297
compiler/systems/t_aros.pas
Normal 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.
|
||||
Loading…
Reference in New Issue
Block a user