mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 21:49:09 +02:00
* fixed fpu rte code for invalid, inexact and "subscript out of range"
errors (216 -> 207) (same as for sparc/solaris in r7453) git-svn-id: trunk@7477 -
This commit is contained in:
parent
a2dbc4d272
commit
cb23a80178
@ -26,7 +26,6 @@ begin
|
|||||||
SIGFPE :
|
SIGFPE :
|
||||||
begin
|
begin
|
||||||
addr := siginfo^._sifields._sigfault._addr;
|
addr := siginfo^._sifields._sigfault._addr;
|
||||||
res := 207;
|
|
||||||
case siginfo^.si_code of
|
case siginfo^.si_code of
|
||||||
FPE_INTDIV:
|
FPE_INTDIV:
|
||||||
res:=200;
|
res:=200;
|
||||||
@ -38,10 +37,6 @@ begin
|
|||||||
res:=205;
|
res:=205;
|
||||||
FPE_FLTUND:
|
FPE_FLTUND:
|
||||||
res:=206;
|
res:=206;
|
||||||
FPE_FLTRES,
|
|
||||||
FPE_FLTINV,
|
|
||||||
FPE_FLTSUB:
|
|
||||||
res:=216;
|
|
||||||
else
|
else
|
||||||
res:=207;
|
res:=207;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user