151b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski/*
251b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * Copyright (c) 1997, 2005, Oracle and/or its affiliates. All rights reserved.
351b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
451b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski *
551b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * This code is free software; you can redistribute it and/or modify it
651b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * under the terms of the GNU General Public License version 2 only, as
751b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * published by the Free Software Foundation.  Oracle designates this
851b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * particular file as subject to the "Classpath" exception as provided
951b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * by Oracle in the LICENSE file that accompanied this code.
1051b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski *
1151b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * This code is distributed in the hope that it will be useful, but WITHOUT
1251b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
1351b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
1451b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * version 2 for more details (a copy is included in the LICENSE file that
1551b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * accompanied this code).
1651b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski *
1751b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * You should have received a copy of the GNU General Public License version
1851b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * 2 along with this work; if not, write to the Free Software Foundation,
1951b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
2051b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski *
2151b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
2251b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * or visit www.oracle.com if you need additional information or have any
2351b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * questions.
2451b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski */
2551b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski
2651b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski#include "jni.h"
2751b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski#include "jni_util.h"
2851b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski#include "jlong.h"
2951b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski#include "jvm.h"
3051b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski
3146e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski#include "JNIHelp.h"
3246e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski
3346e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski#define NATIVE_METHOD(className, functionName, signature) \
3446e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski{ #functionName, signature, (void*)(className ## _ ## functionName) }
3546e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski
3651b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski
3751b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski/*
3851b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * Find the double float corresponding to a given bit pattern
3951b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski */
4051b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr JastrzebskiJNIEXPORT jdouble JNICALL
4146e3649f898305d185fc40bae2542e933a16b619Piotr JastrzebskiDouble_longBitsToDouble(JNIEnv *env, jclass unused, jlong v)
4251b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski{
4351b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    union {
4451b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski        jlong l;
4551b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski        double d;
4651b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    } u;
4751b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    jlong_to_jdouble_bits(&v);
4851b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    u.l = v;
4951b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    return (jdouble)u.d;
5051b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski}
5151b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski
5251b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski/*
5351b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski * Find the bit pattern corresponding to a given double float, NOT collapsing NaNs
5451b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski */
5551b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr JastrzebskiJNIEXPORT jlong JNICALL
5646e3649f898305d185fc40bae2542e933a16b619Piotr JastrzebskiDouble_doubleToRawLongBits(JNIEnv *env, jclass unused, jdouble v)
5751b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski{
5851b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    union {
5951b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski        jlong l;
6051b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski        double d;
6151b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    } u;
6251b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    jdouble_to_jlong_bits(&v);
6351b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    u.d = (double)v;
6451b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski    return u.l;
6551b1b6997fd3f980076b8081f7f1165ccc2a4008Piotr Jastrzebski}
6646e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebskistatic JNINativeMethod gMethods[] = {
6746e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski  NATIVE_METHOD(Double, longBitsToDouble, "(J)D"),
6846e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski  NATIVE_METHOD(Double, doubleToRawLongBits, "(D)J"),
6946e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski};
7046e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski
7146e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebskivoid register_java_lang_Double(JNIEnv* env) {
7246e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski  jniRegisterNativeMethods(env, "java/lang/Double", gMethods, NELEM(gMethods));
7346e3649f898305d185fc40bae2542e933a16b619Piotr Jastrzebski}
74