paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 10:39:33 +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;
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}