paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 13:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Reset FPU exceptions and retrun after changing sigc_pc value if UContext is assigned

Browse Source 
git-svn-id: trunk@21847 -
This commit is contained in:
pierre 2012-07-10 13:34:25 +00:00
parent 99c22b87c1
commit 75420e78a8
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/linux/mips/sighnd.inc
View File

@ -28,6 +28,7 @@ begin
begin
addr := siginfo^._sifields._sigfault._addr;
res := 207;
case siginfo^.si_code of
FPE_INTDIV:
res:=200;
@ -63,12 +64,27 @@ begin
begin
frame:=pointer(ptruint(UContext^.uc_mcontext.sigc_regs[29])); { stack pointer }
addr:=pointer(ptruint(UContext^.uc_mcontext.sigc_pc)); { program counter }
if sig=SIGFPE then
begin
{ Clear FPU exception bits }
UContext^.uc_mcontext.sigc_fpc_csr := UContext^.uc_mcontext.sigc_fpc_csr
and not (fpu_cause_mask or fpu_flags_mask);
end;
{ Change $a1, $a2, $a3 and sig_pc to HandleErrorAddrFrame parameters }
UContext^.uc_mcontext.sigc_regs[4]:=res;
UContext^.uc_mcontext.sigc_regs[5]:=ptrint(addr);
UContext^.uc_mcontext.sigc_regs[6]:=ptrint(frame);
UContext^.uc_mcontext.sigc_pc:=ptrint(@HandleErrorAddrFrame);
{ Let the system call HandleErrorAddrFrame }
exit;
end
else
begin
frame:=nil;
addr:=nil;
end;
if sig=SIGFPE then
set_fsr(get_fsr and not (fpu_cause_mask or fpu_flags_mask));
HandleErrorAddrFrame(res,addr,frame);
end;
end;