mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-29 15:26:20 +02:00
43 lines
1.5 KiB
PHP
43 lines
1.5 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2003 by Florian Klaempfl
|
|
member of the Free Pascal development team
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{ i386 fpu control word }
|
|
type
|
|
TFPURoundingMode = (rmNearest, rmDown, rmUp, rmTruncate);
|
|
TFPUPrecisionMode = (pmSingle, pmReserved, pmDouble, pmExtended);
|
|
TFPUException = (exInvalidOp, exDenormalized, exZeroDivide,
|
|
exOverflow, exUnderflow, exPrecision);
|
|
TFPUExceptionMask = set of TFPUException;
|
|
|
|
function GetRoundMode: TFPURoundingMode;
|
|
function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;
|
|
function GetPrecisionMode: TFPUPrecisionMode;
|
|
function SetPrecisionMode(const Precision: TFPUPrecisionMode): TFPUPrecisionMode;
|
|
function GetExceptionMask: TFPUExceptionMask;
|
|
function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
|
|
procedure ClearExceptions(RaisePending: Boolean {$ifndef VER1_0}=true{$endif});
|
|
|
|
procedure SetSSECSR(w : dword);
|
|
function GetSSECSR : dword;
|
|
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.2 2004-11-02 15:26:21 florian
|
|
* fixed sse exception handling
|
|
|
|
Revision 1.1 2003/04/24 09:16:31 florian
|
|
* initial implementation with code from math.pp
|
|
} |