|
@@ -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}
|