Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions jcl/source/common/Jcl8087.pas
Original file line number Diff line number Diff line change
Expand Up @@ -115,7 +115,7 @@ function Get8087Rounding: T8087Rounding;
Result := T8087Rounding((Get8087ControlWord and $0C00) shr 10);
end;

{$IFDEF CPU64}
{$IFDEF CPUX64}
function Get8087StatusWord(ClearExceptions: Boolean): Word;
asm
TEST ClearExceptions, ClearExceptions
Expand All @@ -138,7 +138,7 @@ function Get8087StatusWord(ClearExceptions: Boolean): Word;
FNSTSW Result // get status word (without clearing exceptions)
end;
end;
{$ENDIF CPU64}
{$ENDIF CPUX64}

function Set8087Infinity(const Infinity: T8087Infinity): T8087Infinity;
var
Expand Down
Loading