1 /*
   2  * Copyright (c) 2004, 2018, 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 <stdlib.h>
  25 #include <string.h>
  26 #include "jni_tools.h"
  27 #include "agent_common.h"
  28 #include "jvmti_tools.h"
  29 
  30 #define PASSED 0
  31 #define STATUS_FAILED 2
  32 #define SAMPLE_TAG ((jlong) 111111)
  33 
  34 extern "C" {
  35 
  36 /* ========================================================================== */
  37 
  38 /* scaffold objects */
  39 static jlong timeout = 0;
  40 
  41 /* test objects */
  42 static jobject testedObject = NULL;
  43 static int ObjectFreeEventsCount = 0;
  44 
  45 /* ========================================================================== */
  46 
  47 /** callback functions **/
  48 
  49 void JNICALL ObjectFree(jvmtiEnv *jvmti_env, jlong tag) {
  50     char buffer[32], buffer2[32];
  51 
  52     ObjectFreeEventsCount++;
  53 
  54     NSK_DISPLAY1("ObjectFree event, tag = %s\n", jlong_to_string(tag, buffer));
  55     if (tag != SAMPLE_TAG) {
  56         if (tag == 0) {
  57             NSK_COMPLAIN0("testedObject not tagged\n");
  58         } else {
  59             NSK_COMPLAIN2("testedObject tagged incorrectly, expected=%s, got=%s\n",
  60                 jlong_to_string(SAMPLE_TAG, buffer),
  61                 jlong_to_string(tag, buffer2));
  62         }
  63         nsk_jvmti_setFailStatus();
  64     }
  65 }
  66 
  67 void JNICALL VMDeath(jvmtiEnv *jvmti_env, JNIEnv *env) {
  68     NSK_DISPLAY0("VMDeath event\n");
  69 
  70     if (ObjectFreeEventsCount == 0) {
  71         NSK_DISPLAY0("Warning: no object free events\n");
  72     }
  73 
  74     if (nsk_jvmti_isFailStatus()) {
  75         exit(NSK_STATUS_BASE + NSK_STATUS_FAILED);
  76     }
  77 }
  78 
  79 /* ========================================================================== */
  80 
  81 static int prepare(JNIEnv* jni) {
  82     const char* CLASS_NAME = "nsk/jvmti/scenarios/multienv/MA04/ma04t003";
  83     const char* FIELD_NAME = "testedObject1";
  84     const char* FIELD_SIGNATURE = "Ljava/lang/Object;";
  85     jclass cls = NULL;
  86     jfieldID fid = NULL;
  87 
  88     NSK_DISPLAY0("Obtain tested object from a static field of debugee class\n");
  89 
  90     NSK_DISPLAY1("Find class: %s\n", CLASS_NAME);
  91     if (!NSK_JNI_VERIFY(jni, (cls = jni->FindClass(CLASS_NAME)) != NULL))
  92         return NSK_FALSE;
  93 
  94     NSK_DISPLAY2("Find field: %s:%s\n", FIELD_NAME, FIELD_SIGNATURE);
  95     if (!NSK_JNI_VERIFY(jni, (fid =
  96             jni->GetStaticFieldID(cls, FIELD_NAME, FIELD_SIGNATURE)) != NULL))
  97         return NSK_FALSE;
  98 
  99     if (!NSK_JNI_VERIFY(jni, (testedObject = jni->GetStaticObjectField(cls, fid)) != NULL))
 100         return NSK_FALSE;
 101 
 102     if (!NSK_JNI_VERIFY(jni, (testedObject = jni->NewGlobalRef(testedObject)) != NULL))
 103         return NSK_FALSE;
 104 
 105     return NSK_TRUE;
 106 }
 107 
 108 /* ========================================================================== */
 109 
 110 /** Agent algorithm. */
 111 static void JNICALL
 112 agentProc(jvmtiEnv* jvmti, JNIEnv* jni, void* arg) {
 113 
 114     if (!nsk_jvmti_waitForSync(timeout))
 115         return;
 116 
 117     if (!prepare(jni)) {
 118         nsk_jvmti_setFailStatus();
 119         return;
 120     }
 121 
 122     NSK_DISPLAY0("Set tag on testedObject\n");
 123     if (!NSK_JVMTI_VERIFY(jvmti->SetTag(testedObject, SAMPLE_TAG))) {
 124         nsk_jvmti_setFailStatus();
 125         return;
 126     }
 127 
 128     NSK_TRACE(jni->DeleteGlobalRef(testedObject));
 129 
 130     if (!nsk_jvmti_resumeSync())
 131         return;
 132 }
 133 
 134 /* ========================================================================== */
 135 
 136 /** Agent library initialization. */
 137 #ifdef STATIC_BUILD
 138 JNIEXPORT jint JNICALL Agent_OnLoad_ma04t003(JavaVM *jvm, char *options, void *reserved) {
 139     return Agent_Initialize(jvm, options, reserved);
 140 }
 141 JNIEXPORT jint JNICALL Agent_OnAttach_ma04t003(JavaVM *jvm, char *options, void *reserved) {
 142     return Agent_Initialize(jvm, options, reserved);
 143 }
 144 JNIEXPORT jint JNI_OnLoad_ma04t003(JavaVM *jvm, char *options, void *reserved) {
 145     return JNI_VERSION_1_8;
 146 }
 147 #endif
 148 jint Agent_Initialize(JavaVM *jvm, char *options, void *reserved) {
 149     jvmtiEnv* jvmti = NULL;
 150     jvmtiEventCallbacks callbacks;
 151     jvmtiCapabilities caps;
 152 
 153     NSK_DISPLAY0("Agent_OnLoad\n");
 154 
 155     if (!NSK_VERIFY(nsk_jvmti_parseOptions(options)))
 156         return JNI_ERR;
 157 
 158     timeout = nsk_jvmti_getWaitTime() * 60 * 1000;
 159 
 160     if (!NSK_VERIFY((jvmti =
 161             nsk_jvmti_createJVMTIEnv(jvm, reserved)) != NULL))
 162         return JNI_ERR;
 163 
 164     memset(&caps, 0, sizeof(caps));
 165     caps.can_tag_objects = 1;
 166     caps.can_generate_object_free_events = 1;
 167     if (!NSK_JVMTI_VERIFY(jvmti->AddCapabilities(&caps))) {
 168         return JNI_ERR;
 169     }
 170 
 171     if (!NSK_VERIFY(nsk_jvmti_setAgentProc(agentProc, NULL)))
 172         return JNI_ERR;
 173 
 174     memset(&callbacks, 0, sizeof(callbacks));
 175     callbacks.ObjectFree = &ObjectFree;
 176     callbacks.VMDeath = &VMDeath;
 177     if (!NSK_VERIFY(nsk_jvmti_init_MA(&callbacks)))
 178         return JNI_ERR;
 179 
 180     if (!NSK_JVMTI_VERIFY(jvmti->SetEventNotificationMode(JVMTI_ENABLE, JVMTI_EVENT_OBJECT_FREE, NULL)))
 181         return JNI_ERR;
 182 
 183     if (!NSK_JVMTI_VERIFY(jvmti->SetEventNotificationMode(JVMTI_ENABLE, JVMTI_EVENT_VM_DEATH, NULL)))
 184         return JNI_ERR;
 185 
 186     return JNI_OK;
 187 }
 188 
 189 /* ========================================================================== */
 190 
 191 }