From fe97069b124db553d76096ffc54ded7591bde259 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 5 Sep 2012 12:24:15 +0000
Subject: [PATCH]  Correct exceoption mask elements

git-svn-id: trunk@22325 -
---
 rtl/sparc/mathu.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/sparc/mathu.inc b/rtl/sparc/mathu.inc
index af8e596288..9bd2a2c9c9 100644
--- a/rtl/sparc/mathu.inc
+++ b/rtl/sparc/mathu.inc
@@ -79,11 +79,11 @@ function GetExceptionMask: TFPUExceptionMask;
 
     { zero divide: bit 24 }
     if (fsr and (1 shl 24))=0 then
-      include(result,exInvalidOp);
+      include(result,exZeroDivide);
 
     { overflow: bit 26 }
     if (fsr and (1 shl 26))=0 then
-      include(result,exInvalidOp);
+      include(result,exOverflow);
 
     { underflow: bit 25 }
     if (fsr and (1 shl 25))=0 then