1 files changed, 75 insertions, 0 deletions
diff --git a/libjava/testsuite/libjava.jni/calls.c b/libjava/testsuite/libjava.jni/calls.c
new file mode 100644
index 000000000..709e55d13
--- /dev/null
+++ b/libjava/testsuite/libjava.jni/calls.c
@@ -0,0 +1,75 @@
+#include <stdio.h>
+#include <calls.h>
+
+JNIEXPORT jint JNICALL
+Java_calls_docall (JNIEnv *env, jobject _this)
+{
+  jmethodID method;
+  jclass klass, super;
+
+  jbyte b;
+  jshort s;
+  jchar c;
+  jint i;
+  jlong l;
+  jfloat f;
+  jdouble d;
+
+  jvalue val;
+
+  jint fails = 0;
+
+  klass = (*env)->GetObjectClass (env, _this);
+  super = (*env)->GetSuperclass (env, klass);
+
+  method = (*env)->GetMethodID (env, klass, "byte_f", "()B");
+  b = (*env)->CallByteMethod (env, _this, method);
+  if (b != 23)
+    ++fails;
+
+  method = (*env)->GetMethodID (env, klass, "char_f", "(I)C");
+  val.i = 10;
+  c = (*env)->CallCharMethodA (env, _this, method, &val);
+  if (c != ('a' + 10))
+    ++fails;
+
+  method = (*env)->GetMethodID (env, super, "int_f", "()I");
+  i = (*env)->CallNonvirtualIntMethod (env, _this, super, method);
+  if (i != 27)
+    ++fails;
+
+  i = (*env)->CallIntMethod (env, _this, method);
+  if (i != 1023)
+    ++fails;
+
+  method = (*env)->GetStaticMethodID (env, klass, "long_f", "(J)J");
+  l = (*env)->CallStaticLongMethod (env, klass, method, (jlong) 10);
+  if (l != 2033)
+    ++fails;
+
+  method = (*env)->GetStaticMethodID (env, klass, "longpb_f", "(BJBJBJ)J");
+  l = (*env)->CallStaticLongMethod (env, klass, method, (jbyte) 13, (jlong) 3,
+		  		   (jbyte) 13, (jlong) 3, (jbyte) 13, (jlong) 4);
+  if (l != 3033)
+    ++fails;
+
+  method = (*env)->GetMethodID (env, klass, "void_f", "()V");
+  (*env)->CallVoidMethod (env, _this, method);
+
+  method = (*env)->GetStaticMethodID (env, klass, "short_f", "()S");
+  s = (*env)->CallStaticShortMethod (env, klass, method);
+  if (s != 2)
+    ++fails;
+
+  method = (*env)->GetMethodID (env, klass, "double_f", "()D");
+  d = (*env)->CallDoubleMethod (env, _this, method);
+  if (d != -1.0)
+    ++fails;
+
+  method = (*env)->GetMethodID (env, klass, "float_f", "()F");
+  f = (*env)->CallFloatMethod (env, _this, method);
+  if (f != 1.0)
+    ++fails;
+
+  return fails;
+}