paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 23:10:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed resetting of state, broken in r45995

Browse Source 
+ debugging output
  * check magic properly
  * cosmetics

git-svn-id: trunk@46208 -
This commit is contained in:
florian 2020-08-03 19:42:13 +00:00
parent 893225770c
commit 4c2c540b29
1 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/linux/i386/sighnd.inc
View File

@ -34,6 +34,15 @@ begin
{ this is not allways necessary but I don't know yet
how to tell if it is or not PM }
res:=200;
{$ifdef SYSTEM_DEBUG}
if assigned(ucontext^.uc_mcontext.fpstate) then
begin
writeln('magic: $',hexstr(ucontext^.uc_mcontext.fpstate^.magic,4));
writeln('magic1: $',hexstr(ucontext^.uc_mcontext.fpstate^.sw_reserved.magic1,8));
end
else
writeln('fpstate=nil');
{$endif SYSTEM_DEBUG}
if SigInfo^.si_code<>FPE_INTDIV then
begin
if assigned(ucontext^.uc_mcontext.fpstate) then
@ -56,7 +65,7 @@ begin
res:=207; {'Coprocessor Error'}
end;
{ SSE data? }
if ucontext^.uc_mcontext.fpstate^.magic<>$ffff then
if ucontext^.uc_mcontext.fpstate^.magic=0 then
begin
MMState:=ucontext^.uc_mcontext.fpstate^.mxcsr;
if (MMState and MM_ExceptionMask)<>0 then
@ -83,8 +92,11 @@ begin
begin
{ Reset Status word }
sw:=sw and not(FPU_ExceptionMask);
if magic=0 then
mxcsr:=mxcsr and not(MM_ExceptionMask);
SysResetFPU;
cw:=Default8087CW;
{ Reset Tag word to $ffff for all empty }
tag:=$ffff;
end;
end;
SIGBUS:
@ -106,6 +118,7 @@ begin
res:=233;
end;
reenable_signal(sig);
{ give runtime error at the position where the signal was raised }
if res<>0 then
begin