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

* moved adding of '-mfpu=softvfp' for arm/softfloat to overridden

Browse Source 
method in TArmGNUAssembler, because it's cleaner (no ifdef) and it
    mustn't be added for darwin (which uses TArmAppleGNUAssembler)

git-svn-id: trunk@11854 -
This commit is contained in:
Jonas Maebe 2008-10-02 21:52:47 +00:00
parent 3aa600e569
commit 5f39783ec6
2 changed files with 9 additions and 6 deletions

10
compiler/arm/agarmgas.pas
View File

@ -29,6 +29,7 @@ unit agarmgas;
interface
uses
globtype,
aasmtai,aasmdata,
aggas,
cpubase;
@ -36,6 +37,7 @@ unit agarmgas;
type
TARMGNUAssembler=class(TGNUassembler)
constructor create(smart: boolean); override;
function MakeCmdLine: TCmdStr; override;
end;
TArmInstrWriter=class(TCPUInstrWriter)
@ -57,7 +59,7 @@ unit agarmgas;
cutils,globals,verbose,
systems,
assemble,
aasmcpu,
cpuinfo,aasmcpu,
itcpugas,
cgbase,cgutils;
@ -72,6 +74,12 @@ unit agarmgas;
end;
function TArmGNUAssembler.MakeCmdLine: TCmdStr;
begin
if (current_settings.fputype = fpu_soft) then
result:='-mfpu=softvfp '+result;
end;
{****************************************************************************}
{ GNU/Apple PPC Assembler writer }
{****************************************************************************}

5
compiler/assemble.pas
View File

@ -510,11 +510,6 @@ Implementation
result:='-m68000 '+result;
{$endif}
{$ifdef arm}
if current_settings.fputype = fpu_soft then
result:='-mfpu=softvfp '+result;
{$endif arm}
if (cs_link_on_target in current_settings.globalswitches) then
begin
Replace(result,'$ASM',maybequoted(ScriptFixFileName(AsmFileName)));