/*
* 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 "StackFrameImpl.h"
#include "inStream.h"
#include "outStream.h"
#include "threadControl.h"
#include "FrameID.h"
static jdwpError
validateThreadFrame(jthread thread, FrameID frame)
{
jvmtiError error;
jdwpError serror;
jint count;
error = threadControl_suspendCount(thread, &count);
if ( error == JVMTI_ERROR_NONE ) {
if ( count > 0 ) {
serror = validateFrameID(thread, frame);
} else {
serror = JDWP_ERROR(THREAD_NOT_SUSPENDED);
}
} else {
serror = map2jdwpError(error);
}
return serror;
}
static jdwpError
writeVariableValue(JNIEnv *env, PacketOutputStream *out, jthread thread,
FrameNumber fnum, jint slot, jbyte typeKey)
{
jvmtiError error;
jvalue value;
if (isObjectTag(typeKey)) {
WITH_LOCAL_REFS(env, 1) {
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalObject)
(gdata->jvmti, thread, fnum, slot, &value.l);
if (error != JVMTI_ERROR_NONE) {
outStream_setError(out, map2jdwpError(error));
} else {
(void)outStream_writeByte(out, specificTypeKey(env, value.l));
(void)outStream_writeObjectRef(env, out, value.l);
}
} END_WITH_LOCAL_REFS(env);
} else {
/*
* For primitive types, the type key is bounced back as is.
*/
(void)outStream_writeByte(out, typeKey);
switch (typeKey) {
case JDWP_TAG(BYTE): {
jint intValue;
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)
(gdata->jvmti, thread, fnum, slot, &intValue);
(void)outStream_writeByte(out, (jbyte)intValue);
break;
}
case JDWP_TAG(CHAR): {
jint intValue;
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)
(gdata->jvmti, thread, fnum, slot, &intValue);
(void)outStream_writeChar(out, (jchar)intValue);
break;
}
case JDWP_TAG(FLOAT):
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalFloat)
(gdata->jvmti, thread, fnum, slot, &value.f);
(void)outStream_writeFloat(out, value.f);
break;
case JDWP_TAG(DOUBLE):
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalDouble)
(gdata->jvmti, thread, fnum, slot, &value.d);
(void)outStream_writeDouble(out, value.d);
break;
case JDWP_TAG(INT):
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)
(gdata->jvmti, thread, fnum, slot, &value.i);
(void)outStream_writeInt(out, value.i);
break;
case JDWP_TAG(LONG):
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalLong)
(gdata->jvmti, thread, fnum, slot, &value.j);
(void)outStream_writeLong(out, value.j);
break;
case JDWP_TAG(SHORT): {
jint intValue;
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)
(gdata->jvmti, thread, fnum, slot, &intValue);
(void)outStream_writeShort(out, (jshort)intValue);
break;
}
case JDWP_TAG(BOOLEAN):{
jint intValue;
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalInt)
(gdata->jvmti, thread, fnum, slot, &intValue);
(void)outStream_writeBoolean(out, (jboolean)intValue);
break;
}
default:
return JDWP_ERROR(INVALID_TAG);
}
}
return map2jdwpError(error);
}
static jdwpError
readVariableValue(JNIEnv *env, PacketInputStream *in, jthread thread,
FrameNumber fnum, jint slot, jbyte typeKey)
{
jvmtiError error;
jvalue value;
if (isObjectTag(typeKey)) {
value.l = inStream_readObjectRef(env, in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalObject)
(gdata->jvmti, thread, fnum, slot, value.l);
} else {
switch (typeKey) {
case JDWP_TAG(BYTE):
value.b = inStream_readByte(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)
(gdata->jvmti, thread, fnum, slot, value.b);
break;
case JDWP_TAG(CHAR):
value.c = inStream_readChar(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)
(gdata->jvmti, thread, fnum, slot, value.c);
break;
case JDWP_TAG(FLOAT):
value.f = inStream_readFloat(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalFloat)
(gdata->jvmti, thread, fnum, slot, value.f);
break;
case JDWP_TAG(DOUBLE):
value.d = inStream_readDouble(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalDouble)
(gdata->jvmti, thread, fnum, slot, value.d);
break;
case JDWP_TAG(INT):
value.i = inStream_readInt(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)
(gdata->jvmti, thread, fnum, slot, value.i);
break;
case JDWP_TAG(LONG):
value.j = inStream_readLong(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalLong)
(gdata->jvmti, thread, fnum, slot, value.j);
break;
case JDWP_TAG(SHORT):
value.s = inStream_readShort(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)
(gdata->jvmti, thread, fnum, slot, value.s);
break;
case JDWP_TAG(BOOLEAN):
value.z = inStream_readBoolean(in);
error = JVMTI_FUNC_PTR(gdata->jvmti,SetLocalInt)
(gdata->jvmti, thread, fnum, slot, value.z);
break;
default:
return JDWP_ERROR(INVALID_TAG);
}
}
return map2jdwpError(error);
}
static jboolean
getValues(PacketInputStream *in, PacketOutputStream *out)
{
JNIEnv *env;
int i;
jdwpError serror;
jthread thread;
FrameID frame;
jint variableCount;
env = getEnv();
thread = inStream_readThreadRef(env, in);
if (inStream_error(in)) {
return JNI_TRUE;
}
frame = inStream_readFrameID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
variableCount = inStream_readInt(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
/*
* Validate the frame id
*/
serror = validateThreadFrame(thread, frame);
if (serror != JDWP_ERROR(NONE)) {
outStream_setError(out, serror);
return JNI_TRUE;
}
(void)outStream_writeInt(out, variableCount);
for (i = 0; (i < variableCount) && !outStream_error(out); i++) {
jint slot;
jbyte typeKey;
FrameNumber fnum;
slot = inStream_readInt(in);
if (inStream_error(in))
break;
typeKey = inStream_readByte(in);
if (inStream_error(in))
break;
fnum = getFrameNumber(frame);
serror = writeVariableValue(env, out, thread, fnum, slot, typeKey);
if (serror != JDWP_ERROR(NONE)) {
outStream_setError(out, serror);
break;
}
}
return JNI_TRUE;
}
static jboolean
setValues(PacketInputStream *in, PacketOutputStream *out)
{
JNIEnv *env;
jint i;
jdwpError serror;
jthread thread;
FrameID frame;
jint variableCount;
env = getEnv();
thread = inStream_readThreadRef(env, in);
if (inStream_error(in)) {
return JNI_TRUE;
}
frame = inStream_readFrameID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
variableCount = inStream_readInt(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
/*
* Validate the frame id
*/
serror = validateThreadFrame(thread, frame);
if (serror != JDWP_ERROR(NONE)) {
outStream_setError(out, serror);
return JNI_TRUE;
}
for (i = 0; (i < variableCount) && !inStream_error(in); i++) {
jint slot;
jbyte typeKey;
FrameNumber fnum;
slot = inStream_readInt(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
typeKey = inStream_readByte(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
fnum = getFrameNumber(frame);
serror = readVariableValue(env, in, thread, fnum, slot, typeKey);
if (serror != JDWP_ERROR(NONE))
break;
}
if (serror != JDWP_ERROR(NONE)) {
outStream_setError(out, serror);
}
return JNI_TRUE;
}
static jboolean
thisObject(PacketInputStream *in, PacketOutputStream *out)
{
JNIEnv *env;
jdwpError serror;
jthread thread;
FrameID frame;
env = getEnv();
thread = inStream_readThreadRef(env, in);
if (inStream_error(in)) {
return JNI_TRUE;
}
frame = inStream_readFrameID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
/*
* Validate the frame id
*/
serror = validateThreadFrame(thread, frame);
if (serror != JDWP_ERROR(NONE)) {
outStream_setError(out, serror);
return JNI_TRUE;
}
WITH_LOCAL_REFS(env, 2) {
jvmtiError error;
jmethodID method;
jlocation location;
FrameNumber fnum;
/*
* Find out if the given frame is for a static or native method.
*/
fnum = getFrameNumber(frame);
error = JVMTI_FUNC_PTR(gdata->jvmti,GetFrameLocation)
(gdata->jvmti, thread, fnum, &method, &location);
if (error == JVMTI_ERROR_NONE) {
jint modifiers;
error = methodModifiers(method, &modifiers);
if (error == JVMTI_ERROR_NONE) {
jobject this_object;
/*
* Return null for static or native methods; otherwise, the JVM
* spec guarantees that "this" is in slot 0
*/
if (modifiers & (MOD_STATIC | MOD_NATIVE)) {
this_object = NULL;
(void)outStream_writeByte(out, specificTypeKey(env, this_object));
(void)outStream_writeObjectRef(env, out, this_object);
} else {
error = JVMTI_FUNC_PTR(gdata->jvmti,GetLocalObject)
(gdata->jvmti, thread, fnum, 0, &this_object);
if (error == JVMTI_ERROR_NONE) {
(void)outStream_writeByte(out, specificTypeKey(env, this_object));
(void)outStream_writeObjectRef(env, out, this_object);
}
}
}
}
serror = map2jdwpError(error);
} END_WITH_LOCAL_REFS(env);
if (serror != JDWP_ERROR(NONE))
outStream_setError(out, serror);
return JNI_TRUE;
}
static jboolean
popFrames(PacketInputStream *in, PacketOutputStream *out)
{
jvmtiError error;
jdwpError serror;
jthread thread;
FrameID frame;
FrameNumber fnum;
thread = inStream_readThreadRef(getEnv(), in);
if (inStream_error(in)) {
return JNI_TRUE;
}
frame = inStream_readFrameID(in);
if (inStream_error(in)) {
return JNI_TRUE;
}
/*
* Validate the frame id
*/
serror = validateThreadFrame(thread, frame);
if (serror != JDWP_ERROR(NONE)) {
outStream_setError(out, serror);
return JNI_TRUE;
}
if (threadControl_isDebugThread(thread)) {
outStream_setError(out, JDWP_ERROR(INVALID_THREAD));
return JNI_TRUE;
}
fnum = getFrameNumber(frame);
error = threadControl_popFrames(thread, fnum);
if (error != JVMTI_ERROR_NONE) {
serror = map2jdwpError(error);
outStream_setError(out, serror);
}
return JNI_TRUE;
}
void *StackFrame_Cmds[] = { (void *)0x4
,(void *)getValues
,(void *)setValues
,(void *)thisObject
,(void *)popFrames
};