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

* generate rfs/wfs for thumb2 only if an fpa fpu is used

Browse Source 
git-svn-id: trunk@27100 -
This commit is contained in:
florian 2014-03-11 21:20:49 +00:00
parent b6075c59c1
commit 7c606ba34c
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/arm/thumb2.inc
View File

@ -33,18 +33,19 @@ Procedure SysInitFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
{ Enable FPU exceptions, but disable INEXACT, UNDERFLOW, DENORMAL }
asm
{$IFDEF FPUFPV4_S16}
{$if defined(FPUFPA) or defined(FPUFPA10) or defined(FPUFPA11)}
rfs r0
and r0,r0,#0xffe0ffff
orr r0,r0,#0x00070000
wfs r0
{$else}
movw r0, #(0xed88)
movt r0, #(0xe000)
ldr r1, [r0]
orr r1, r1, #(0xF << 20)
str r1, [r0]
{$ELSE FPUFPV4_S16}
rfs r0
and r0,r0,#0xffe0ffff
orr r0,r0,#0x00070000
wfs r0
{$endif FPUFPV4_S16}
{$endif}
end;
end;
{$endif}