Browse Source

* fixed clearing fpscr "exception happened" flags

git-svn-id: trunk@14313 -
Jonas Maebe 15 years ago
parent
commit
36ebb6a980
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/darwin/arm/sighnd.inc

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

@@ -33,7 +33,8 @@ begin
           Else
             Res:=207; {coprocessor error}
         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;
     SIGBUS:
         res:=214;