Prechádzať zdrojové kódy

Reset FPU state in SignalToRunError for SIGFPE, fixes tw12214 failure

git-svn-id: trunk@29552 -
pierre 10 rokov pred
rodič
commit
817555cd6e
1 zmenil súbory, kde vykonal 9 pridanie a 1 odobranie
  1. 9 1
      rtl/solaris/i386/sighnd.inc

+ 9 - 1
rtl/solaris/i386/sighnd.inc

@@ -61,7 +61,15 @@ begin
               res:=207;
          end;
          with sigcontext^.uc_mcontext.fpregs.fpchip_state do
-           status:=status and not FPU_ExceptionMask;
+           begin
+             status:=status and not FPU_ExceptionMask;
+             { Control word is index 0 }
+             state[0]:=Default8087CW;
+             { Status word is also index 1 }
+             state[1]:=status;
+             { Tag word is index 2 }
+             state[2]:=$ffff;
+          end;
        end;
    SIGILL:
        if sse_check then