Sfoglia il codice sorgente

Correct exceoption mask elements

git-svn-id: trunk@22325 -
pierre 13 anni fa
parent
commit
fe97069b12
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      rtl/sparc/mathu.inc

+ 2 - 2
rtl/sparc/mathu.inc

@@ -79,11 +79,11 @@ function GetExceptionMask: TFPUExceptionMask;
 
 
     { zero divide: bit 24 }
     { zero divide: bit 24 }
     if (fsr and (1 shl 24))=0 then
     if (fsr and (1 shl 24))=0 then
-      include(result,exInvalidOp);
+      include(result,exZeroDivide);
 
 
     { overflow: bit 26 }
     { overflow: bit 26 }
     if (fsr and (1 shl 26))=0 then
     if (fsr and (1 shl 26))=0 then
-      include(result,exInvalidOp);
+      include(result,exOverflow);
 
 
     { underflow: bit 25 }
     { underflow: bit 25 }
     if (fsr and (1 shl 25))=0 then
     if (fsr and (1 shl 25))=0 then