paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 10:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed default float exceptions mask for arm fpu. It fixes tw3160c.pp on arm-linux.

Browse Source 
git-svn-id: trunk@8054 -
This commit is contained in:
yury 2007-07-14 19:46:22 +00:00
parent 49b84c3116
commit ef3178cdb1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/arm/arm.inc
View File

@ -24,10 +24,11 @@ const
procedure fpc_cpuinit;
begin
{$if not(defined(wince)) and not(defined(gba)) and not(defined(nds)) and not(defined(FPUSOFT)) and not(defined(FPULIBGCC))}
{ Enable FPU exceptions, but disable INEXACT, UNDERFLOW, DENORMAL }
asm
rfs r0
and r0,r0,#0xffe0ffff
orr r0,r0,#0x00020000
orr r0,r0,#0x00070000
wfs r0
end;
{$endif}