mirror of git://gcc.gnu.org/git/gcc.git
70 lines
1.6 KiB
C
70 lines
1.6 KiB
C
#include <stdio.h>
|
|
#include <calls.h>
|
|
|
|
jint
|
|
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)->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;
|
|
}
|