Initial revision

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102074 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 143 insertions, 0 deletions

diff --git a/libjava/classpath/native/vmi/vmi.c b/libjava/classpath/native/vmi/vmi.c
new file mode 100755
index 00000000000..6022bedfde3
--- /dev/null
+++ b/libjava/classpath/native/vmi/vmi.c
@@ -0,0 +1,143 @@
+/* Japhar implementation of VMI.
+   Copyright (C) 1998 Free Software Foundation, Inc.
+
+This file is part of GNU Classpath.
+
+GNU Classpath is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+ 
+GNU Classpath 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 for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU Classpath; see the file COPYING.  If not, write to the
+Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+02110-1301 USA.
+
+Linking this library statically or dynamically with other modules is
+making a combined work based on this library.  Thus, the terms and
+conditions of the GNU General Public License cover the whole
+combination.
+
+As a special exception, the copyright holders of this library give you
+permission to link this library with independent modules to produce an
+executable, regardless of the license terms of these independent
+modules, and to copy and distribute the resulting executable under
+terms of your choice, provided that you also meet, for each linked
+independent module, the terms and conditions of the license of that
+module.  An independent module is a module which is not derived from
+or based on this library.  If you modify this library, you may extend
+this exception to your version of the library, but you are not
+obligated to do so.  If you do not wish to do so, delete this
+exception statement from your version. */
+
+
+#include <jcl.h>
+#include <vmi.h>
+#include <jvmdi.h>
+#include <interp.h>
+#include <native-threads.h>
+
+JNIEXPORT vmiError JNICALL
+VMI_GetFrameClass(JNIEnv *env,
+		      jframeID frame,
+		      jclass *clazz) {
+	
+	return VMI_ERROR_NONE;
+}
+
+JNIEXPORT vmiError JNICALL
+VMI_GetFrameObject(JNIEnv *env,
+		      jframeID frame,
+		      jobject *obj) {
+  StackFrame *sframe = (StackFrame*)frame;
+  if(env == NULL || obj == NULL)
+    return VMI_ERROR_NULL_POINTER;
+  if(frame == NULL)
+    return VMI_ERROR_INVALID_FRAMEID;
+
+  *obj = THISPTR(sframe);
+  return VMI_ERROR_NONE;
+}
+
+JNIEXPORT vmiError JNICALL
+VMI_GetThisFrame(JNIEnv *env, jframeID *frame) {
+  JThreadInfo *thread_info;
+
+  if(env == NULL || frame == NULL)
+    return VMI_ERROR_NULL_POINTER;
+
+  thread_info = THREAD_getJavaInfo();
+  *frame = (jframeID)TOPFRAME(thread_info);
+  return VMI_ERROR_NONE;
+}
+
+JNIEXPORT vmiError JNICALL
+VMI_GetThisThreadObject(JNIEnv* env, jthread *thread) {
+  JThreadInfo *thread_info;
+  if(env == NULL || thread == NULL)
+    return VMI_ERROR_NULL_POINTER;
+  thread_info = THREAD_getJavaInfo();
+  *thread = (jthread)thread_info->java_thread;
+  return VMI_ERROR_NONE;
+}
+
+JNIEXPORT void JNICALL
+VMI_ThrowAppropriateException(JNIEnv *env, vmiError err) {
+	switch(err) {
+	case VMI_ERROR_NONE:
+		JCL_ThrowException(env, "java/lang/InternalError", "ERROR_NONE passed to VMI exception thrower.");
+		break;
+	case VMI_ERROR_NULL_POINTER:
+		JCL_ThrowException(env, "java/lang/NullPointerException", "null pointer in VMI detected.");
+		break;
+	case VMI_ERROR_OUT_OF_MEMORY:
+		JCL_ThrowException(env, "java/lang/OutOfMemoryError", "Out of memory! (in VMI).");
+		break;
+	case VMI_ERROR_INVALID_METHODID:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_METHODID");
+		break;
+	case VMI_ERROR_INVALID_CLASS:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_CLASS");
+		break;
+	case VMI_ERROR_INVALID_BCI:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_BCI");
+		break;
+	case VMI_ERROR_NO_SUCH_BREAKPOINT:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: NO_SUCH_BREAKPOINT");
+		break;
+	case VMI_ERROR_VM_DEAD:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: VM Dead!  Kinda makes ya wonder how this exception got thrown, huh?");
+		break;
+	case VMI_ERROR_INVALID_FRAMEID:
+		JCL_ThrowException(env, "java/lang/IllegalThreadStateException", "NULL Frame ID detected in VMI.");
+		break;
+	case VMI_ERROR_INVALID_SLOT:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_SLOT");
+		break;
+	case VMI_ERROR_TYPE_MISMATCH:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: INVALID_SLOT");
+		break;
+	case VMI_ERROR_NATIVE_FRAME:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: NATIVE_FRAME");
+		break;
+	case VMI_ERROR_NO_MORE_FRAMES:
+		JCL_ThrowException(env, "java/lang/InternalError", "VMI error: NO_MORE_FRAMES");
+		break;
+	case VMI_ERROR_INVALID_THREAD:
+		JCL_ThrowException(env, "java/lang/IllegalThreadStateException", "Invalid thread in VMI.");
+		break;
+	case VMI_ERROR_THREAD_NOT_SUSPENDED:
+		JCL_ThrowException(env, "java/lang/IllegalThreadStateException", "Attempt to introspect unsuspended thread in VMI.");
+		break;
+	default:
+		JCL_ThrowException(env, "java/lang/UnknownError", "VMI returned erroneous error value ...");
+		break;
+	}
+}
+
+