jdk/src/java.base/share/native/libfdlibm/w_scalb.c
author chegar
Sun, 17 Aug 2014 15:54:13 +0100
changeset 25859 3317bb8137f4
parent 5506 jdk/src/share/native/java/lang/fdlibm/src/w_scalb.c@202f599c92aa
permissions -rw-r--r--
8054834: Modular Source Code Reviewed-by: alanb, chegar, ihse, mduigou Contributed-by: alan.bateman@oracle.com, alex.buckley@oracle.com, chris.hegarty@oracle.com, erik.joelsson@oracle.com, jonathan.gibbons@oracle.com, karen.kinnear@oracle.com, magnus.ihse.bursie@oracle.com, mandy.chung@oracle.com, mark.reinhold@oracle.com, paul.sandoz@oracle.com
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2
90ce3da70b43 Initial load
duke
parents:
diff changeset
     1
90ce3da70b43 Initial load
duke
parents:
diff changeset
     2
/*
5506
202f599c92aa 6943119: Rebrand source copyright notices
ohair
parents: 2
diff changeset
     3
 * Copyright (c) 1998, 2001, Oracle and/or its affiliates. All rights reserved.
2
90ce3da70b43 Initial load
duke
parents:
diff changeset
     4
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
90ce3da70b43 Initial load
duke
parents:
diff changeset
     5
 *
90ce3da70b43 Initial load
duke
parents:
diff changeset
     6
 * This code is free software; you can redistribute it and/or modify it
90ce3da70b43 Initial load
duke
parents:
diff changeset
     7
 * under the terms of the GNU General Public License version 2 only, as
5506
202f599c92aa 6943119: Rebrand source copyright notices
ohair
parents: 2
diff changeset
     8
 * published by the Free Software Foundation.  Oracle designates this
2
90ce3da70b43 Initial load
duke
parents:
diff changeset
     9
 * particular file as subject to the "Classpath" exception as provided
5506
202f599c92aa 6943119: Rebrand source copyright notices
ohair
parents: 2
diff changeset
    10
 * by Oracle in the LICENSE file that accompanied this code.
2
90ce3da70b43 Initial load
duke
parents:
diff changeset
    11
 *
90ce3da70b43 Initial load
duke
parents:
diff changeset
    12
 * This code is distributed in the hope that it will be useful, but WITHOUT
90ce3da70b43 Initial load
duke
parents:
diff changeset
    13
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
90ce3da70b43 Initial load
duke
parents:
diff changeset
    14
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
90ce3da70b43 Initial load
duke
parents:
diff changeset
    15
 * version 2 for more details (a copy is included in the LICENSE file that
90ce3da70b43 Initial load
duke
parents:
diff changeset
    16
 * accompanied this code).
90ce3da70b43 Initial load
duke
parents:
diff changeset
    17
 *
90ce3da70b43 Initial load
duke
parents:
diff changeset
    18
 * You should have received a copy of the GNU General Public License version
90ce3da70b43 Initial load
duke
parents:
diff changeset
    19
 * 2 along with this work; if not, write to the Free Software Foundation,
90ce3da70b43 Initial load
duke
parents:
diff changeset
    20
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
90ce3da70b43 Initial load
duke
parents:
diff changeset
    21
 *
5506
202f599c92aa 6943119: Rebrand source copyright notices
ohair
parents: 2
diff changeset
    22
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
202f599c92aa 6943119: Rebrand source copyright notices
ohair
parents: 2
diff changeset
    23
 * or visit www.oracle.com if you need additional information or have any
202f599c92aa 6943119: Rebrand source copyright notices
ohair
parents: 2
diff changeset
    24
 * questions.
2
90ce3da70b43 Initial load
duke
parents:
diff changeset
    25
 */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    26
90ce3da70b43 Initial load
duke
parents:
diff changeset
    27
