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

* fixed cross-assembling from Linux/ppc(32|64) to the "other bitness"

Browse Source 
git-svn-id: trunk@33537 -
This commit is contained in:
Jonas Maebe 2016-04-20 22:17:08 +00:00
parent 61356a08e6
commit 70cfe1dc23
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ppcgen/agppcgas.pas
View File

@ -44,6 +44,7 @@ unit agppcgas;
TPPCGNUAssembler=class(TGNUassembler)
constructor create(info: pasminfo; smart: boolean); override;
function MakeCmdLine: TCmdStr; override;
procedure WriteExtraHeader; override;
end;
@ -404,6 +405,17 @@ unit agppcgas;
end;
function TPPCGNUAssembler.MakeCmdLine: TCmdStr;
begin
result := inherited MakeCmdLine;
{$ifdef cpu64bitaddr}
Replace(result,'$ARCH','-a64')
{$else cpu64bitaddr}
Replace(result,'$ARCH','-a32')
{$endif cpu64bitaddr}
end;
procedure TPPCGNUAssembler.WriteExtraHeader;
var
i : longint;
@ -541,7 +553,7 @@ unit agppcgas;
{$ifdef cpu64bitaddr}
asmcmd : '-a64 $ENDIAN -o $OBJ $EXTRAOPT $ASM';
{$else cpu64bitaddr}
asmcmd: '$ENDIAN -o $OBJ $EXTRAOPT $ASM';
asmcmd: '$ENDIAN -o $OBJ $EXTRAOPT $ARCH $ASM';
{$endif cpu64bitaddr}
supported_targets : [system_powerpc_linux,system_powerpc_netbsd,system_powerpc_openbsd,system_powerpc_MorphOS,system_powerpc_Amiga,system_powerpc64_linux,system_powerpc_embedded,system_powerpc64_embedded];
flags : [af_needar,af_smartlink_sections];