/*
* Copyright (c) 1998, 2005, Oracle and/or its affiliates. All rights reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* This code is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License version 2 only, as
* published by the Free Software Foundation. Oracle designates this
* particular file as subject to the "Classpath" exception as provided
* by Oracle in the LICENSE file that accompanied this code.
*
* This code is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
* version 2 for more details (a copy is included in the LICENSE file that
* accompanied this code).
*
* You should have received a copy of the GNU General Public License version
* 2 along with this work; if not, write to the Free Software Foundation,
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
*
* Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
* or visit www.oracle.com if you need additional information or have any
* questions.
*/
#include "util.h"
#include "ObjectReferenceImpl.h"
#include "commonRef.h"
#include "inStream.h"
#include "outStream.h"
static jboolean
referenceType(PacketInputStream *in, PacketOutputStream *out)
{
JNIEnv *env;
jobject object;
env = getEnv();
object = inStream_readObjectRef(env, in);
if (inStream_error(in)) {
return JNI_TRUE;
}
WITH_LOCAL_REFS(env, 1) {
jbyte tag;
jclass clazz;
clazz = JNI_FUNC_PTR(env,GetObjectClass)(env, object);
tag = referenceTypeTag(clazz);
(void)outStream_writeByte(out, tag);
(void)outStream_writeObjectRef(env, out, clazz);
} END_WITH_LOCAL_REFS(env);
return JNI_TRUE;
}
static jboolean
getValues(PacketInputStream *in, PacketOutputStream *out)
{
sharedGetFieldValues(in, out, JNI_FALSE);
return JNI_TRUE;
}
static jvmtiError
readFieldValue(JNIEnv *env, PacketInputStream *in, jclass clazz,
jobject object, jfieldID field, char *signature)
{
jvalue value;
jvmtiError error;
switch (signature[0]) {
case JDWP_TAG(ARRAY):
case JDWP_TAG(OBJECT):
value.l = inStream_readObjectRef(env, in);
JNI_FUNC_PTR(env,SetObjectField)(env, object, field, value.l);
break;
case JDWP_TAG(BYTE):
value.b = inStream_readByte(in);
JNI_FUNC_PTR(env,SetByteField)(env, object, field, value.b);
break;
case JDWP_TAG(CHAR):
value.c = inStream_readChar(in);
JNI_FUNC_PTR(env,SetCharField)(env, object, field, value.c);
break;
case JDWP_TAG(FLOAT):
value.f = inStream_readFloat(in);
JNI_FUNC_PTR(env,SetFloatField)(env, object, field, value.f);
break;
case JDWP_TAG(DOUBLE):
value.d = inStream_readDouble(in);
JNI_FUNC_PTR(env,SetDoubleField)(env, object, field, value.d);
break;
case JDWP_TAG(INT):
value.i = inStream_readInt(in);
JNI_FUNC_PTR(env,SetIntField)(env, object, field, value.i);
break;
case JDWP_TAG(LONG):
value.j = inStream_readLong(in);
JNI_FUNC_PTR(env,SetLongField)(env, object, field, value.j);
break;
case JDWP_TAG(SHORT):
value.s = inStream_readShort(in);
JNI_FUNC_PTR(env,SetShortField)(env, object, field, value.s);
break;
case JDWP_TAG(BOOLEAN):
value.z = inStream_readBoolean(in);
JNI_FUNC_PTR(env,SetBooleanField)(env, object, field, value.z);
break;
}
error = JVMTI_ERROR_NONE;
if (JNI_FUNC_PTR(env,ExceptionOccurred)(env)) {
error = AGENT_ERROR_JNI_EXCEPTION;
}
return error;
}
static jboolean
setValues(PacketInputStream *in, PacketOutputStream *out)
{
JNIEnv *env;
jint count;
jvmtiError error;
jobject object;
env = getEnv();
object = inStream_readObjectRef(env, in);
if (inStream_error(in)) {
return JNI_TRUE;
}
count = inStream_readInt(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
error = JVMTI_ERROR_NONE;
WITH_LOCAL_REFS(env, count + 1) {
jclass clazz;
clazz = JNI_FUNC_PTR(env,GetObjectClass)(env, object);
if (clazz != NULL ) {
int i;
for (i = 0; (i < count) && !inStream_error(in); i++) {
jfieldID field;
char *signature = NULL;
field = inStream_readFieldID(in);
if (inStream_error(in))
break;
error = fieldSignature(clazz, field, NULL, &signature, NULL);
if (error != JVMTI_ERROR_NONE) {
break;
}
error = readFieldValue(env, in, clazz, object, field, signature);
jvmtiDeallocate(signature);
if (error != JVMTI_ERROR_NONE) {
break;
}
}
}
if (error != JVMTI_ERROR_NONE) {
outStream_setError(out, map2jdwpError(error));
}
} END_WITH_LOCAL_REFS(env);
return JNI_TRUE;
}
static jboolean
monitorInfo(PacketInputStream *in, PacketOutputStream *out)
{
JNIEnv *env;
jobject object;
env = getEnv();
object = inStream_readObjectRef(env, in);
if (inStream_error(in)) {
return JNI_TRUE;
}
WITH_LOCAL_REFS(env, 1) {
jvmtiError error;
jvmtiMonitorUsage info;
(void)memset(&info, 0, sizeof(info));
error = JVMTI_FUNC_PTR(gdata->jvmti,GetObjectMonitorUsage)
(gdata->jvmti, object, &info);
if (error != JVMTI_ERROR_NONE) {
outStream_setError(out, map2jdwpError(error));
} else {
int i;
(void)outStream_writeObjectRef(env, out, info.owner);
(void)outStream_writeInt(out, info.entry_count);
(void)outStream_writeInt(out, info.waiter_count);
for (i = 0; i < info.waiter_count; i++) {
(void)outStream_writeObjectRef(env, out, info.waiters[i]);
}
}
if (info.waiters != NULL )
jvmtiDeallocate(info.waiters);
} END_WITH_LOCAL_REFS(env);
return JNI_TRUE;
}
static jboolean
invokeInstance(PacketInputStream *in, PacketOutputStream *out)
{
return sharedInvoke(in, out);
}
static jboolean
disableCollection(PacketInputStream *in, PacketOutputStream *out)
{
jlong id;
jvmtiError error;
id = inStream_readObjectID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
error = commonRef_pin(id);
if (error != JVMTI_ERROR_NONE) {
outStream_setError(out, map2jdwpError(error));
}
return JNI_TRUE;
}
static jboolean
enableCollection(PacketInputStream *in, PacketOutputStream *out)
{
jvmtiError error;
jlong id;
id = inStream_readObjectID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
error = commonRef_unpin(id);
if (error != JVMTI_ERROR_NONE) {
outStream_setError(out, map2jdwpError(error));
}
return JNI_TRUE;
}
static jboolean
isCollected(PacketInputStream *in, PacketOutputStream *out)
{
jobject ref;
jlong id;
JNIEnv *env;
env = getEnv();
id = inStream_readObjectID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
if (id == NULL_OBJECT_ID) {
outStream_setError(out, JDWP_ERROR(INVALID_OBJECT));
return JNI_TRUE;
}
ref = commonRef_idToRef(env, id);
(void)outStream_writeBoolean(out, (jboolean)(ref == NULL));
commonRef_idToRef_delete(env, ref);
return JNI_TRUE;
}
static jboolean
referringObjects(PacketInputStream *in, PacketOutputStream *out)
{
jobject object;
jint maxReferrers;
JNIEnv *env;
env = getEnv();
if (gdata->vmDead) {
outStream_setError(out, JDWP_ERROR(VM_DEAD));
return JNI_TRUE;
}
object = inStream_readObjectRef(env,in);
if (inStream_error(in)) {
return JNI_TRUE;
}
maxReferrers = inStream_readInt(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
WITH_LOCAL_REFS(env, 1) {
jvmtiError error;
ObjectBatch referrerBatch;
error = objectReferrers(object, &referrerBatch, maxReferrers);
if (error != JVMTI_ERROR_NONE) {
outStream_setError(out, map2jdwpError(error));
} else {
int kk;
(void)outStream_writeInt(out, referrerBatch.count);
for (kk = 0; kk < referrerBatch.count; kk++) {
jobject ref;
ref = referrerBatch.objects[kk];
(void)outStream_writeByte(out, specificTypeKey(env, ref));
(void)outStream_writeObjectRef(env, out, ref);
}
jvmtiDeallocate(referrerBatch.objects);
}
} END_WITH_LOCAL_REFS(env);
return JNI_TRUE;
}
void *ObjectReference_Cmds[] = { (void *)10
,(void *)referenceType
,(void *)getValues
,(void *)setValues
,(void *)NULL /* no longer used */
,(void *)monitorInfo
,(void *)invokeInstance
,(void *)disableCollection
,(void *)enableCollection
,(void *)isCollected
,(void *)referringObjects
};