소스 검색

* fixed clearing fpscr "exception happened" flags

git-svn-id: trunk@14313 -
Jonas Maebe 15 년 전
부모
커밋
36ebb6a980
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  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;