/*
90ce3da70b43 Initial load
duke
parents:
diff changeset
    28
 * wrapper scalb(double x, double fn) is provide for
90ce3da70b43 Initial load
duke
parents:
diff changeset
    29
 * passing various standard test suite. One
90ce3da70b43 Initial load
duke
parents:
diff changeset
    30
 * should use scalbn() instead.
90ce3da70b43 Initial load
duke
parents:
diff changeset
    31
 */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    32
90ce3da70b43 Initial load
duke
parents:
diff changeset
    33
#include "fdlibm.h"
90ce3da70b43 Initial load
duke
parents:
diff changeset
    34
90ce3da70b43 Initial load
duke
parents:
diff changeset
    35
#include <errno.h>
90ce3da70b43 Initial load
duke
parents:
diff changeset
    36
90ce3da70b43 Initial load
duke
parents:
diff changeset
    37
#ifdef __STDC__
90ce3da70b43 Initial load
duke
parents:
diff changeset
    38
#ifdef _SCALB_INT
90ce3da70b43 Initial load
duke
parents:
diff changeset
    39
        double scalb(double x, int fn)          /* wrapper scalb */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    40
#else
90ce3da70b43 Initial load
duke
parents:
diff changeset
    41
        double scalb(double x, double fn)       /* wrapper scalb */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    42
#endif
90ce3da70b43 Initial load
duke
parents:
diff changeset
    43
#else
90ce3da70b43 Initial load
duke
parents:
diff changeset
    44
        double scalb(x,fn)                      /* wrapper scalb */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    45
#ifdef _SCALB_INT
90ce3da70b43 Initial load
duke
parents:
diff changeset
    46
        double x; int fn;
90ce3da70b43 Initial load
duke
parents:
diff changeset
    47
#else
90ce3da70b43 Initial load
duke
parents:
diff changeset
    48
        double x,fn;
90ce3da70b43 Initial load
duke
parents:
diff changeset
    49
#endif
90ce3da70b43 Initial load
duke
parents:
diff changeset
    50
#endif
90ce3da70b43 Initial load
duke
parents:
diff changeset
    51
{
90ce3da70b43 Initial load
duke
parents:
diff changeset
    52
#ifdef _IEEE_LIBM
90ce3da70b43 Initial load
duke
parents:
diff changeset
    53
        return __ieee754_scalb(x,fn);
90ce3da70b43 Initial load
duke
parents:
diff changeset
    54
#else
90ce3da70b43 Initial load
duke
parents:
diff changeset
    55
        double z;
90ce3da70b43 Initial load
duke
parents:
diff changeset
    56
        z = __ieee754_scalb(x,fn);
90ce3da70b43 Initial load
duke
parents:
diff changeset
    57
        if(_LIB_VERSION == _IEEE_) return z;
90ce3da70b43 Initial load
duke
parents:
diff changeset
    58
        if(!(finite(z)||isnan(z))&&finite(x)) {
90ce3da70b43 Initial load
duke
parents:
diff changeset
    59
            return __kernel_standard(x,(double)fn,32); /* scalb overflow */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    60
        }
90ce3da70b43 Initial load
duke
parents:
diff changeset
    61
        if(z==0.0&&z!=x) {
90ce3da70b43 Initial load
duke
parents:
diff changeset
    62
            return __kernel_standard(x,(double)fn,33); /* scalb underflow */
90ce3da70b43 Initial load
duke
parents:
diff changeset
    63
        }
90ce3da70b43 Initial load
duke
parents:
diff changeset
    64
#ifndef _SCALB_INT
90ce3da70b43 Initial load
duke
parents:
diff changeset
    65
        if(!finite(fn)) errno = ERANGE;
90ce3da70b43 Initial load
duke
parents:
diff changeset
    66
#endif
90ce3da70b43 Initial load
duke
parents:
diff changeset
    67
        return z;
90ce3da70b43 Initial load
duke
parents:
diff changeset
    68
#endif
90ce3da70b43 Initial load
duke
parents:
diff changeset
    69
}