1 /*
   2  * Copyright (c) 1998, 2005, 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.  Oracle designates this
   8  * particular file as subject to the "Classpath" exception as provided
   9  * by Oracle in the LICENSE file that accompanied this code.
  10  *
  11  * This code is distributed in the hope that it will be useful, but WITHOUT
  12  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14  * version 2 for more details (a copy is included in the LICENSE file that
  15  * accompanied this code).
  16  *
  17  * You should have received a copy of the GNU General Public License version
  18  * 2 along with this work; if not, write to the Free Software Foundation,
  19  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  20  *
  21  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  22  * or visit www.oracle.com if you need additional information or have any
  23  * questions.
  24  */
  25 
  26 #include "util.h"
  27 #include "ObjectReferenceImpl.h"
  28 #include "commonRef.h"
  29 #include "inStream.h"
  30 #include "outStream.h"
  31 
  32 static jboolean
  33 referenceType(PacketInputStream *in, PacketOutputStream *out)
  34 {
  35     JNIEnv *env;
  36     jobject object;
  37 
  38     env = getEnv();
  39 
  40     object = inStream_readObjectRef(env, in);
  41     if (inStream_error(in)) {
  42         return JNI_TRUE;
  43     }
  44 
  45     WITH_LOCAL_REFS(env, 1) {
  46 
  47         jbyte tag;
  48         jclass clazz;
  49 
  50         clazz = JNI_FUNC_PTR(env,GetObjectClass)(env, object);
  51         tag = referenceTypeTag(clazz);
  52 
  53         (void)outStream_writeByte(out, tag);
  54         (void)outStream_writeObjectRef(env, out, clazz);
  55 
  56     } END_WITH_LOCAL_REFS(env);
  57 
  58     return JNI_TRUE;
  59 }
  60 
  61 static jboolean
  62 getValues(PacketInputStream *in, PacketOutputStream *out)
  63 {
  64     sharedGetFieldValues(in, out, JNI_FALSE);
  65     return JNI_TRUE;
  66 }
  67 
  68 
  69 static jvmtiError
  70 readFieldValue(JNIEnv *env, PacketInputStream *in, jclass clazz,
  71                jobject object, jfieldID field, char *signature)
  72 {
  73     jvalue value;
  74     jvmtiError error;
  75 
  76     switch (signature[0]) {
  77         case JDWP_TAG(ARRAY):
  78         case JDWP_TAG(OBJECT):
  79             value.l = inStream_readObjectRef(env, in);
  80             JNI_FUNC_PTR(env,SetObjectField)(env, object, field, value.l);
  81             break;
  82 
  83         case JDWP_TAG(BYTE):
  84             value.b = inStream_readByte(in);
  85             JNI_FUNC_PTR(env,SetByteField)(env, object, field, value.b);
  86             break;
  87 
  88         case JDWP_TAG(CHAR):
  89             value.c = inStream_readChar(in);
  90             JNI_FUNC_PTR(env,SetCharField)(env, object, field, value.c);
  91             break;
  92 
  93         case JDWP_TAG(FLOAT):
  94             value.f = inStream_readFloat(in);
  95             JNI_FUNC_PTR(env,SetFloatField)(env, object, field, value.f);
  96             break;
  97 
  98         case JDWP_TAG(DOUBLE):
  99             value.d = inStream_readDouble(in);
 100             JNI_FUNC_PTR(env,SetDoubleField)(env, object, field, value.d);
 101             break;
 102 
 103         case JDWP_TAG(INT):
 104             value.i = inStream_readInt(in);
 105             JNI_FUNC_PTR(env,SetIntField)(env, object, field, value.i);
 106             break;
 107 
 108         case JDWP_TAG(LONG):
 109             value.j = inStream_readLong(in);
 110             JNI_FUNC_PTR(env,SetLongField)(env, object, field, value.j);
 111             break;
 112 
 113         case JDWP_TAG(SHORT):
 114             value.s = inStream_readShort(in);
 115             JNI_FUNC_PTR(env,SetShortField)(env, object, field, value.s);
 116             break;
 117 
 118         case JDWP_TAG(BOOLEAN):
 119             value.z = inStream_readBoolean(in);
 120             JNI_FUNC_PTR(env,SetBooleanField)(env, object, field, value.z);
 121             break;
 122     }
 123 
 124     error = JVMTI_ERROR_NONE;
 125     if (JNI_FUNC_PTR(env,ExceptionOccurred)(env)) {
 126         error = AGENT_ERROR_JNI_EXCEPTION;
 127     }
 128 
 129     return error;
 130 }
 131 
 132 static jboolean
 133 setValues(PacketInputStream *in, PacketOutputStream *out)
 134 {
 135     JNIEnv *env;
 136     jint count;
 137     jvmtiError error;
 138     jobject object;
 139 
 140     env = getEnv();
 141 
 142     object = inStream_readObjectRef(env, in);
 143     if (inStream_error(in)) {
 144         return JNI_TRUE;
 145     }
 146     count = inStream_readInt(in);
 147     if (inStream_error(in)) {
 148         return JNI_TRUE;
 149     }
 150 
 151     error = JVMTI_ERROR_NONE;
 152 
 153     WITH_LOCAL_REFS(env, count + 1) {
 154 
 155         jclass clazz;
 156 
 157         clazz = JNI_FUNC_PTR(env,GetObjectClass)(env, object);
 158 
 159         if (clazz != NULL ) {
 160 
 161             int i;
 162 
 163             for (i = 0; (i < count) && !inStream_error(in); i++) {
 164 
 165                 jfieldID field;
 166                 char *signature = NULL;
 167 
 168                 field = inStream_readFieldID(in);
 169                 if (inStream_error(in))
 170                     break;
 171 
 172                 error = fieldSignature(clazz, field, NULL, &signature, NULL);
 173                 if (error != JVMTI_ERROR_NONE) {
 174                     break;
 175                 }
 176 
 177                 error = readFieldValue(env, in, clazz, object, field, signature);
 178                 jvmtiDeallocate(signature);
 179 
 180                 if (error != JVMTI_ERROR_NONE) {
 181                     break;
 182                 }
 183             }
 184         }
 185 
 186         if (error != JVMTI_ERROR_NONE) {
 187             outStream_setError(out, map2jdwpError(error));
 188         }
 189 
 190     } END_WITH_LOCAL_REFS(env);
 191 
 192     return JNI_TRUE;
 193 }
 194 
 195 static jboolean
 196 monitorInfo(PacketInputStream *in, PacketOutputStream *out)
 197 {
 198     JNIEnv *env;
 199     jobject object;
 200 
 201     env = getEnv();
 202 
 203     object = inStream_readObjectRef(env, in);
 204     if (inStream_error(in)) {
 205         return JNI_TRUE;
 206     }
 207 
 208     WITH_LOCAL_REFS(env, 1) {
 209 
 210         jvmtiError error;
 211         jvmtiMonitorUsage info;
 212 
 213         (void)memset(&info, 0, sizeof(info));
 214         error = JVMTI_FUNC_PTR(gdata->jvmti,GetObjectMonitorUsage)
 215                         (gdata->jvmti, object, &info);
 216         if (error != JVMTI_ERROR_NONE) {
 217             outStream_setError(out, map2jdwpError(error));
 218         } else {
 219             int i;
 220             (void)outStream_writeObjectRef(env, out, info.owner);
 221             (void)outStream_writeInt(out, info.entry_count);
 222             (void)outStream_writeInt(out, info.waiter_count);
 223             for (i = 0; i < info.waiter_count; i++) {
 224                 (void)outStream_writeObjectRef(env, out, info.waiters[i]);
 225             }
 226         }
 227 
 228         if (info.waiters != NULL )
 229             jvmtiDeallocate(info.waiters);
 230 
 231     } END_WITH_LOCAL_REFS(env);
 232 
 233     return JNI_TRUE;
 234 }
 235 
 236 static jboolean
 237 invokeInstance(PacketInputStream *in, PacketOutputStream *out)
 238 {
 239     return sharedInvoke(in, out);
 240 }
 241 
 242 static jboolean
 243 disableCollection(PacketInputStream *in, PacketOutputStream *out)
 244 {
 245     jlong id;
 246     jvmtiError error;
 247 
 248     id = inStream_readObjectID(in);
 249     if (inStream_error(in)) {
 250         return JNI_TRUE;
 251     }
 252 
 253     error = commonRef_pin(id);
 254     if (error != JVMTI_ERROR_NONE) {
 255         outStream_setError(out, map2jdwpError(error));
 256     }
 257 
 258     return JNI_TRUE;
 259 }
 260 
 261 static jboolean
 262 enableCollection(PacketInputStream *in, PacketOutputStream *out)
 263 {
 264     jvmtiError error;
 265     jlong id;
 266 
 267     id = inStream_readObjectID(in);
 268     if (inStream_error(in)) {
 269         return JNI_TRUE;
 270     }
 271 
 272     error = commonRef_unpin(id);
 273     if (error != JVMTI_ERROR_NONE) {
 274         outStream_setError(out, map2jdwpError(error));
 275     }
 276 
 277     return JNI_TRUE;
 278 }
 279 
 280 static jboolean
 281 isCollected(PacketInputStream *in, PacketOutputStream *out)
 282 {
 283     jobject ref;
 284     jlong id;
 285     JNIEnv *env;
 286 
 287     env = getEnv();
 288     id = inStream_readObjectID(in);
 289     if (inStream_error(in)) {
 290         return JNI_TRUE;
 291     }
 292 
 293     if (id == NULL_OBJECT_ID) {
 294         outStream_setError(out, JDWP_ERROR(INVALID_OBJECT));
 295         return JNI_TRUE;
 296     }
 297 
 298     ref = commonRef_idToRef(env, id);
 299     (void)outStream_writeBoolean(out, (jboolean)(ref == NULL));
 300 
 301     commonRef_idToRef_delete(env, ref);
 302 
 303     return JNI_TRUE;
 304 }
 305 
 306 
 307 static jboolean
 308 referringObjects(PacketInputStream *in, PacketOutputStream *out)
 309 {
 310     jobject object;
 311     jint    maxReferrers;
 312     JNIEnv *env;
 313 
 314     env = getEnv();
 315 
 316     if (gdata->vmDead) {
 317         outStream_setError(out, JDWP_ERROR(VM_DEAD));
 318         return JNI_TRUE;
 319     }
 320 
 321     object = inStream_readObjectRef(env,in);
 322     if (inStream_error(in)) {
 323         return JNI_TRUE;
 324     }
 325 
 326     maxReferrers = inStream_readInt(in);
 327     if (inStream_error(in)) {
 328         return JNI_TRUE;
 329     }
 330 
 331     WITH_LOCAL_REFS(env, 1) {
 332         jvmtiError   error;
 333         ObjectBatch  referrerBatch;
 334 
 335         error = objectReferrers(object, &referrerBatch, maxReferrers);
 336         if (error != JVMTI_ERROR_NONE) {
 337             outStream_setError(out, map2jdwpError(error));
 338         } else {
 339             int kk;
 340 
 341             (void)outStream_writeInt(out, referrerBatch.count);
 342             for (kk = 0; kk < referrerBatch.count; kk++) {
 343                 jobject ref;
 344 
 345                 ref = referrerBatch.objects[kk];
 346                 (void)outStream_writeByte(out, specificTypeKey(env, ref));
 347                 (void)outStream_writeObjectRef(env, out, ref);
 348             }
 349             jvmtiDeallocate(referrerBatch.objects);
 350         }
 351     } END_WITH_LOCAL_REFS(env);
 352     return JNI_TRUE;
 353 }
 354 
 355 void *ObjectReference_Cmds[] = { (void *)10
 356     ,(void *)referenceType
 357     ,(void *)getValues
 358     ,(void *)setValues
 359     ,(void *)NULL      /* no longer used */
 360     ,(void *)monitorInfo
 361     ,(void *)invokeInstance
 362     ,(void *)disableCollection
 363     ,(void *)enableCollection
 364     ,(void *)isCollected
 365     ,(void *)referringObjects
 366     };