mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 11:39:40 +01:00
47fac4ee6e
* exposed cpu feature detection on i386 from system unit + SafeLoadLibrary git-svn-id: trunk@3481 -
30 lines
1.2 KiB
PHP
30 lines
1.2 KiB
PHP
{
|
|
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 =true);
|