From ef3178cdb1223175ac2ec3395924da22b31b3cb4 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sat, 14 Jul 2007 19:46:22 +0000
Subject: [PATCH] * Fixed default float exceptions mask for arm fpu. It fixes
 tw3160c.pp on arm-linux.

git-svn-id: trunk@8054 -
---
 rtl/arm/arm.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/arm/arm.inc b/rtl/arm/arm.inc
index 800c47f8a1..923067f5dd 100644
--- a/rtl/arm/arm.inc
+++ b/rtl/arm/arm.inc
@@ -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}