aboutsummaryrefslogtreecommitdiff
path: root/libjava/gnu/classpath/jdwp/natVMFrame.cc
diff options
context:
space:
mode:
Diffstat (limited to 'libjava/gnu/classpath/jdwp/natVMFrame.cc')
-rw-r--r--libjava/gnu/classpath/jdwp/natVMFrame.cc338
1 files changed, 0 insertions, 338 deletions
diff --git a/libjava/gnu/classpath/jdwp/natVMFrame.cc b/libjava/gnu/classpath/jdwp/natVMFrame.cc
deleted file mode 100644
index 6f2d523..0000000
--- a/libjava/gnu/classpath/jdwp/natVMFrame.cc
+++ /dev/null
@@ -1,338 +0,0 @@
-// natFrame.cc -- native support for VMFrame.java
-
-/* Copyright (C) 2006, 2007 Free Software Foundation
-
- This file is part of libgcj.
-
-This software is copyrighted work licensed under the terms of the
-Libgcj License. Please consult the file "LIBGCJ_LICENSE" for
-details. */
-
-#include <config.h>
-#include <gcj/cni.h>
-#include <jvm.h>
-#include <jvmti.h>
-#include "jvmti-int.h"
-
-#include <java-interp.h>
-
-#include <gnu/classpath/jdwp/VMFrame.h>
-#include <gnu/classpath/jdwp/VMVirtualMachine.h>
-#include <gnu/classpath/jdwp/exception/InvalidFrameException.h>
-#include <gnu/classpath/jdwp/exception/InvalidSlotException.h>
-#include <gnu/classpath/jdwp/exception/InvalidThreadException.h>
-#include <gnu/classpath/jdwp/exception/JdwpInternalErrorException.h>
-#include <gnu/classpath/jdwp/exception/TypeMismatchException.h>
-#include <gnu/classpath/jdwp/util/NullObject.h>
-#include <gnu/classpath/jdwp/value/ArrayValue.h>
-#include <gnu/classpath/jdwp/value/ByteValue.h>
-#include <gnu/classpath/jdwp/value/BooleanValue.h>
-#include <gnu/classpath/jdwp/value/CharValue.h>
-#include <gnu/classpath/jdwp/value/DoubleValue.h>
-#include <gnu/classpath/jdwp/value/FloatValue.h>
-#include <gnu/classpath/jdwp/value/IntValue.h>
-#include <gnu/classpath/jdwp/value/LongValue.h>
-#include <gnu/classpath/jdwp/value/ObjectValue.h>
-#include <gnu/classpath/jdwp/value/ShortValue.h>
-#include <gnu/classpath/jdwp/value/Value.h>
-#include <gnu/classpath/jdwp/value/VoidValue.h>
-
-using namespace java::lang;
-using namespace gnu::classpath::jdwp;
-using namespace gnu::classpath::jdwp::exception;
-
-
-// All the jvmti GetLocalXX and SetLocalXX functions return the same potential
-// errors, so this function handles them all and throws the appropriate JDWP
-// exception.
-static void
-checkJVMTIError (jvmtiEnv *env, jthread thread, jvmtiError jerr, jint slot,
- jbyte sig)
-{
- if (jerr != JVMTI_ERROR_NONE)
- {
- char *error;
- env->GetErrorName (jerr, &error);
- String *msg = reinterpret_cast<String *> (JvNewStringUTF (error));
- env->Deallocate ((unsigned char *) error);
-
- if (jerr == JVMTI_ERROR_INVALID_THREAD)
- throw new InvalidThreadException ((jlong) thread);
- else if (jerr == JVMTI_ERROR_NO_MORE_FRAMES)
- throw new InvalidFrameException (msg);
- else if (jerr == JVMTI_ERROR_INVALID_SLOT)
- throw new InvalidSlotException (slot);
- else if (jerr == JVMTI_ERROR_TYPE_MISMATCH)
- throw new TypeMismatchException (sig);
- else
- throw new JdwpInternalErrorException (msg);
- }
-}
-
-
-static jobject
-getObjectJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig)
-{
- jobject value;
- jvmtiError jerr = env->GetLocalObject (thread, depth, slot, &value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-
- return value;
-}
-
-static void
-setObjectJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth,
- jbyte sig, jobject value)
-{
- if (value->getClass ()->isAssignableFrom (&util::NullObject::class$))
- value = NULL;
-
- jvmtiError jerr = env->SetLocalObject (thread, depth, slot, value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-}
-
-static jint
-getIntJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig)
-{
- jint value;
- jvmtiError jerr = env->GetLocalInt (thread, depth, slot, &value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
- return value;
-}
-
-static void
-setIntJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig,
- jint value)
-{
- jvmtiError jerr = env->SetLocalInt (thread, depth, slot, value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-}
-
-static jlong
-getLongJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig)
-{
- jlong value;
- jvmtiError jerr = env->GetLocalLong (thread, depth, slot, &value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-
- return value;
-}
-
-static void
-setLongJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig,
- jlong value)
-{
- jvmtiError jerr = env->SetLocalLong (thread, depth, slot, value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-}
-
-static jfloat
-getFloatJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig)
-{
- jfloat value;
- jvmtiError jerr = env->GetLocalFloat (thread, depth, slot, &value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-
- return value;
-}
-
-static void
-setFloatJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth, jbyte sig,
- jfloat value)
-{
- jvmtiError jerr = env->SetLocalFloat (thread, depth, slot, value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-}
-
-static jdouble
-getDoubleJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth,
- jbyte sig)
-{
- jdouble value;
- jvmtiError jerr = env->GetLocalDouble (thread, depth, slot, &value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-
- return value;
-}
-
-static void
-setDoubleJVMTI (jvmtiEnv *env, jthread thread, jint slot, jint depth,
- jbyte sig, jdouble value)
-{
- jvmtiError jerr = env->SetLocalDouble (thread, depth, slot, value);
-
- checkJVMTIError (env, thread, jerr, slot, sig);
-}
-
-// This is necessary since JVMTI requires a stack depth as a parameter in all
-// its local variable functions. Since JDWP needs frameids, we have to run
-// through the call stack to translate these ids into the parameters JVMTI
-// wants.
-static jint
-getFrameDepth (_Jv_Frame *frame)
-{
- jint depth = 0;
- _Jv_Frame *top_frame = (_Jv_Frame *) frame->thread->frame;
- jint num_frames = VMVirtualMachine::getFrameCount (frame->thread);
-
- while (frame != top_frame)
- {
- top_frame = top_frame->next;
- depth++;
-
- if (depth >= num_frames || top_frame == NULL)
- throw new InvalidFrameException ((jlong) frame);
- }
-
- return depth;
-}
-
-using namespace gnu::classpath::jdwp::value;
-
-Value *
-gnu::classpath::jdwp::VMFrame::getValue (jint slot, jbyte sig)
-{
- _Jv_Frame *frame = reinterpret_cast<_Jv_Frame *> (id);
- jint depth = getFrameDepth (frame);
- jthread thread = reinterpret_cast<jthread> (frame->thread);
- jvmtiEnv *env = _Jv_GetJDWP_JVMTIEnv ();
-
- Value *value = NULL;
-
- switch (sig)
- {
- case 'B':
- value = new ByteValue ((jbyte) getIntJVMTI (env, thread, slot, depth,
- sig));
- break;
- case 'Z':
- value = new BooleanValue ((jboolean) getIntJVMTI (env, thread, slot,
- depth, sig));
- break;
- case 'C':
- value = new CharValue ((jchar) getIntJVMTI (env, thread, slot, depth,
- sig));
- break;
- case 'S':
- value = new ShortValue ((jshort) getIntJVMTI (env, thread, slot, depth,
- sig));
- break;
- case 'I':
- value = new IntValue (getIntJVMTI (env, thread, slot, depth, sig));
- break;
- case 'J':
- value = new LongValue (getLongJVMTI (env, thread, slot, depth, sig));
- break;
- case 'F':
- value = new FloatValue (getFloatJVMTI (env, thread, slot, depth, sig));
- break;
- case 'D':
- value = new DoubleValue (getDoubleJVMTI (env, thread, slot, depth, sig));
- break;
- case 'V':
- value = new VoidValue ();
- break;
- case '[':
- {
- Object *obj = getObjectJVMTI (env, thread, slot, depth, sig);
- if (obj == NULL)
- obj = new util::NullObject ();
- value = new ArrayValue (obj);
- break;
- }
- default:
- Object *obj = getObjectJVMTI (env, thread, slot, depth, sig);
- if (obj == NULL)
- obj = new util::NullObject ();
- value = new ObjectValue (obj);
- break;
- }
-
- return value;
-}
-
-void
-gnu::classpath::jdwp::VMFrame::setValue (jint slot, Value* value)
-{
- jbyte sig = value->getTag ();
-
- _Jv_Frame *frame = reinterpret_cast<_Jv_Frame *> (id);
- jint depth = getFrameDepth (frame);
- jthread thread = reinterpret_cast<jthread> (frame->thread);
- jvmtiEnv *env = _Jv_GetJDWP_JVMTIEnv ();
-
- switch (sig)
- {
- case 'B':
- {
- ByteValue *val = reinterpret_cast<ByteValue *> (value);
- setIntJVMTI (env, thread, slot, depth, sig, (jint) val->getValue ());
- break;
- }
- case 'Z':
- {
- BooleanValue *val = reinterpret_cast<BooleanValue *> (value);
- setIntJVMTI (env, thread, slot, depth, sig, (jint) val->getValue ());
- break;
- }
- case 'C':
- {
- CharValue *val = reinterpret_cast<CharValue *> (value);
- setIntJVMTI (env, thread, slot, depth, sig, (jint) val->getValue ());
- break;
- }
- case 'S':
- {
- ShortValue *val = reinterpret_cast<ShortValue *> (value);
- setIntJVMTI (env, thread, slot, depth, sig, (jint) val->getValue ());
- break;
- }
- case 'I':
- {
- IntValue *val = reinterpret_cast<IntValue *> (value);
- setIntJVMTI (env, thread, slot, depth, sig, val->getValue ());
- break;
- }
- case 'J':
- {
- LongValue *val = reinterpret_cast<LongValue *> (value);
- setLongJVMTI (env, thread, slot, depth, sig, val->getValue ());
- break;
- }
- case 'F':
- {
- FloatValue *val = reinterpret_cast<FloatValue *> (value);
- setFloatJVMTI (env, thread, slot, depth, sig, val->getValue ());
- break;
- }
- case 'D':
- {
- DoubleValue *val = reinterpret_cast<DoubleValue *> (value);
- setDoubleJVMTI (env, thread, slot, depth, sig, val->getValue ());
- break;
- }
- case 'V':
- break;
- case '[':
- {
- ArrayValue *val = reinterpret_cast<ArrayValue *> (value);
- setObjectJVMTI (env, thread, slot, depth, sig, val->getObject ());
- break;
- }
- default:
- {
- ObjectValue *val = reinterpret_cast<ObjectValue *> (value);
- setObjectJVMTI (env, thread, slot, depth, sig, val->getObject());
- break;
- }
- }
-}
generated by cgit v1.1 at 2025-04-17 21:33:43 +0000