paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix win64 math unit compilation

Browse Source 
git-svn-id: trunk@24327 -
This commit is contained in:
pierre 2013-04-26 09:37:48 +00:00
parent 226fb92d61
commit 4cfc693a63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/x86_64/mathu.inc
View File

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