Răsfoiți Sursa

* fixed clearing fpscr "exception happened" flags

git-svn-id: trunk@14313 -
Jonas Maebe 16 ani în urmă
părinte
comite
36ebb6a980
1 a modificat fișierele cu 2 adăugiri și 1 ștergeri
  1. 2 1
      rtl/darwin/arm/sighnd.inc

+ 2 - 1
rtl/darwin/arm/sighnd.inc

@@ -33,7 +33,8 @@ begin
           Else
           Else
             Res:=207; {coprocessor error}
             Res:=207; {coprocessor error}
         end;
         end;
-        SigContext^.uc_mcontext^.__fs.__fpscr := SigContext^.uc_mcontext^.__fs.__fpscr and not($1fff);
+        { clear "exception happened" flags }
+        SigContext^.uc_mcontext^.__fs.__fpscr := SigContext^.uc_mcontext^.__fs.__fpscr and not($df);
       end;
       end;
     SIGBUS:
     SIGBUS:
         res:=214;
         res:=214;