2
0
Эх сурвалжийг харах

* fixed floating point div-by-zero RTE code on Darwin (208 instead of 200,
fixes webtbs/tw32671)

git-svn-id: trunk@42045 -

Jonas Maebe 6 жил өмнө
parent
commit
5c20481c7b

+ 2 - 2
rtl/darwin/aarch64/sighnd.inc

@@ -23,8 +23,8 @@ begin
     SIGFPE :
       begin
         Case Info^.si_code Of
-          FPE_FLTDIV,
-          FPE_INTDIV : Res:=200;  { floating point divide by zero }
+          FPE_FLTDIV : Res:=200;  { floating point divide by zero }
+          FPE_INTDIV : Res:=208;  { integer divide by zero }
           FPE_FLTOVF : Res:=205;  { floating point overflow }
           FPE_FLTUND : Res:=206;  { floating point underflow }
           FPE_FLTRES,             { floating point inexact result }

+ 2 - 2
rtl/darwin/arm/sighnd.inc

@@ -24,8 +24,8 @@ begin
     SIGFPE :
       begin
         Case Info^.si_code Of
-          FPE_FLTDIV,
-          FPE_INTDIV : Res:=200;  { floating point divide by zero }
+          FPE_FLTDIV : Res:=208;  { floating point divide by zero }
+          FPE_INTDIV : Res:=200;  { integer point divide by zero }
           FPE_FLTOVF : Res:=205;  { floating point overflow }
           FPE_FLTUND : Res:=206;  { floating point underflow }
           FPE_FLTRES,             { floating point inexact result }

+ 2 - 2
rtl/darwin/ppcgen/ppchnd.inc

@@ -24,8 +24,8 @@ begin
     SIGFPE :
       begin
         Case Info^.si_code Of
-          FPE_FLTDIV,
-          FPE_INTDIV : Res:=200;  { floating point divide by zero }
+          FPE_FLTDIV : Res:=208;  { floating point divide by zero }
+          FPE_INTDIV : Res:=200;  { integer divide by zero }
           FPE_FLTOVF : Res:=205;  { floating point overflow }
           FPE_FLTUND : Res:=206;  { floating point underflow }
           FPE_FLTRES,             { floating point inexact result }

+ 3 - 3
rtl/darwin/x86/x86hnd.inc

@@ -25,13 +25,13 @@ begin
     SIGFPE :
       begin
         Case Info^.si_code Of
-          FPE_INTDIV,             { integer divide by zero -NOTIMP on Mac OS X 10.4.7 }
-          FPE_FLTDIV : Res:=200;  { floating point divide by zero }
+          FPE_INTDIV : Res:=200;  { integer divide by zero -NOTIMP on Mac OS X 10.4.7 }
+          FPE_FLTDIV : Res:=208;  { floating point divide by zero }
           FPE_FLTOVF : Res:=205;  { floating point overflow }
           FPE_FLTUND : Res:=206;  { floating point underflow }
           FPE_FLTRES,             { floating point inexact result }
           FPE_FLTINV : Res:=207;  { invalid floating point operation }
-          Else
+          else
             begin
               { Assume that if an integer divide was executed, the }
               { error was a divide-by-zero (FPE_INTDIV is not      }