Explorar el Código

* Fix win64 math unit compilation

git-svn-id: trunk@24327 -
pierre hace 12 años
padre
commit
4cfc693a63
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      rtl/x86_64/mathu.inc

+ 1 - 1
rtl/x86_64/mathu.inc

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