mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 07:59:48 +02:00
40 lines
1.5 KiB
PHP
40 lines
1.5 KiB
PHP
{
|
|
$Id: mathuh.inc,v 1.3 2005/02/14 17:13:31 peter Exp $
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 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.
|
|
|
|
**********************************************************************}
|
|
|
|
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});
|
|
|
|
{
|
|
$Log: mathuh.inc,v $
|
|
Revision 1.3 2005/02/14 17:13:31 peter
|
|
* truncate log
|
|
|
|
Revision 1.2 2005/02/13 18:58:27 florian
|
|
+ FPU controll routines in math unit
|
|
|
|
}
|