diff --git a/rtl/darwin/aarch64/sighnd.inc b/rtl/darwin/aarch64/sighnd.inc index e9a7d420f9..abd446d52b 100644 --- a/rtl/darwin/aarch64/sighnd.inc +++ b/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 } diff --git a/rtl/darwin/arm/sighnd.inc b/rtl/darwin/arm/sighnd.inc index 0a30e8ee79..a735c2aed1 100644 --- a/rtl/darwin/arm/sighnd.inc +++ b/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 } diff --git a/rtl/darwin/ppcgen/ppchnd.inc b/rtl/darwin/ppcgen/ppchnd.inc index 7718ae84a5..21459f11e3 100644 --- a/rtl/darwin/ppcgen/ppchnd.inc +++ b/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 } diff --git a/rtl/darwin/x86/x86hnd.inc b/rtl/darwin/x86/x86hnd.inc index a32040dc16..b3f94a50ad 100644 --- a/rtl/darwin/x86/x86hnd.inc +++ b/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 }