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

* set elf flags for soft float on arm

Browse Source 
git-svn-id: trunk@10560 -
This commit is contained in:
peter 2008-03-25 16:15:15 +00:00
parent 61df38ae9b
commit a9c9ca0115
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/assemble.pas
View File

@ -176,9 +176,9 @@ Implementation
cclasses,
{$endif memdebug}
script,fmodule,verbose,
{$ifdef m68k}
{$if defined(m68k) or defined(arm)}
cpuinfo,
{$endif m68k}
{$endif m68k or arm}
aasmcpu,
owbase,owar
;
@ -509,6 +509,12 @@ Implementation
else
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)));

2
compiler/ogelf.pas
View File

@ -1075,6 +1075,8 @@ implementation
{$endif powerpc}
{$ifdef arm}
header.e_machine:=40;
if (current_settings.fputype=cpu_soft) then
header.e_flags:=$600;
{$endif arm}
{$ifdef x86_64}
header.e_machine:=62;