Subversion Repositories openrisc

#include <gcj/cni.h>

#include <jvm.h>

#include <jvmti.h>

#include <stdio.h>

#include <java/lang/Object.h>

#include "getmethodname.h"

static void

print_error (jvmtiEnv *env, const char *msg,  jvmtiError err)

{

  char *error_msg;

  env->GetErrorName (err, &error_msg);

  printf ("%s: %s\n", msg, error_msg);

  env->Deallocate (reinterpret_cast<unsigned char *> (error_msg));

}

#define NUM_METHODS 8

static const char *function_names[] = { "clone",

                                        "equals",

                                        "finalize",

                                        "getClass",

                                        "hashCode",

                                        "notify",

                                        "notifyAll",

                                        "toString" };

static int

function_index (const char *name)

{

  for (int i = 0; i < NUM_METHODS; ++i)

    {

      if (strcmp (function_names[i], name) == 0)

        return i;

    }

  return -1;

}

void

getmethodname::do_getmethodname_tests ()

{

  jvmtiEnv *env;

  JavaVM *vm = _Jv_GetJavaVM ();

  vm->GetEnv (reinterpret_cast<void **> (&env), JVMTI_VERSION_1_0);

  jvmtiError err;

  err = env->GetMethodName (reinterpret_cast<jmethodID> (NULL),

                            reinterpret_cast<char **> (NULL),

                            reinterpret_cast<char **> (NULL),

                            reinterpret_cast<char **> (NULL));

  print_error (env, "null jmethodID", err);

  jint count;

  jmethodID *methods;

  err = env->GetClassMethods (&java::lang::Object::class$, &count, &methods);

  print_error (env, "GetClassMethods", err);

  char *names[NUM_METHODS], *solo_names[NUM_METHODS];

  char *signatures[NUM_METHODS], *solo_signatures[NUM_METHODS];

  char *generics[NUM_METHODS], *solo_generics[NUM_METHODS];

  for (jint i = 0; i < count; ++i)

    {

      char *name, *n;

      char *signature, *s;

      char *generic, *g;

      err = env->GetMethodName (methods[i], &name, &signature, &generic);

      int idx = -1;

      if (err != JVMTI_ERROR_NONE)

        {

          print_error (env, "GetMethodName - all fields", err);

          continue;

        }

      idx = function_index (name);

      if (idx == -1)

        continue;

      names[idx] = name;

      signatures[idx] = signature;

      generics[idx] = generic;

      err = env->GetMethodName (methods[i], &n, NULL, NULL);

      print_error (env, "GetMethodName - name", err);

      solo_names[idx] = n;

      err = env->GetMethodName (methods[i], NULL, &s, NULL);

      print_error (env, "GetMethodName - signature", err);

      solo_signatures[idx] = s;

      err = env->GetMethodName (methods[i], NULL, NULL, &g);

      print_error (env, "GetMethodName - generic", err);

      solo_generics[idx] = g;

    }

#define WRAP(X) ((X) == NULL ? "null" : (X))

#define MATCH(X,Y) (strcmp ((X),(Y)) == 0 ? "match" : "do not match")

  for (int i = 0; i < NUM_METHODS; ++i)

    {

      printf ("name=%s, signature=%s, generic=%s\n",

              WRAP (names[i]), WRAP (signatures[i]), WRAP (generics[i]));

      printf ("names %s\n", MATCH (solo_names[i], names[i]));

      printf ("signatures %s\n", MATCH (solo_signatures[i], signatures[i]));

      printf ("generic %s\n", "not yet");

      env->Deallocate (reinterpret_cast<unsigned char *> (names[i]));

      env->Deallocate (reinterpret_cast<unsigned char *> (solo_names[i]));

      env->Deallocate (reinterpret_cast<unsigned char *> (signatures[i]));

      env->Deallocate (reinterpret_cast<unsigned char *> (solo_signatures[i]));

      env->Deallocate (reinterpret_cast<unsigned char *> (generics[i]));

      env->Deallocate (reinterpret_cast<unsigned char *> (solo_generics[i]));

    }

}