jni-callmethod.c

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

  return (retval.d);
}

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

void
KaffeJNI_CallNonvirtualVoidMethodV(JNIEnv* env UNUSED, jobject obj, jclass cls UNUSED, jmethodID meth, va_list args)
{
  Method* m = (Method*)meth;
  jobject obj_local;

  BEGIN_EXCEPTION_HANDLING_VOID();

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

  KaffeVM_callMethodV(m, METHOD_NATIVECODE(m), obj_local, args, NULL);

  END_EXCEPTION_HANDLING();
}

void
KaffeJNI_CallNonvirtualVoidMethod(JNIEnv* env, jobject obj, jclass cls, jmethodID meth, ...)
{
  va_list args;

  BEGIN_EXCEPTION_HANDLING_VOID();

  va_start(args, meth);
  KaffeJNI_CallNonvirtualVoidMethodV(env, obj, cls, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
}

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

  BEGIN_EXCEPTION_HANDLING_VOID();

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

  KaffeVM_callMethodA(m, METHOD_NATIVECODE(m), obj_local, args, NULL, 0);

  END_EXCEPTION_HANDLING();
}

/* ------------------------------------------------------------------------------
 * Static method calls returning Object
 * ------------------------------------------------------------------------------
 */

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

  BEGIN_EXCEPTION_HANDLING(NULL);

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

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

  ADD_REF(retval.l);
  END_EXCEPTION_HANDLING();
  return (retval.l);
}

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

  BEGIN_EXCEPTION_HANDLING(NULL);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

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

  BEGIN_EXCEPTION_HANDLING(NULL);

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

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

  ADD_REF(retval.l);
  END_EXCEPTION_HANDLING();
  return (retval.l);
}

/* ------------------------------------------------------------------------------
 * Static method calls returning boolean
 * ------------------------------------------------------------------------------
 */

jboolean
KaffeJNI_CallStaticBooleanMethodV(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

jboolean
KaffeJNI_CallStaticBooleanMethod(JNIEnv* env, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jboolean r;

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

jboolean
KaffeJNI_CallStaticBooleanMethodA(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning byte
 * ------------------------------------------------------------------------------
 */

jbyte
KaffeJNI_CallStaticByteMethodV(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

jbyte
KaffeJNI_CallStaticByteMethod(JNIEnv* env, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jbyte r;

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

jbyte
KaffeJNI_CallStaticByteMethodA(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning char
 * ------------------------------------------------------------------------------
 */

jchar
KaffeJNI_CallStaticCharMethodV(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

jchar
KaffeJNI_CallStaticCharMethod(JNIEnv* env, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jchar r;

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

jchar
KaffeJNI_CallStaticCharMethodA(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning short
 * ------------------------------------------------------------------------------
 */

jshort
KaffeJNI_CallStaticShortMethodV(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

jshort
KaffeJNI_CallStaticShortMethod(JNIEnv* env, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jshort r;

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

jshort
KaffeJNI_CallStaticShortMethodA(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning int
 * ------------------------------------------------------------------------------
 */

jint
KaffeJNI_CallStaticIntMethodV(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

jint
KaffeJNI_CallStaticIntMethod(JNIEnv* env, jclass cls, jmethodID meth, ...)
{
  va_list args;
  jint r;

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

jint
KaffeJNI_CallStaticIntMethodA(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning long
 * ------------------------------------------------------------------------------
 */

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

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

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

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

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

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning float
 * ------------------------------------------------------------------------------
 */

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

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

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

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}

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

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning double
 * ------------------------------------------------------------------------------
 */

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

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

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

  BEGIN_EXCEPTION_HANDLING(0);

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

  END_EXCEPTION_HANDLING();
  return (r);
}


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

  BEGIN_EXCEPTION_HANDLING(0);

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

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

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

/* ------------------------------------------------------------------------------
 * Static method calls returning void
 * ------------------------------------------------------------------------------
 */

void
KaffeJNI_CallStaticVoidMethodV(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, va_list args)
{
  jvalue retval;
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING_VOID();

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

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

  END_EXCEPTION_HANDLING();
}

void
KaffeJNI_CallStaticVoidMethod(JNIEnv* env, jclass cls, jmethodID meth, ...)
{
  va_list args;

  BEGIN_EXCEPTION_HANDLING_VOID();

  va_start(args, meth);
  KaffeJNI_CallStaticVoidMethodV(env, cls, meth, args);
  va_end(args);

  END_EXCEPTION_HANDLING();
}

void
KaffeJNI_CallStaticVoidMethodA(JNIEnv* env UNUSED, jclass cls UNUSED, jmethodID meth, jvalue* args)
{
  Method* m = (Method*)meth;

  BEGIN_EXCEPTION_HANDLING_VOID();

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

  KaffeVM_callMethodA(m, METHOD_NATIVECODE(m), NULL, args, NULL, 0);

  END_EXCEPTION_HANDLING();
}