paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 22:24:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix code for SIGFPE and adapt to SignalHandler procedure type change

Browse Source 
git-svn-id: trunk@20332 -
This commit is contained in:
pierre 2012-02-12 22:55:23 +00:00
parent 974e66abce
commit 2d6ca8a363
1 changed files with 33 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
rtl/netbsd/i386/sighnd.inc
View File

@ -13,13 +13,29 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
} }
CONST FPU_ALL=$7F; {
/* SIGFPE */
#define FPE_INTDIV 1 /* Integer divide by zero */
#define FPE_INTOVF 2 /* Integer overflow */
#define FPE_FLTDIV 3 /* Floating point divide by zero */
#define FPE_FLTOVF 4 /* Floating point overflow */
#define FPE_FLTUND 5 /* Floating point underflow */
#define FPE_FLTRES 6 /* Floating point inexact result */
#define FPE_FLTINV 7 /* Invalid Floating point operation */
#define FPE_FLTSUB 8 /* Subscript out of range */
}
function getfpustate(const Sigcontext:sigcontextRec):longint; {inline;} const
begin FPE_IntDiv = 1;
getfpustate:=0; FPE_IntOvf = 2;
end; FPE_FltDiv = 3;
procedure SignalToRunerror(Sig: longint;code:longint; var SigContext: SigContextRec); public name '_FPC_DEFAULTSIGHANDLER'; cdecl; FPE_FltOvf = 4;
FPE_FltUnd = 5;
FPE_FltRes = 6;
FPE_FltInv = 7;
FPE_FltSub = 8;
procedure SignalToRunerror(Sig: longint;info : PSigInfo;SigContext: PSigContextRec); public name '_FPC_DEFAULTSIGHANDLER'; cdecl;
var var
res,fpustate : word; res,fpustate : word;
@ -39,22 +55,22 @@ begin
{ this is not allways necessary but I don't know yet { this is not allways necessary but I don't know yet
how to tell if it is or not PM } how to tell if it is or not PM }
res:=200; res:=200;
fpustate:=GetFPUState(SigContext); fpustate:=info^._info.si_code;
if (FpuState and FPU_All) <> 0 then { if (FpuState and FPU_All) <> 0 then }
begin begin
{ first check the more precise options } { first check the more precise options }
if (FpuState and FPU_DivisionByZero)<>0 then if FpuState = FPE_IntDiv then
res:=200 res:=200
else if (FpuState and FPU_Overflow)<>0 then else if (FpuState = FPE_IntOvf) or (FpuState = FPE_FltOvf) then
res:=205 res:=205
else if (FpuState and FPU_Underflow)<>0 then else if FpuState = FPE_FltUnd then
res:=206 res:=206
else if (FpuState and FPU_Denormal)<>0 then { else if FpuState and FPU_Denormal)<>0 then
res:=216 res:=216 }
else if (FpuState and (FPU_StackOverflow or FPU_StackUnderflow))<>0 then else if FpuState = FPE_FltSub then
res:=207 res:=207
else if (FpuState and FPU_Invalid)<>0 then else if FpuState = FPE_FltInv then
res:=216 res:=216
else else
res:=207; {'Coprocessor Error'} res:=207; {'Coprocessor Error'}
@ -75,7 +91,7 @@ begin
if res<>0 then if res<>0 then
begin begin
{$ifdef cpui386} {$ifdef cpui386}
HandleErrorAddrFrame(res,pointer(SigContext.sc_eip),pointer(SigContext.sc_ebp)); HandleErrorAddrFrame(res,pointer(SigContext^.sc_eip),pointer(SigContext^.sc_ebp));
{$endif} {$endif}
end; end;
end; end;