forked from chakra-core/ChakraCore
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathfinite.cpp
More file actions
138 lines (105 loc) · 2.09 KB
/
Copy pathfinite.cpp
File metadata and controls
138 lines (105 loc) · 2.09 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
//
// Copyright (c) Microsoft. All rights reserved.
// Licensed under the MIT license. See LICENSE file in the project root for full license information.
//
/*++
Module Name:
finite.cpp
Abstract:
Implementation of _finite function (Windows specific runtime function).
--*/
#include "pal/palinternal.h"
#include "pal/dbgmsg.h"
#include <math.h>
#if HAVE_IEEEFP_H
#include <ieeefp.h>
#endif // HAVE_IEEEFP_H
#include <errno.h>
#define PAL_NAN sqrt(-1.0)
#define PAL_POSINF -log(0.0)
#define PAL_NEGINF log(0.0)
SET_DEFAULT_DEBUG_CHANNEL(CRT);
/*++
Function:
_finite
Determines whether given double-precision floating point value is finite.
Return Value
_finite returns a nonzero value (TRUE) if its argument x is not
infinite, that is, if -INF < x < +INF. It returns 0 (FALSE) if the
argument is infinite or a NaN.
Parameter
x Double-precision floating-point value
--*/
int
__cdecl
_finite(
double x)
{
int ret;
PERF_ENTRY(_finite);
ENTRY("_finite (x=%f)\n", x);
#if defined(_IA64_) && defined (_HPUX_)
ret = !isnan(x) && x != PAL_POSINF && x != PAL_NEGINF;
#else
ret = isfinite(x);
#endif
LOGEXIT("_finite returns int %d\n", ret);
PERF_EXIT(_finite);
return ret;
}
/*++
Function:
_isnan
See MSDN doc
--*/
int
__cdecl
_isnan(
double x)
{
int ret;
PERF_ENTRY(_isnan);
ENTRY("_isnan (x=%f)\n", x);
ret = isnan(x);
LOGEXIT("_isnan returns int %d\n", ret);
PERF_EXIT(_isnan);
return ret;
}
/*++
Function:
_copysign
See MSDN doc
--*/
double
__cdecl
_copysign(
double x,
double y)
{
double ret;
PERF_ENTRY(_copysign);
ENTRY("_copysign (x=%f,y=%f)\n", x, y);
ret = copysign(x, y);
LOGEXIT("_copysign returns double %f\n", ret);
PERF_EXIT(_copysign);
return ret;
}
/*++
Function:
_copysignf
See MSDN doc
--*/
float
__cdecl
_copysignf(
float x,
float y)
{
double ret;
PERF_ENTRY(_copysignf);
ENTRY("_copysignf (x=%f,y=%f)\n", x, y);
ret = copysignf(x, y);
LOGEXIT("_copysignf returns float %f\n", ret);
PERF_EXIT(_copysignf);
return ret;
}