From 8591d80cfc63980f2e27a47e1bd5f6b6cacfdb35 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 18 Jan 2005 20:37:26 +0000
Subject: [PATCH]   * set floating point precision and ieee compliance

---
 rtl/sparc/sparc.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/rtl/sparc/sparc.inc b/rtl/sparc/sparc.inc
index af6ac35f87..88da917867 100644
--- a/rtl/sparc/sparc.inc
+++ b/rtl/sparc/sparc.inc
@@ -42,7 +42,8 @@ procedure set_fsr(fsr : dword);assembler;
 procedure fpc_cpuinit;
   begin
     { enable div by 0 and invalid operation fpu exceptions }
-    set_fsr(get_fsr or $09000000);
+    { round towards zero; ieee compliant arithmetics }
+    set_fsr((get_fsr and $3fbfffff) or $09000000);
   end;
 
 
@@ -352,7 +353,10 @@ end;
 
 {
   $Log$
-  Revision 1.16  2004-11-21 19:11:33  peter
+  Revision 1.17  2005-01-18 20:37:26  florian
+    * set floating point precision and ieee compliance
+
+  Revision 1.16  2004/11/21 19:11:33  peter
     * fix bootstrapping
 
   Revision 1.15  2004/11/21 15:35:23  peter