1 /*

     2  * Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved.

     3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

     4  *

     5  * This code is free software; you can redistribute it and/or modify it

     6  * under the terms of the GNU General Public License version 2 only, as

     7  * published by the Free Software Foundation.

     8  *

     9  * This code is distributed in the hope that it will be useful, but WITHOUT

    10  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

    11  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

    12  * version 2 for more details (a copy is included in the LICENSE file that

    13  * accompanied this code).

    14  *

    15  * You should have received a copy of the GNU General Public License version

    16  * 2 along with this work; if not, write to the Free Software Foundation,

    17  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

    18  *

    19  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

    20  * or visit www.oracle.com if you need additional information or have any

    21  * questions.

    22  */

    23 

    24 #include <stdio.h>

    25 

    26 #include "jni.h"

    27 

    28 #ifdef __cplusplus

    29 extern "C" {

    30 #endif

    31 

    32 #define METHOD_SIGNATURE "(IJFDLjava/lang/String;)Z"

    33 #define STATIC_CALLEE_SIGNATURE "(Lcompiler/calls/common/InvokeStatic;IJFDLjava/lang/String;)Z"

    34 #define BASE_CLASS "compiler/calls/common/CallsBase"

    35 

    36 #define CHECK_EXCEPTIONS if ((*env)->ExceptionCheck(env)) return

    37 #define CHECK_EXCEPTIONS_FALSE if ((*env)->ExceptionCheck(env)) return JNI_FALSE

    38 

    39 #define IS_STATIC 1

    40 #define NOT_STATIC 0

    41 

    42 jboolean doCalleeWork(JNIEnv *env, jobject self, jint param1, jlong param2,

    43     jfloat param3, jdouble param4, jstring param5) {

    44   jclass cls = (*env)->GetObjectClass(env, self);

    45   jfieldID calleeVisitedID = (*env)->GetFieldID(env, cls, "calleeVisited", "Z");

    46   jclass CheckCallsBaseClass;

    47   jmethodID checkValuesID;

    48   CHECK_EXCEPTIONS_FALSE;

    49   (*env)->SetBooleanField(env, self, calleeVisitedID, JNI_TRUE);

    50   CHECK_EXCEPTIONS_FALSE;

    51   CheckCallsBaseClass = (*env)->FindClass(env, BASE_CLASS);

    52   CHECK_EXCEPTIONS_FALSE;

    53   checkValuesID = (*env)->GetStaticMethodID(env, CheckCallsBaseClass,

    54       "checkValues", "(IJFDLjava/lang/String;)V");

    55   CHECK_EXCEPTIONS_FALSE;

    56   (*env)->CallStaticVoidMethod(env, CheckCallsBaseClass, checkValuesID,

    57       param1, param2, param3, param4, param5);

    58   return JNI_TRUE;

    59 }

    60 

    61 JNIEXPORT jboolean JNICALL Java_compiler_calls_common_InvokeDynamic_calleeNative(JNIEnv *env, jobject obj,

    62     jint param1, jlong param2, jfloat param3, jdouble param4, jstring param5) {

    63   return doCalleeWork(env, obj, param1, param2, param3, param4, param5);

    64 }

    65 

    66 JNIEXPORT jboolean JNICALL Java_compiler_calls_common_InvokeInterface_calleeNative(JNIEnv *env, jobject obj,

    67     jint param1, jlong param2, jfloat param3, jdouble param4, jstring param5) {

    68   return doCalleeWork(env, obj, param1, param2, param3, param4, param5);

    69 }

    70 

    71 JNIEXPORT jboolean JNICALL Java_compiler_calls_common_InvokeSpecial_calleeNative(JNIEnv *env, jobject obj,

    72     jint param1, jlong param2, jfloat param3, jdouble param4, jstring param5) {

    73   return doCalleeWork(env, obj, param1, param2, param3, param4, param5);

    74 }

    75 

    76 JNIEXPORT jboolean JNICALL Java_compiler_calls_common_InvokeVirtual_calleeNative(JNIEnv *env, jobject obj,

    77     jint param1, jlong param2, jfloat param3, jdouble param4, jstring param5) {

    78   return doCalleeWork(env, obj, param1, param2, param3, param4, param5);

    79 }

    80 

    81 JNIEXPORT jboolean JNICALL Java_compiler_calls_common_InvokeStatic_calleeNative(JNIEnv *env, jclass obj,

    82     jobject self, jint param1, jlong param2, jfloat param3, jdouble param4, jstring param5) {

    83   return doCalleeWork(env, self, param1, param2, param3, param4, param5);

    84 }

    85 

    86 void doCallerWork(JNIEnv *env, jobject obj, int isStatic) {

    87   jclass cls = (*env)->GetObjectClass(env, obj);

    88   jmethodID calleeMethodID = 0;

    89   jfieldID errorMessageID;

    90   jfieldID nativeCalleeID;

    91   jobject errorMessage;

    92   jmethodID assertTrue;

    93   jboolean callNative;

    94   jclass assertsClass;

    95   jclass baseClass;

    96   jboolean result;

    97   char* methodName;

    98   CHECK_EXCEPTIONS;

    99   nativeCalleeID = (*env)->GetFieldID(env, cls, "nativeCallee", "Z");

   100   CHECK_EXCEPTIONS;

   101   callNative = (*env)->GetBooleanField(env, obj, nativeCalleeID);

   102   CHECK_EXCEPTIONS;

   103   methodName = (callNative == JNI_TRUE) ? "calleeNative" : "callee";

   104   if (isStatic) {

   105     calleeMethodID = (*env)->GetStaticMethodID(env, cls, methodName,

   106         STATIC_CALLEE_SIGNATURE);

   107   } else {

   108     calleeMethodID = (*env)->GetMethodID(env, cls, methodName, METHOD_SIGNATURE);

   109   }

   110   CHECK_EXCEPTIONS;

   111   if (isStatic) {

   112     result = (*env)->CallStaticBooleanMethod(env, cls, calleeMethodID, obj,

   113         (jint) 1, (jlong) 2L, (jfloat) 3.0f, (jdouble) 4.0, (*env)->NewStringUTF(env, "5"));

   114   } else {

   115     result = (*env)->CallBooleanMethod(env, obj, calleeMethodID,

   116         (jint) 1, (jlong) 2L, (jfloat) 3.0f, (jdouble) 4.0, (*env)->NewStringUTF(env, "5"));

   117   }

   118   CHECK_EXCEPTIONS;

   119   baseClass = (*env)->FindClass(env, BASE_CLASS);

   120   CHECK_EXCEPTIONS;

   121   errorMessageID = (*env)->GetStaticFieldID(env, baseClass,

   122       "CALL_ERR_MSG", "Ljava/lang/String;");

   123   CHECK_EXCEPTIONS;

   124   errorMessage = (*env)->GetStaticObjectField(env, baseClass, errorMessageID);

   125   CHECK_EXCEPTIONS;

   126   assertsClass = (*env)->FindClass(env, "jdk/test/lib/Asserts");

   127   CHECK_EXCEPTIONS;

   128   assertTrue = (*env)->GetStaticMethodID(env, assertsClass,

   129       "assertTrue", "(ZLjava/lang/String;)V");

   130   (*env)->CallStaticVoidMethod(env, assertsClass, assertTrue, result,

   131       errorMessage);

   132 }

   133 

   134 JNIEXPORT void JNICALL Java_compiler_calls_common_InvokeSpecial_callerNative(JNIEnv *env, jobject obj) {

   135   doCallerWork(env, obj, NOT_STATIC);

   136 }

   137 

   138 JNIEXPORT void JNICALL Java_compiler_calls_common_InvokeVirtual_callerNative(JNIEnv *env, jobject obj) {

   139   doCallerWork(env, obj, NOT_STATIC);

   140 }

   141 

   142 JNIEXPORT void JNICALL Java_compiler_calls_common_InvokeStatic_callerNative(JNIEnv *env, jobject obj) {

   143   doCallerWork(env, obj, IS_STATIC);

   144 }

   145 

   146 #ifdef __cplusplus

   147 }

   148 #endif