Browse Source

* Fix win64 math unit compilation

git-svn-id: trunk@24327 -
pierre 12 years ago
parent
commit
4cfc693a63
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/x86_64/mathu.inc

+ 1 - 1
rtl/x86_64/mathu.inc

@@ -108,7 +108,7 @@ end;
 function GetExceptionMask: TFPUExceptionMask;
 function GetExceptionMask: TFPUExceptionMask;
 begin
 begin
 {$ifndef FPC_HAS_TYPE_EXTENDED}
 {$ifndef FPC_HAS_TYPE_EXTENDED}
-  Result:=TFPUExceptionMask((GetSSECSR shr 7) and $3f);
+  Result:=TFPUExceptionMask(dword((GetSSECSR shr 7) and $3f));
 {$else win64}
 {$else win64}
   Result:=TFPUExceptionMask(dword(Get8087CW and $3F));
   Result:=TFPUExceptionMask(dword(Get8087CW and $3F));
 {$endif win64}
 {$endif win64}