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