-- $Source: /home/harp/1/proto/monoBANK/winnt/win32-crt-floatpkg.ads,v $
-- $Revision: 1.1 $ $Date: 96/09/06 14:16:49 $ $Author: mg $
-- See end of file for Copyright (c) information.
package Win32.crt.FloatPkg is
DBL_DIG : constant := 15; -- float.h:46
DBL_EPSILON : constant := 2.22044604925031357389e-16;
-- float.h:47
DBL_MANT_DIG : constant := 53; -- float.h:48
DBL_MAX : constant := 1.7976931348623158e+308;
-- float.h:49
DBL_MAX_10_EXP : constant := 308; -- float.h:50
DBL_MAX_EXP : constant := 1024; -- float.h:51
DBL_MIN : constant := 2.22507385850720582968e-308;
-- float.h:52
DBL_MIN_10_EXP : constant := -307; -- float.h:53
DBL_MIN_EXP : constant := -1021; -- float.h:54
DBL_RADIX : constant := 2; -- float.h:55
DBL_ROUNDS : constant := 1; -- float.h:56
FLT_DIG : constant := 6; -- float.h:58
FLT_EPSILON : constant := 1.19209289600000031694e-07;
-- float.h:59
FLT_GUARD : constant := 0; -- float.h:60
FLT_MANT_DIG : constant := 24; -- float.h:61
FLT_MAX : constant := 3.40282346599999902814e+38;
-- float.h:62
FLT_MAX_10_EXP : constant := 38; -- float.h:63
FLT_MAX_EXP : constant := 128; -- float.h:64
FLT_MIN : constant := 1.17549435100000025997e-38;
-- float.h:65
FLT_MIN_10_EXP : constant := -37; -- float.h:66
FLT_MIN_EXP : constant := -125; -- float.h:67
FLT_NORMALIZE : constant := 0; -- float.h:68
FLT_RADIX : constant := 2; -- float.h:69
FLT_ROUNDS : constant := 1; -- float.h:70
LDBL_DIG : constant := 15; -- float.h:72
LDBL_EPSILON : constant := 2.22044604925031357389e-16;
-- float.h:73
LDBL_MANT_DIG : constant := 53; -- float.h:74
LDBL_MAX : constant := DBL_MAX; -- float.h:75
LDBL_MAX_10_EXP : constant := 308; -- float.h:76
LDBL_MAX_EXP : constant := 1024; -- float.h:77
LDBL_MIN : constant := 2.22507385850720582968e-308;
-- float.h:78
LDBL_MIN_10_EXP : constant := -307; -- float.h:79
LDBL_MIN_EXP : constant := -1021; -- float.h:80
LDBL_RADIX : constant := DBL_RADIX; -- float.h:81
LDBL_ROUNDS : constant := DBL_ROUNDS; -- float.h:82
MCW_EM : constant := 16#8001f#; -- float.h:101
EM_INEXACT : constant := 16#1#; -- float.h:102
EM_UNDERFLOW : constant := 16#2#; -- float.h:103
EM_OVERFLOW : constant := 16#4#; -- float.h:104
EM_ZERODIVIDE : constant := 16#8#; -- float.h:105
EM_INVALID : constant := 16#10#; -- float.h:106
MCW_RC : constant := 16#300#; -- float.h:108
RC_NEAR : constant := 16#0#; -- float.h:109
RC_DOWN : constant := 16#100#; -- float.h:110
RC_UP : constant := 16#200#; -- float.h:111
RC_CHOP : constant := 16#300#; -- float.h:112
SW_INEXACT : constant := 16#1#; -- float.h:118
SW_UNDERFLOW : constant := 16#2#; -- float.h:119
SW_OVERFLOW : constant := 16#4#; -- float.h:120
SW_ZERODIVIDE : constant := 16#8#; -- float.h:121
SW_INVALID : constant := 16#10#; -- float.h:122
MCW_PC : constant := 16#30000#; -- float.h:129
PC_64 : constant := 16#0#; -- float.h:130
PC_53 : constant := 16#10000#; -- float.h:131
PC_24 : constant := 16#20000#; -- float.h:132
MCW_IC : constant := 16#40000#; -- float.h:134
IC_AFFINE : constant := 16#40000#; -- float.h:135
IC_PROJECTIVE : constant := 16#0#; -- float.h:136
EM_DENORMAL : constant := 16#80000#; -- float.h:138
SW_DENORMAL : constant := 16#80000#; -- float.h:140
MCW_DN : constant := 16#1000000#; -- float.h:150
DN_FLUSH : constant := 16#1000000#; -- float.h:151
DN_SAVE : constant := 16#0#; -- float.h:152
CW_DEFAULT : constant := 16#1f#; -- float.h:159
SW_UNEMULATED : constant := 16#40#; -- float.h:182
SW_SQRTNEG : constant := 16#80#; -- float.h:183
SW_STACKOVERFLOW : constant := 16#200#; -- float.h:184
SW_STACKUNDERFLOW : constant := 16#400#; -- float.h:185
FPE_INVALID : constant := 16#81#; -- float.h:189
FPE_DENORMAL : constant := 16#82#; -- float.h:190
FPE_ZERODIVIDE : constant := 16#83#; -- float.h:191
FPE_OVERFLOW : constant := 16#84#; -- float.h:192
FPE_UNDERFLOW : constant := 16#85#; -- float.h:193
FPE_INEXACT : constant := 16#86#; -- float.h:194
FPE_UNEMULATED : constant := 16#87#; -- float.h:196
FPE_SQRTNEG : constant := 16#88#; -- float.h:197
FPE_STACKOVERFLOW : constant := 16#8a#; -- float.h:198
FPE_STACKUNDERFLOW : constant := 16#8b#; -- float.h:199
FPE_EXPLICITGEN : constant := 16#8c#; -- float.h:201
FPCLASS_SNAN : constant := 16#1#; -- float.h:215
FPCLASS_QNAN : constant := 16#2#; -- float.h:216
FPCLASS_NINF : constant := 16#4#; -- float.h:217
FPCLASS_NN : constant := 16#8#; -- float.h:218
FPCLASS_ND : constant := 16#10#; -- float.h:219
FPCLASS_NZ : constant := 16#20#; -- float.h:220
FPCLASS_PZ : constant := 16#40#; -- float.h:221
FPCLASS_PD : constant := 16#80#; -- float.h:222
FPCLASS_PN : constant := 16#100#; -- float.h:223
FPCLASS_PINF : constant := 16#200#; -- float.h:224
-- Global variable holding floating point error code
-- function fpecode return Win32.INT; -- float.h:174
-- not in Microsoft OpenTools, see win32-extras.ads instead
function clearfp return Win32.UINT; -- float.h:89
function clear87 return Win32.UINT renames clearfp; -- float.h:94
function controlfp(new_value: Win32.UINT;
mask : Win32.UINT)
return Win32.UINT; -- float.h:90
function statusfp return Win32.UINT; -- float.h:91
function status87 return Win32.UINT renames statusfp; -- float.h:95
procedure fpreset; -- float.h:92
function control87(new_value: Win32.UINT;
mask : Win32.UINT)
return Win32.UINT; -- float.h:143
function copysign(x: Win32.DOUBLE;
y: Win32.DOUBLE)
return Win32.DOUBLE; -- float.h:206
function chgsign(x: Win32.DOUBLE) return Win32.DOUBLE; -- float.h:207
function scalb(x : Win32.DOUBLE;
exp: Win32.INT)
return Win32.DOUBLE; -- float.h:208
function logb(x: Win32.DOUBLE) return Win32.DOUBLE; -- float.h:209
function nextafter(x: Win32.DOUBLE;
y: Win32.DOUBLE)
return Win32.DOUBLE; -- float.h:210
function finite(x: Win32.DOUBLE) return Win32.INT; -- float.h:211
function isnan(x: Win32.DOUBLE) return Win32.INT; -- float.h:212
function fpclass(x: Win32.DOUBLE) return Win32.INT; -- float.h:213
private
-- pragma Inline(fpecode);
pragma Import(C, clearfp, "_clearfp"); -- float.h:89
pragma Import(C, controlfp, "_controlfp"); -- float.h:90
pragma Import(C, statusfp, "_statusfp"); -- float.h:91
pragma Import(C, fpreset, "_fpreset"); -- float.h:92
pragma Import(C, control87, "_control87"); -- float.h:143
pragma Import(C, copysign, "_copysign"); -- float.h:206
pragma Import(C, chgsign, "_chgsign"); -- float.h:207
pragma Import(C, scalb, "_scalb"); -- float.h:208
pragma Import(C, logb, "_logb"); -- float.h:209
pragma Import(C, nextafter, "_nextafter"); -- float.h:210
pragma Import(C, finite, "_finite"); -- float.h:211
pragma Import(C, isnan, "_isnan"); -- float.h:212
pragma Import(C, fpclass, "_fpclass"); -- float.h:213
-------------------------------------------------------------------------------
--
-- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
-- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
-- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
-- FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire risk as to
-- the accuracy and the use of this file. This file may be used, copied,
-- modified and distributed only by licensees of Microsoft Corporation's
-- WIN32 Software Development Kit in accordance with the terms of the
-- licensee's End-User License Agreement for Microsoft Software for the
-- WIN32 Development Kit.
--
-- Copyright (c) Intermetrics, Inc. 1995
-- Portions (c) 1985-1994 Microsoft Corporation with permission.
-- Microsoft is a registered trademark and Windows and Windows NT are
-- trademarks of Microsoft Corporation.
--
-------------------------------------------------------------------------------
end Win32.crt.FloatPkg;