1589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Copyright 2011 the V8 project authors. All rights reserved.
2589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Redistribution and use in source and binary forms, with or without
3589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// modification, are permitted provided that the following conditions are
4589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// met:
5589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//
6589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//     * Redistributions of source code must retain the above copyright
7589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//       notice, this list of conditions and the following disclaimer.
8589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//     * Redistributions in binary form must reproduce the above
9589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//       copyright notice, this list of conditions and the following
10589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//       disclaimer in the documentation and/or other materials provided
11589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//       with the distribution.
12589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//     * Neither the name of Google Inc. nor the names of its
13589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//       contributors may be used to endorse or promote products derived
14589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//       from this software without specific prior written permission.
15589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch//
16589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
17589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
18589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
19589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
20589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
21589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
22589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
26589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
28589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Extra POSIX/ANSI routines for Win32 when using Visual Studio C++. Please
29589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// refer to The Open Group Base Specification for specification of the correct
30589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// semantics for these functions.
31589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// (http://www.opengroup.org/onlinepubs/000095399/)
32589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#ifdef _MSC_VER
33589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
34589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#undef V8_WIN32_LEAN_AND_MEAN
35589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#define V8_WIN32_HEADERS_FULL
36589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#include "win32-headers.h"
37589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#include <limits.h>        // Required for INT_MAX etc.
38589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#include <math.h>
39589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#include <float.h>         // Required for DBL_MAX and on Win32 for finite()
40589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#include "win32-math.h"
41589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
42589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#include "checks.h"
43589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
44589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochnamespace v8 {
45589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
46589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Test for finite value - usually defined in math.h
47589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint isfinite(double x) {
48589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  return _finite(x);
49589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
50589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
51589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}  // namespace v8
52589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
53589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
54589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Test for a NaN (not a number) value - usually defined in math.h
55589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint isnan(double x) {
56589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  return _isnan(x);
57589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
58589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
59589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
60589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Test for infinity - usually defined in math.h
61589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint isinf(double x) {
62589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  return (_fpclass(x) & (_FPCLASS_PINF | _FPCLASS_NINF)) != 0;
63589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
64589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
65589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
66589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Test if x is less than y and both nominal - usually defined in math.h
67589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint isless(double x, double y) {
68589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  return isnan(x) || isnan(y) ? 0 : x < y;
69589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
70589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
71589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
72589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Test if x is greater than y and both nominal - usually defined in math.h
73589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint isgreater(double x, double y) {
74589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  return isnan(x) || isnan(y) ? 0 : x > y;
75589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
76589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
77589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
78589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Classify floating point number - usually defined in math.h
79589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint fpclassify(double x) {
80589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  // Use the MS-specific _fpclass() for classification.
81589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  int flags = _fpclass(x);
82589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
83589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  // Determine class. We cannot use a switch statement because
84589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  // the _FPCLASS_ constants are defined as flags.
85589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  if (flags & (_FPCLASS_PN | _FPCLASS_NN)) return FP_NORMAL;
86589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  if (flags & (_FPCLASS_PZ | _FPCLASS_NZ)) return FP_ZERO;
87589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  if (flags & (_FPCLASS_PD | _FPCLASS_ND)) return FP_SUBNORMAL;
88589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  if (flags & (_FPCLASS_PINF | _FPCLASS_NINF)) return FP_INFINITE;
89589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
90589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  // All cases should be covered by the code above.
91589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  ASSERT(flags & (_FPCLASS_SNAN | _FPCLASS_QNAN));
92589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  return FP_NAN;
93589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
94589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
95589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
96589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch// Test sign - usually defined in math.h
97589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdochint signbit(double x) {
98589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  // We need to take care of the special case of both positive
99589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  // and negative versions of zero.
100589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  if (x == 0)
101589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch    return _fpclass(x) & _FPCLASS_NZ;
102589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch  else
103589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch    return x < 0;
104589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch}
105589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch
106589d6979ff2ef66fca2d8fa51404c369ca5e9250Ben Murdoch#endif  // _MSC_VER
107