jni-callmethod.c

linux下建立JAVA虚拟机的源码KAFFE

{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
   o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return ((jbyte) retval.i);
}

jbyte
KaffeJNI_CallByteMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jbyte r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallByteMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jbyte
KaffeJNI_CallByteMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), obj, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return ((jbyte) retval.i);
}

/* ------------------------------------------------------------------------------
 * Virtual method calls returning char
 * ------------------------------------------------------------------------------
 */

jchar
KaffeJNI_CallCharMethodV(JNIEnv* env UNUSED, jobject obj, jmethodID meth, va_list args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return ((jchar) retval.i);
}

jchar
KaffeJNI_CallCharMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jchar r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallCharMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jchar
KaffeJNI_CallCharMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), o, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return ((jchar) retval.i);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning short
 * ------------------------------------------------------------------------------
 */

jshort
KaffeJNI_CallShortMethodV(JNIEnv* env UNUSED, jobject obj, jmethodID meth, va_list args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return ((jshort) retval.i);
}

jshort
KaffeJNI_CallShortMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jshort r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallShortMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jshort
KaffeJNI_CallShortMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), o, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return ((jshort) retval.i);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning int
 * ------------------------------------------------------------------------------
 */

jint
KaffeJNI_CallIntMethodV(JNIEnv* env UNUSED, jobject obj, jmethodID meth, va_list args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.i);
}

jint
KaffeJNI_CallIntMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jint r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallIntMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jint
KaffeJNI_CallIntMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), o, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return (retval.i);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning long
 * ------------------------------------------------------------------------------
 */

jlong
KaffeJNI_CallLongMethodV(JNIEnv* env UNUSED, jobject obj, jmethodID meth, va_list args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.j);
}

jlong
KaffeJNI_CallLongMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jlong r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallLongMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jlong
KaffeJNI_CallLongMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), o, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return (retval.j);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning float
 * ------------------------------------------------------------------------------
 */

jfloat
KaffeJNI_CallFloatMethodV(JNIEnv* env UNUSED, jobject obj, jmethodID meth, va_list args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.f);
}

jfloat
KaffeJNI_CallFloatMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jfloat r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallFloatMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jfloat
KaffeJNI_CallFloatMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), o, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return (retval.f);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning double
 * ------------------------------------------------------------------------------
 */

jdouble
KaffeJNI_CallDoubleMethodV(JNIEnv* env UNUSED, jobject obj, jmethodID meth, va_list args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodV(m, getMethodFunc (m, o), o, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.d);
}

jdouble
KaffeJNI_CallDoubleMethod(JNIEnv* env, jobject obj, jmethodID meth, ...)
{
  va_list args;
  jdouble r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallDoubleMethodV(env, obj, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jdouble
KaffeJNI_CallDoubleMethodA(JNIEnv* env UNUSED, jobject obj, jmethodID meth, jvalue* args)
{
  jvalue retval;
  jobject obj_local;
  Hjava_lang_Object* o;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);
  obj_local = unveil(obj);
  o = (Hjava_lang_Object*)obj_local;

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }

  KaffeVM_callMethodA(m, getMethodFunc (m, o), o, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return (retval.d);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning long
 * ------------------------------------------------------------------------------
 */

jlong
KaffeJNI_CallNonvirtualLongMethodV(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING(0);

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }
  obj_local = unveil(obj);

  KaffeVM_callMethodV(m, METHOD_NATIVECODE(m), obj_local, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.j);
}

jlong
KaffeJNI_CallNonvirtualLongMethod(JNIEnv* env, jobject obj, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jlong r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallNonvirtualLongMethodV(env, obj, cls, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jlong
KaffeJNI_CallNonvirtualLongMethodA(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING(0);

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }
  obj_local = unveil(obj);

  KaffeVM_callMethodA(m, METHOD_NATIVECODE(m), obj_local, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return (retval.j);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning float
 * ------------------------------------------------------------------------------
 */

jfloat
KaffeJNI_CallNonvirtualFloatMethodV(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING(0);

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }
  obj_local = unveil(obj);

  KaffeVM_callMethodV(m, METHOD_NATIVECODE(m), obj_local, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.f);
}

jfloat
KaffeJNI_CallNonvirtualFloatMethod(JNIEnv* env, jobject obj, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jfloat r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallNonvirtualFloatMethodV(env, obj, cls, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jfloat
KaffeJNI_CallNonvirtualFloatMethodA(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING(0);

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }
  obj_local = unveil(obj);

  KaffeVM_callMethodA(m, METHOD_NATIVECODE(m), obj_local, args, &retval, 0);

  END_EXCEPTION_HANDLING();
  return (retval.f);
}

/* ------------------------------------------------------------------------------
 * Non-virtual method calls returning double
 * ------------------------------------------------------------------------------
 */

jdouble
KaffeJNI_CallNonvirtualDoubleMethodV(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING(0);

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }
  obj_local = unveil(obj);

  KaffeVM_callMethodV(m, METHOD_NATIVECODE(m), obj_local, args, &retval);

  END_EXCEPTION_HANDLING();
  return (retval.d);
}

jdouble
KaffeJNI_CallNonvirtualDoubleMethod(JNIEnv* env, jobject obj, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jdouble r;

  BEGIN_EXCEPTION_HANDLING(0);

  va_start(args, meth);
  r = KaffeJNI_CallNonvirtualDoubleMethodV(env, obj, cls, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
  return (r);
}

jdouble
KaffeJNI_CallNonvirtualDoubleMethodA(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING(0);

  if (METHOD_IS_STATIC(m)) {
    throwException(NoSuchMethodError(m->name->data));
  }
  obj_local = unveil(obj);

  KaffeVM_callMethodA(m, METHOD_NATIVECODE(m), obj_local, args, &retval, 0);

  END_EXCEPTION_HANDLING();