diff --git a/rtl/x86_64/mathu.inc b/rtl/x86_64/mathu.inc index 6113cef4a2..baf0b2c1bc 100644 --- a/rtl/x86_64/mathu.inc +++ b/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}