classpath-openjdk.cpp

/* Copyright (c) 2008-2014, Avian Contributors

   Permission to use, copy, modify, and/or distribute this software
   for any purpose with or without fee is hereby granted, provided
   that the above copyright notice and this permission notice appear
   in all copies.

   There is NO WARRANTY for this software.  See license.txt for
   details. */

#include "avian/machine.h"
#include "avian/classpath-common.h"
#include "avian/util.h"
#include "avian/process.h"

#ifdef PLATFORM_WINDOWS

#include <windows.h>
#include <io.h>
#include <direct.h>
#include <share.h>
#include <errno.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <sys/types.h>

#undef interface

#define CLOSE _close
#define READ _read
#define WRITE _write
#define FSTAT _fstat
#define STAT _stat
#define LSEEK _lseek

#define S_ISSOCK(x) false

#ifdef _MSC_VER
#define S_ISREG(x) ((x) | _S_IFREG)
#define S_ISDIR(x) ((x) | _S_IFDIR)
#define S_IRUSR _S_IREAD
#define S_IWUSR _S_IWRITE
#else
#define OPEN _open
#endif

#define O_RDONLY _O_RDONLY

#if (defined AVIAN_OPENJDK_SRC) \
    || ((defined __x86_64__) && (defined __MINGW32__))
#define EXPORT(x) x
#else
#define EXPORT(x) _##x
#endif

typedef int socklen_t;

#define RTLD_DEFAULT 0

#else  // not PLATFORM_WINDOWS

#include <unistd.h>
#include <limits.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <sys/ioctl.h>
#include <fcntl.h>
#include <errno.h>
#include <sched.h>
#include <dlfcn.h>

#define OPEN open
#define CLOSE close
#define READ read
#define WRITE write
#define STAT stat
#define FSTAT fstat
#define LSEEK lseek

#define EXPORT(x) x

#endif  // not PLATFORM_WINDOWS

#define JVM_EEXIST -100

using namespace vm;

namespace {

#ifdef _MSC_VER
inline int OPEN(string_t path, int mask, int mode)
{
  int fd;
  if (_wsopen_s(&fd, path, mask, _SH_DENYNO, mode) == 0) {
    return fd;
  } else {
    return -1;
  }
}
#endif

namespace local {

const int JMM_VERSION_1_0 = 0x20010000;

struct jmmOptionalSupport {
  unsigned isLowMemoryDetectionSupported : 1;
  unsigned isCompilationTimeMonitoringSupported : 1;
  unsigned isThreadContentionMonitoringSupported : 1;
  unsigned isCurrentThreadCpuTimeSupported : 1;
  unsigned isOtherThreadCpuTimeSupported : 1;
  unsigned isBootClassPathSupported : 1;
  unsigned isObjectMonitorUsageSupported : 1;
  unsigned isSynchronizerUsageSupported : 1;
};

typedef unsigned jmmLongAttribute;
typedef unsigned jmmBoolAttribute;
typedef unsigned jmmStatisticType;
typedef unsigned jmmThresholdType;
typedef unsigned jmmVMGlobalType;
typedef unsigned jmmVMGlobalOrigin;

struct jmmVMGlobal {
  jstring name;
  jvalue value;
  jmmVMGlobalType type;
  jmmVMGlobalOrigin origin;
  unsigned writeable : 1;
  unsigned external : 1;
  unsigned reserved : 30;
  void* reserved1;
  void* reserved2;
};

struct jmmExtAttributeInfo {
  const char* name;
  char type;
  const char* description;
};

struct jmmGCStat {
  jlong gc_index;
  jlong start_time;
  jlong end_time;
  jobjectArray usage_before_gc;
  jobjectArray usage_after_gc;
  jint gc_ext_attribute_values_size;
  jvalue* gc_ext_attribute_values;
  jint num_gc_ext_attributes;
};

struct JmmInterface {
  void* reserved1;
  void* reserved2;

  jint(JNICALL* GetVersion)(JNIEnv*);

  jint(JNICALL* GetOptionalSupport)(JNIEnv*, jmmOptionalSupport*);

  jobject(JNICALL* GetInputArguments)(JNIEnv*);

  jint(JNICALL* GetThreadInfo)(JNIEnv*, jlongArray, jint, jobjectArray);

  jobjectArray(JNICALL* GetInputArgumentArray)(JNIEnv*);

  jobjectArray(JNICALL* GetMemoryPools)(JNIEnv*, jobject);

  jobjectArray(JNICALL* GetMemoryManagers)(JNIEnv*, jobject);

  jobject(JNICALL* GetMemoryPoolUsage)(JNIEnv*, jobject);

  jobject(JNICALL* GetPeakMemoryPoolUsage)(JNIEnv*, jobject);

  void* reserved4;

  jobject(JNICALL* GetMemoryUsage)(JNIEnv*, jboolean);

  jlong(JNICALL* GetLongAttribute)(JNIEnv*, jobject, jmmLongAttribute);

  jboolean(JNICALL* GetBoolAttribute)(JNIEnv*, jmmBoolAttribute);

  jboolean(JNICALL* SetBoolAttribute)(JNIEnv*, jmmBoolAttribute, jboolean);

  jint(JNICALL* GetLongAttributes)(JNIEnv*,
                                   jobject,
                                   jmmLongAttribute*,
                                   jint,
                                   jlong*);

  jobjectArray(JNICALL* FindCircularBlockedThreads)(JNIEnv*);

  jlong(JNICALL* GetThreadCpuTime)(JNIEnv*, jlong);

  jobjectArray(JNICALL* GetVMGlobalNames)(JNIEnv*);

  jint(JNICALL* GetVMGlobals)(JNIEnv*, jobjectArray, jmmVMGlobal*, jint);

  jint(JNICALL* GetInternalThreadTimes)(JNIEnv*, jobjectArray, jlongArray);

  jboolean(JNICALL* ResetStatistic)(JNIEnv*, jvalue, jmmStatisticType);

  void(JNICALL* SetPoolSensor)(JNIEnv*, jobject, jmmThresholdType, jobject);

  jlong(JNICALL* SetPoolThreshold)(JNIEnv*, jobject, jmmThresholdType, jlong);

  jobject(JNICALL* GetPoolCollectionUsage)(JNIEnv*, jobject);

  jint(JNICALL* GetGCExtAttributeInfo)(JNIEnv*,
                                       jobject,
                                       jmmExtAttributeInfo*,
                                       jint);

  void(JNICALL* GetLastGCStat)(JNIEnv*, jobject, jmmGCStat*);

  jlong(JNICALL* GetThreadCpuTimeWithKind)(JNIEnv*, jlong, jboolean);

  void* reserved5;

  jint(JNICALL* DumpHeap0)(JNIEnv*, jstring, jboolean);

  jobjectArray(JNICALL* FindDeadlocks)(JNIEnv*, jboolean);

  void(JNICALL* SetVMGlobal)(JNIEnv*, jstring, jvalue);

  void* reserved6;

  jobjectArray(JNICALL* DumpThreads)(JNIEnv*, jlongArray, jboolean, jboolean);
};

const unsigned InterfaceVersion = 4;
const unsigned PageSize = 4 * 1024;
#ifdef AVIAN_OPENJDK_SRC
const int VirtualFileBase = 1000000000;
#endif

Machine* globalMachine;

const char* primitiveName(Thread* t, GcClass* c)
{
  if (c == primitiveClass(t, 'V')) {
    return "void";
  } else if (c == primitiveClass(t, 'Z')) {
    return "boolean";
  } else if (c == primitiveClass(t, 'B')) {
    return "byte";
  } else if (c == primitiveClass(t, 'C')) {
    return "char";
  } else if (c == primitiveClass(t, 'S')) {
    return "short";
  } else if (c == primitiveClass(t, 'I')) {
    return "int";
  } else if (c == primitiveClass(t, 'F')) {
    return "float";
  } else if (c == primitiveClass(t, 'J')) {
    return "long";
  } else if (c == primitiveClass(t, 'D')) {
    return "double";
  } else {
    abort(t);
  }
}

GcByteArray* getClassName(Thread* t, GcClass* c)
{
  if (c->name() == 0) {
    if (c->vmFlags() & PrimitiveFlag) {
      PROTECT(t, c);

      GcByteArray* name = makeByteArray(t, primitiveName(t, c));

      c->setName(t, name);
    } else {
      abort(t);
    }
  }

  return c->name();
}

GcString* makeClassNameString(Thread* t, GcByteArray* name)
{
  THREAD_RUNTIME_ARRAY(t, char, s, name->length());
  replace('/',
          '.',
          RUNTIME_ARRAY_BODY(s),
          reinterpret_cast<char*>(name->body().begin()));

  return makeString(t, "%s", RUNTIME_ARRAY_BODY(s));
}

object makeJmethod(Thread* t, GcMethod* vmMethod, int index = -1);

object makeJconstructor(Thread* t, GcMethod* vmMethod, int index = -1);

object makeJfield(Thread* t, GcField* vmField, int index = -1);

#ifdef AVIAN_OPENJDK_SRC
void interceptFileOperations(Thread*, bool);
#endif

class MyClasspath : public Classpath {
 public:
  MyClasspath(System* s,
              Allocator* allocator,
              const char* javaHome,
              const char* embedPrefix)
      : allocator(allocator), ranNetOnLoad(0), ranManagementOnLoad(0)
  {
    class StringBuilder {
     public:
      StringBuilder(System* s, Allocator* allocator)
          : s(s),
            allocator(allocator),
            bufferSize(1024),
            buffer(static_cast<char*>(allocator->allocate(bufferSize))),
            offset(0)
      {
      }

      void ensure(unsigned capacity)
      {
        if (capacity > bufferSize) {
          unsigned size = max(bufferSize * 2, capacity);
          char* b = static_cast<char*>(allocator->allocate(size));

          if (offset) {
            memcpy(b, buffer, offset);
          }

          allocator->free(buffer, bufferSize);

          buffer = b;
          bufferSize = size;
        }
      }

      void append(const char* append)
      {
        unsigned length = strlen(append);
        ensure(offset + length + 1);

        strncpy(buffer + offset, append, length + 1);

        offset += length;
      }

      void append(char c)
      {
        ensure(2);

        buffer[offset] = c;
        buffer[offset + 1] = 0;

        ++offset;
      }

      System* s;
      Allocator* allocator;
      unsigned bufferSize;
      char* buffer;
      unsigned offset;
    } sb(s, allocator);

    unsigned javaHomeOffset = sb.offset;
    sb.append(javaHome);
    sb.append('\0');

    unsigned classpathOffset = sb.offset;
    sb.append(AVIAN_CLASSPATH);
    sb.append(s->pathSeparator());
    sb.append(javaHome);
    sb.append("/lib/rt.jar");
    sb.append(s->pathSeparator());
    sb.append(javaHome);
    sb.append("/lib/jsse.jar");
    sb.append(s->pathSeparator());
    sb.append(javaHome);
    sb.append("/lib/jce.jar");
    sb.append(s->pathSeparator());
    sb.append(javaHome);
    sb.append("/lib/ext/sunjce_provider.jar");
    sb.append(s->pathSeparator());
    sb.append(javaHome);
    sb.append("/lib/resources.jar");
    sb.append('\0');

    unsigned libraryPathOffset = sb.offset;
    sb.append(javaHome);
#ifdef PLATFORM_WINDOWS
#define LIB_DIR "/bin"
#elif defined __APPLE__
#define LIB_DIR "/lib"
#elif defined ARCH_x86_64
#define LIB_DIR "/lib/amd64"
#elif defined ARCH_arm
#define LIB_DIR "/lib/arm"
#else
// todo: handle other architectures
#define LIB_DIR "/lib/i386"
#endif

#ifdef PLATFORM_WINDOWS
    sb.append(LIB_DIR);
#else
    sb.append(LIB_DIR ":");
    sb.append(javaHome);
    sb.append(LIB_DIR "/xawt");
#endif
    sb.append('\0');

    unsigned tzMappingsOffset = sb.offset;
    sb.append(javaHome);
    sb.append("/lib/tzmappings");
    this->tzMappingsLength = sb.offset - tzMappingsOffset;
    sb.append('\0');

    unsigned embedPrefixOffset = sb.offset;
    sb.append(embedPrefix);
    this->embedPrefixLength = sb.offset - embedPrefixOffset;

    this->javaHome = sb.buffer + javaHomeOffset;
    this->classpath = sb.buffer + classpathOffset;
    this->libraryPath = sb.buffer + libraryPathOffset;
    this->tzMappings = sb.buffer + tzMappingsOffset;
    this->embedPrefix = sb.buffer + embedPrefixOffset;
    this->buffer = sb.buffer;
    this->bufferSize = sb.bufferSize;
  }

  virtual GcJclass* makeJclass(Thread* t, GcClass* class_)
  {
    PROTECT(t, class_);

    GcString* name = makeClassNameString(t, getClassName(t, class_));
    PROTECT(t, name);

    GcJclass* c
        = reinterpret_cast<GcJclass*>(allocate(t, GcJclass::FixedSize, true));
    setObjectClass(t, c, type(t, GcJclass::Type));
    c->setName(t, name);
    c->setVmClass(t, class_);
#ifdef HAVE_JclassClassLoader
    if (class_->loader() != roots(t)->bootLoader()) {
      c->setClassLoader(t, class_->loader());
    }
#endif

    return c;
  }

  virtual GcString* makeString(Thread* t,
                               object oarray,
                               int32_t offset,
                               int32_t length)
  {
    if (objectClass(t, oarray) == type(t, GcByteArray::Type)) {
      GcByteArray* array = cast<GcByteArray>(t, oarray);
      PROTECT(t, array);

      GcCharArray* charArray = makeCharArray(t, length);
      for (int i = 0; i < length; ++i) {
        if (array->body()[offset + i] & 0x80) {
          GcMethod* constructor = resolveMethod(t,
                                                type(t, GcString::Type),
                                                "<init>",
                                                "([BIILjava/lang/String;)V");
          PROTECT(t, constructor);

          GcString* utf8 = vm::makeString(t, "UTF8");
          PROTECT(t, utf8);

          object s = makeNew(t, type(t, GcString::Type));
          PROTECT(t, s);

          t->m->processor->invoke(
              t, constructor, s, array, offset, length, utf8);

          return cast<GcString>(t, s);
        }

        charArray->body()[i] = array->body()[offset + i];
      }

      oarray = charArray;
    } else {
      expect(t, objectClass(t, oarray) == type(t, GcCharArray::Type));
    }

    return vm::makeString(t, oarray, offset, length, 0);
  }

  virtual GcThread* makeThread(Thread* t, Thread* parent)
  {
    const unsigned MaxPriority = 10;
    const unsigned NormalPriority = 5;

    GcThreadGroup* group;
    if (parent) {
      group = parent->javaThread->group();
    } else {
      group = reinterpret_cast<GcThreadGroup*>(
          allocate(t, GcThreadGroup::FixedSize, true));
      setObjectClass(t, group, type(t, GcThreadGroup::Type));
      group->maxPriority() = MaxPriority;
    }

    PROTECT(t, group);

    GcThread* thread
        = reinterpret_cast<GcThread*>(allocate(t, GcThread::FixedSize, true));
    setObjectClass(t, thread, type(t, GcThread::Type));
    thread->priority() = NormalPriority;

    thread->setGroup(t, group);

    thread->setContextClassLoader(t, roots(t)->appLoader());

    PROTECT(t, thread);

    GcJobject* blockerLock = makeJobject(t);
    thread->setBlockerLock(t, blockerLock);

    const unsigned BufferSize = 256;
    char buffer[BufferSize];
    unsigned length = vm::snprintf(buffer, BufferSize, "Thread-%p", thread);
    GcCharArray* name = makeCharArray(t, length);
    for (unsigned i = 0; i < length; ++i) {
      name->body()[i] = buffer[i];
    }
    thread->setName(t, name);

    return thread;
  }

  virtual object makeJMethod(Thread* t, GcMethod* vmMethod)
  {
    PROTECT(t, vmMethod);

    return vmMethod->name()->body()[0] == '<' ? makeJconstructor(t, vmMethod)
                                              : makeJmethod(t, vmMethod);
  }

  virtual GcMethod* getVMMethod(Thread* t, object jmethod)
  {
    return cast<GcMethod>(
        t,
        objectClass(t, jmethod) == type(t, GcJmethod::Type)
            ? cast<GcArray>(t,
                            cast<GcJmethod>(t, jmethod)
                                ->clazz()
                                ->vmClass()
                                ->methodTable())
                  ->body()[cast<GcJmethod>(t, jmethod)->slot()]
            : cast<GcArray>(t,
                            cast<GcJconstructor>(t, jmethod)
                                ->clazz()
                                ->vmClass()
                                ->methodTable())
                  ->body()[cast<GcJconstructor>(t, jmethod)->slot()]);
  }

  virtual object makeJField(Thread* t, GcField* vmField)
  {
    return makeJfield(t, vmField);
  }

  virtual GcField* getVMField(Thread* t, GcJfield* jfield)
  {
    return cast<GcField>(
        t,
        cast<GcArray>(t, jfield->clazz()->vmClass()->fieldTable())
            ->body()[jfield->slot()]);
  }

  virtual void clearInterrupted(Thread* t)
  {
    vm::clearInterrupted(t);
  }

  virtual void runThread(Thread* t)
  {
    // force monitor creation so we don't get an OutOfMemory error
    // later when we try to acquire it:
    objectMonitor(t, t->javaThread, true);

    THREAD_RESOURCE0(t, {
      vm::acquire(t, t->javaThread);
      t->clearFlag(Thread::ActiveFlag);
      vm::notifyAll(t, t->javaThread);
      vm::release(t, t->javaThread);

      GcThrowable* e = t->exception;
      PROTECT(t, e);

      t->exception = 0;

      t->m->processor->invoke(t,
                              cast<GcMethod>(t, roots(t)->threadTerminated()),
                              t->javaThread->group(),
                              t->javaThread);

      t->exception = e;
    });

    GcMethod* method = resolveMethod(
        t, roots(t)->bootLoader(), "java/lang/Thread", "run", "()V");

    t->m->processor->invoke(t, method, t->javaThread);
  }

  virtual void resolveNative(Thread* t, GcMethod* method)
  {
    if (strcmp(reinterpret_cast<const int8_t*>("sun/font/SunFontManager"),
               method->class_()->name()->body().begin()) == 0
        and strcmp(reinterpret_cast<const int8_t*>("initIDs"),
                   method->name()->body().begin()) == 0
        and strcmp(reinterpret_cast<const int8_t*>("()V"),
                   method->spec()->body().begin()) == 0) {
      PROTECT(t, method);

      expect(t, loadLibrary(t, libraryPath, "fontmanager", true, true));
    }

    vm::resolveNative(t, method);
  }

  virtual void interceptMethods(Thread* t UNUSED)
  {
#ifdef AVIAN_OPENJDK_SRC
    interceptFileOperations(t, false);
#endif
  }

  virtual void preBoot(Thread*)
  {
    // ignore
  }

  virtual bool mayInitClasses()
  {
    return true;
  }

  virtual void boot(Thread* t)
  {
    globalMachine = t->m;

    resolveSystemClass(
        t, roots(t)->bootLoader(), type(t, GcClassLoader::Type)->name());

    GcMethod* method = resolveMethod(t,
                                     roots(t)->bootLoader(),
                                     "java/lang/ThreadGroup",
                                     "threadTerminated",
                                     "(Ljava/lang/Thread;)V");
    // sequence point, for gc (don't recombine statements)
    roots(t)->setThreadTerminated(t, method);

#ifdef AVIAN_OPENJDK_SRC
    interceptFileOperations(t, true);
#else   // not AVIAN_OPENJDK_SRC
    expect(t, loadLibrary(t, libraryPath, "verify", true, true));
    expect(t, loadLibrary(t, libraryPath, "java", true, true));
#endif  // not AVIAN_OPENJDK_SRC

    {
      GcField* assertionLock = resolveField(t,
                                            type(t, GcClassLoader::Type),
                                            "assertionLock",
                                            "Ljava/lang/Object;");

      setField(t,
               roots(t)->bootLoader(),
               assertionLock->offset(),
               roots(t)->bootLoader());
    }

    {
      GcClass* class_ = resolveClass(t,
                                     roots(t)->bootLoader(),
                                     "java/util/Properties",
                                     true,
                                     GcNoClassDefFoundError::Type);

      PROTECT(t, class_);

      object instance = makeNew(t, class_);

      PROTECT(t, instance);

      GcMethod* constructor = resolveMethod(t, class_, "<init>", "()V");

      t->m->processor->invoke(t, constructor, instance);

      t->m->processor->invoke(t,
                              roots(t)->bootLoader(),
                              "java/lang/System",
                              "setProperties",
                              "(Ljava/util/Properties;)V",
                              0,
                              instance);
    }

    {
      GcMethod* constructor = resolveMethod(t,
                                            type(t, GcClassLoader::Type),
                                            "<init>",
                                            "(Ljava/lang/ClassLoader;)V");

      PROTECT(t, constructor);

      t->m->processor->invoke(t, constructor, roots(t)->bootLoader(), 0);

      t->m->processor->invoke(
          t, constructor, roots(t)->appLoader(), roots(t)->bootLoader());
    }

    {
      GcField* scl = resolveField(
          t, type(t, GcClassLoader::Type), "scl", "Ljava/lang/ClassLoader;");

      PROTECT(t, scl);

      GcField* sclSet
          = resolveField(t, type(t, GcClassLoader::Type), "sclSet", "Z");

      setField(t,
               type(t, GcClassLoader::Type)->staticTable(),
               scl->offset(),
               roots(t)->appLoader());

      fieldAtOffset<uint8_t>(type(t, GcClassLoader::Type)->staticTable(),
                             sclSet->offset()) = true;
    }

    t->m->processor->invoke(t,
                            roots(t)->bootLoader(),
                            "java/lang/System",
                            "initializeSystemClass",
                            "()V",
                            0);

    t->m->processor->invoke(t,
                            roots(t)->bootLoader(),
                            "sun/misc/Launcher",
                            "getLauncher",
                            "()Lsun/misc/Launcher;",
                            0);

    t->javaThread->setContextClassLoader(t, roots(t)->appLoader());
  }

  virtual const char* bootClasspath()
  {
    return classpath;
  }

  virtual object makeDirectByteBuffer(Thread* t, void* p, jlong capacity)
  {
    GcClass* c
        = resolveClass(t, roots(t)->bootLoader(), "java/nio/DirectByteBuffer");
    PROTECT(t, c);

    object instance = makeNew(t, c);
    PROTECT(t, instance);

    GcMethod* constructor = resolveMethod(t, c, "<init>", "(JI)V");

    t->m->processor->invoke(t,
                            constructor,
                            instance,
                            reinterpret_cast<int64_t>(p),
                            static_cast<int32_t>(capacity));

    return instance;
  }

  virtual void* getDirectBufferAddress(Thread* t, object b)
  {
    PROTECT(t, b);

    GcField* field = resolveField(t, objectClass(t, b), "address", "J");

    return reinterpret_cast<void*>(fieldAtOffset<int64_t>(b, field->offset()));
  }

  virtual int64_t getDirectBufferCapacity(Thread* t, object b)
  {
    PROTECT(t, b);

    GcField* field = resolveField(t, objectClass(t, b), "capacity", "I");

    return fieldAtOffset<int32_t>(b, field->offset());
  }

  virtual bool canTailCall(Thread* t UNUSED,
                           GcMethod*,
                           GcByteArray* calleeClassName,
                           GcByteArray* calleeMethodName,
                           GcByteArray*)
  {
    // we can't tail call System.loadLibrary or Runtime.loadLibrary
    // due to their use of System.getCallerClass, which gets confused
    // if we elide stack frames.

    return (strcmp("loadLibrary",
                   reinterpret_cast<char*>(calleeMethodName->body().begin()))
            or (strcmp("java/lang/System",
                       reinterpret_cast<char*>(calleeClassName->body().begin()))
                and strcmp("java/lang/Runtime",
                           reinterpret_cast<char*>(
                               calleeClassName->body().begin()))))

           // and we can't tail call Reflection.getCallerClass because the
           // number of stack frames will be wrong
           and (strcmp(
                    "getCallerClass",
                    reinterpret_cast<char*>(calleeMethodName->body().begin()))
                or strcmp("sun/reflect/Reflection",
                          reinterpret_cast<char*>(
                              calleeClassName->body().begin())));
  }

  virtual GcClassLoader* libraryClassLoader(Thread* t, GcMethod* caller)
  {
#ifdef AVIAN_OPENJDK_SRC
    return (caller->class_() == type(t, GcClassLoader::Type)
            and t->libraryLoadStack)
               ? t->libraryLoadStack->classLoader
#else
    return strcmp("java/lang/ClassLoader$NativeLibrary",
                  reinterpret_cast<char*>(
                      caller->class_()->name()->body().begin())) == 0
               ? cast<GcClass>(
                     t,
                     cast<GcJclass>(t,
                                    t->m->processor->invoke(
                                        t,
                                        resolveMethod(t,
                                                      caller->class_(),
                                                      "getFromClass",
                                                      "()Ljava/lang/Class;"),
                                        0))->vmClass())->loader()
#endif
               : caller->class_()->loader();
  }

  virtual void shutDown(Thread* t)
  {
    GcClass* c
        = resolveClass(t, roots(t)->bootLoader(), "java/lang/Shutdown", false);

    if (c) {
      GcMethod* m = findMethodOrNull(t, c, "shutdown", "()V");

      if (m) {
        t->m->processor->invoke(t, m, 0);
      }
    }
  }

  virtual void dispose()
  {
    allocator->free(buffer, bufferSize);
    allocator->free(this, sizeof(*this));
  }

  Allocator* allocator;
  const char* javaHome;
  const char* classpath;
  const char* libraryPath;
  const char* tzMappings;
  const char* embedPrefix;
  char* buffer;
  unsigned bufferSize;
  unsigned tzMappingsLength;
  unsigned embedPrefixLength;
  unsigned filePathField;
  unsigned fileDescriptorFdField;
  unsigned fileInputStreamFdField;
  unsigned zipFileJzfileField;
  unsigned zipEntryNameField;
  unsigned zipEntryTimeField;
  unsigned zipEntryCrcField;
  unsigned zipEntrySizeField;
  unsigned zipEntryCsizeField;
  unsigned zipEntryMethodField;
  bool ranNetOnLoad;
  bool ranManagementOnLoad;
  JmmInterface jmmInterface;
};

struct JVM_ExceptionTableEntryType {
  jint start_pc;
  jint end_pc;
  jint handler_pc;
  jint catchType;
};

struct jvm_version_info {
  unsigned jvm_version;
  unsigned update_version : 8;
  unsigned special_update_version : 8;
  unsigned reserved1 : 16;
  unsigned reserved2;
  unsigned is_attach_supported : 1;
  unsigned is_kernel_jvm : 1;
  unsigned : 30;
  unsigned : 32;
  unsigned : 32;
};

bool pathEqual(const char* a, const char* b, unsigned length)
{
#ifdef PLATFORM_WINDOWS
  return strncasecmp(a, b, length) == 0;
#else
  return strncmp(a, b, length) == 0;
#endif
}

class EmbeddedFile {
 public:
  EmbeddedFile(MyClasspath* cp, const char* path, unsigned pathLength)
  {
    if (pathEqual(cp->embedPrefix, path, cp->embedPrefixLength)) {
      const char* p = path + cp->embedPrefixLength;
      while (*p == '/')
        ++p;

      this->jar = p;

      if (*p == 0) {
        this->jarLength = 0;
        this->path = 0;
        this->pathLength = 0;
        return;
      }

      while (*p and *p != '/')
        ++p;

      this->jarLength = p - this->jar;

      while (*p == '/')
        ++p;

      this->path = p;
      this->pathLength = pathLength - (p - path);
    } else {
      this->jar = 0;
      this->jarLength = 0;
      this->path = 0;
      this->pathLength = 0;
    }
  }

  const char* jar;
  const char* path;
  unsigned jarLength;
  unsigned pathLength;
};

#ifdef AVIAN_OPENJDK_SRC
int64_t JNICALL
    getFileAttributes(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  const unsigned Exists = 1;
  const unsigned Regular = 2;
  const unsigned Directory = 4;

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  object file = reinterpret_cast<object>(arguments[1]);
  GcString* path
      = cast<GcString>(t, fieldAtOffset<object>(file, cp->filePathField));

  THREAD_RUNTIME_ARRAY(t, char, p, path->length(t) + 1);
  stringChars(t, path, RUNTIME_ARRAY_BODY(p));
  replace('\\', '/', RUNTIME_ARRAY_BODY(p));

  EmbeddedFile ef(cp, RUNTIME_ARRAY_BODY(p), path->length(t));
  if (ef.jar) {
    if (ef.jarLength == 0) {
      return Exists | Directory;
    }

    Finder* finder = getFinder(t, ef.jar, ef.jarLength);
    if (finder) {
      if (ef.pathLength == 0) {
        return Exists | Directory;
      }

      unsigned length;
      System::FileType type = finder->stat(ef.path, &length, true);
      switch (type) {
      case System::TypeUnknown:
        return Exists;
      case System::TypeDoesNotExist:
        return 0;
      case System::TypeFile:
        return Exists | Regular;
      case System::TypeDirectory:
        return Exists | Directory;
      default:
        abort(t);
      }
    } else {
      return 0;
    }
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           reinterpret_cast<object>(arguments[0]),
                           file))->value();
  }
}

int64_t JNICALL
    checkFileAccess(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  const unsigned Read = 4;

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  object file = reinterpret_cast<object>(arguments[1]);
  unsigned mask = arguments[2];
  GcString* path
      = cast<GcString>(t, fieldAtOffset<object>(file, cp->filePathField));

  THREAD_RUNTIME_ARRAY(t, char, p, path->length(t) + 1);
  stringChars(t, path, RUNTIME_ARRAY_BODY(p));
  replace('\\', '/', RUNTIME_ARRAY_BODY(p));

  EmbeddedFile ef(cp, RUNTIME_ARRAY_BODY(p), path->length(t));
  if (ef.jar) {
    if (ef.jarLength == 0) {
      return mask == Read;
    }

    Finder* finder = getFinder(t, ef.jar, ef.jarLength);
    if (finder) {
      if (ef.pathLength == 0) {
        return mask == Read;
      }

      unsigned length;
      System::FileType type = finder->stat(ef.path, &length, true);
      switch (type) {
      case System::TypeDoesNotExist:
        return false;
      case System::TypeUnknown:
      case System::TypeFile:
      case System::TypeDirectory:
        return mask == Read;
      default:
        abort(t);
      }
    } else {
      return 0;
    }
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           reinterpret_cast<object>(arguments[0]),
                           file,
                           mask))->value() != 0;
  }
}

int64_t JNICALL getFileLength(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  object file = reinterpret_cast<object>(arguments[1]);
  GcString* path
      = cast<GcString>(t, fieldAtOffset<object>(file, cp->filePathField));

  THREAD_RUNTIME_ARRAY(t, char, p, path->length(t) + 1);
  stringChars(t, path, RUNTIME_ARRAY_BODY(p));
  replace('\\', '/', RUNTIME_ARRAY_BODY(p));

  EmbeddedFile ef(cp, RUNTIME_ARRAY_BODY(p), path->length(t));
  if (ef.jar) {
    if (ef.jarLength == 0) {
      return 0;
    }

    Finder* finder = getFinder(t, ef.jar, ef.jarLength);
    if (finder) {
      if (ef.pathLength == 0) {
        return 0;
      }

      unsigned fileLength;
      finder->stat(ef.path, &fileLength);
      return fileLength;
    }

    return 0;
  } else {
    return cast<GcLong>(t,
                        t->m->processor->invoke(
                            t,
                            cast<GcMethod>(t,
                                           cast<GcNativeIntercept>(
                                               t,
                                               getMethodRuntimeData(t, method)
                                                   ->native())->original()),
                            reinterpret_cast<object>(arguments[0]),
                            file))->value();
  }
}

void JNICALL openFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);
  GcString* path = cast<GcString>(t, reinterpret_cast<object>(arguments[1]));

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  THREAD_RUNTIME_ARRAY(t, char, p, path->length(t) + 1);
  stringChars(t, path, RUNTIME_ARRAY_BODY(p));
  replace('\\', '/', RUNTIME_ARRAY_BODY(p));

  EmbeddedFile ef(cp, RUNTIME_ARRAY_BODY(p), path->length(t));
  if (ef.jar) {
    if (ef.jarLength == 0 or ef.pathLength == 0) {
      throwNew(t, GcFileNotFoundException::Type);
    }

    Finder* finder = getFinder(t, ef.jar, ef.jarLength);
    if (finder == 0) {
      throwNew(t, GcFileNotFoundException::Type);
    }

    System::Region* r = finder->find(ef.path);
    if (r == 0) {
      throwNew(t, GcFileNotFoundException::Type);
    }

    PROTECT(t, this_);

    ACQUIRE(t, t->m->referenceLock);

    int index = -1;
    unsigned oldLength
        = roots(t)->virtualFiles() ? roots(t)->virtualFiles()->length() : 0;

    for (unsigned i = 0; i < oldLength; ++i) {
      if (roots(t)->virtualFiles()->body()[i] == 0) {
        index = i;
        break;
      }
    }

    if (index == -1) {
      GcArray* newArray = growArray(t, roots(t)->virtualFiles());
      roots(t)->setVirtualFiles(t, newArray);
      index = oldLength;
    }

    object region = makeRegion(t, r, 0);
    roots(t)->virtualFiles()->setBodyElement(t, index, region);

    fieldAtOffset<int32_t>(
        fieldAtOffset<object>(this_, cp->fileInputStreamFdField),
        cp->fileDescriptorFdField) = index + VirtualFileBase;
  } else {
    t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        this_,
        path);
  }
}

int64_t JNICALL
    readByteFromFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  int fd = fieldAtOffset<int32_t>(
      fieldAtOffset<object>(this_, cp->fileInputStreamFdField),
      cp->fileDescriptorFdField);

  if (fd >= VirtualFileBase) {
    ACQUIRE(t, t->m->referenceLock);

    GcRegion* region = cast<GcRegion>(
        t, roots(t)->virtualFiles()->body()[fd - VirtualFileBase]);

    if (region) {
      System::Region* r = static_cast<System::Region*>(region->region());

      if (r->length() > region->position()) {
        return r->start()[region->position()++];
      } else {
        return -1;
      }
    } else {
      throwNew(t, GcIoException::Type);
    }
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           this_))->value();
  }
}

int64_t JNICALL
    readBytesFromFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);
  GcByteArray* dst
      = cast<GcByteArray>(t, reinterpret_cast<object>(arguments[1]));
  int32_t offset = arguments[2];
  int32_t length = arguments[3];

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  int fd = fieldAtOffset<int32_t>(
      fieldAtOffset<object>(this_, cp->fileInputStreamFdField),
      cp->fileDescriptorFdField);

  if (fd >= VirtualFileBase) {
    PROTECT(t, dst);

    ACQUIRE(t, t->m->referenceLock);

    GcRegion* region = cast<GcRegion>(
        t, roots(t)->virtualFiles()->body()[fd - VirtualFileBase]);

    if (region) {
      System::Region* r = static_cast<System::Region*>(region->region());

      int available = r->length() - region->position();
      if (available == 0) {
        return -1;
      }

      if (length > available) {
        length = available;
      }

      memcpy(&dst->body()[offset], r->start() + region->position(), length);

      region->position() += length;

      return length;
    } else {
      throwNew(t, GcIoException::Type);
    }
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           this_,
                           dst,
                           offset,
                           length))->value();
  }
}

int64_t JNICALL
    skipBytesInFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);
  int64_t count;
  memcpy(&count, arguments + 1, 8);

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  int fd = fieldAtOffset<int32_t>(
      fieldAtOffset<object>(this_, cp->fileInputStreamFdField),
      cp->fileDescriptorFdField);

  if (fd >= VirtualFileBase) {
    ACQUIRE(t, t->m->referenceLock);

    GcRegion* region = cast<GcRegion>(
        t, roots(t)->virtualFiles()->body()[fd - VirtualFileBase]);

    if (region) {
      System::Region* r = static_cast<System::Region*>(region->region());

      int available = r->length() - region->position();
      if (count > available) {
        count = available;
      }

      region->position() += count;

      return count;
    } else {
      throwNew(t, GcIoException::Type);
    }
  } else {
    return cast<GcLong>(t,
                        t->m->processor->invoke(
                            t,
                            cast<GcMethod>(t,
                                           cast<GcNativeIntercept>(
                                               t,
                                               getMethodRuntimeData(t, method)
                                                   ->native())->original()),
                            this_,
                            count))->value();
  }
}

int64_t JNICALL
    availableBytesInFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  int fd = fieldAtOffset<int32_t>(
      fieldAtOffset<object>(this_, cp->fileInputStreamFdField),
      cp->fileDescriptorFdField);

  if (fd >= VirtualFileBase) {
    ACQUIRE(t, t->m->referenceLock);

    GcRegion* region = cast<GcRegion>(
        t, roots(t)->virtualFiles()->body()[fd - VirtualFileBase]);

    if (region) {
      return static_cast<System::Region*>(region->region())->length()
             - region->position();
    } else {
      throwNew(t, GcIoException::Type);
    }
  } else {
    object r = t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        this_);

    return r ? cast<GcInt>(t, r)->value() : 0;
  }
}

void JNICALL closeFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  int fd = fieldAtOffset<int32_t>(
      fieldAtOffset<object>(this_, cp->fileInputStreamFdField),
      cp->fileDescriptorFdField);

  if (fd >= VirtualFileBase) {
    ACQUIRE(t, t->m->referenceLock);

    int index = fd - VirtualFileBase;
    GcRegion* region
        = cast<GcRegion>(t, roots(t)->virtualFiles()->body()[index]);

    if (region) {
      static_cast<System::Region*>(region->region())->dispose();
    }

    roots(t)->virtualFiles()->setBodyElement(t, index, 0);
  } else {
    t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        this_);
  }
}

class ZipFile {
 public:
  class Entry {
   public:
    Entry(unsigned hash, const uint8_t* start, Entry* next)
        : hash(hash), start(start), next(next), entry(0)
    {
    }

    Entry(int64_t entry) : hash(0), start(0), next(0), entry(entry)
    {
    }

    Entry() : hash(0), start(0), next(0), entry(0)
    {
    }

    unsigned hash;
    const uint8_t* start;
    Entry* next;
    int64_t entry;
  };

  ZipFile(Thread* t, System::Region* region, unsigned entryCount)
      : region(region),
        entryCount(entryCount),
        indexSize(nextPowerOfTwo(entryCount)),
        index(reinterpret_cast<ZipFile::Entry**>(
            t->m->heap->allocate(sizeof(ZipFile::Entry*) * indexSize))),
        file(0)
  {
    memset(index, 0, sizeof(ZipFile::Entry*) * indexSize);
  }

  ZipFile(int64_t file)
      : region(0), entryCount(0), indexSize(0), index(0), file(file)
  {
  }

  System::Region* region;
  unsigned entryCount;
  unsigned indexSize;
  Entry** index;
  int64_t file;
  Entry entries[0];
};

int64_t JNICALL openZipFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  GcString* path = cast<GcString>(t, reinterpret_cast<object>(arguments[0]));
  int mode = arguments[1];
  int64_t lastModified;
  memcpy(&lastModified, arguments + 2, 8);

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  THREAD_RUNTIME_ARRAY(t, char, p, path->length(t) + 1);
  stringChars(t, path, RUNTIME_ARRAY_BODY(p));
  replace('\\', '/', RUNTIME_ARRAY_BODY(p));

  EmbeddedFile ef(cp, RUNTIME_ARRAY_BODY(p), path->length(t));
  if (ef.jar) {
    if (ef.jarLength == 0 or ef.pathLength == 0) {
      throwNew(t, GcFileNotFoundException::Type);
    }

    Finder* finder = getFinder(t, ef.jar, ef.jarLength);
    if (finder == 0) {
      throwNew(t, GcFileNotFoundException::Type);
    }

    System::Region* r = finder->find(ef.path);
    if (r == 0) {
      throwNew(t, GcFileNotFoundException::Type);
    }

    const uint8_t* start = r->start();
    const uint8_t* end = start + r->length();
    unsigned entryCount = 0;
    for (const uint8_t* p = end - CentralDirectorySearchStart; p > start;) {
      if (get4(p) == CentralDirectorySignature) {
        p = start + centralDirectoryOffset(p);

        while (p < end) {
          if (get4(p) == EntrySignature) {
            ++entryCount;

            p = endOfEntry(p);
          } else {
            goto make;
          }
        }
      } else {
        --p;
      }
    }

  make:
    ZipFile* file = new (t->m->heap->allocate(
        sizeof(ZipFile) + (sizeof(ZipFile::Entry) * entryCount)))
        ZipFile(t, r, entryCount);

    {
      unsigned position = 0;
      for (const uint8_t* p = end - CentralDirectorySearchStart; p > start;) {
        if (get4(p) == CentralDirectorySignature) {
          p = start + centralDirectoryOffset(p);

          while (p < end) {
            if (get4(p) == EntrySignature) {
              unsigned h
                  = hash(Slice<const uint8_t>(fileName(p), fileNameLength(p)));
              unsigned i = h & (file->indexSize - 1);

              file->index[i] = new (file->entries + (position++))
                  ZipFile::Entry(h, p, file->index[i]);

              p = endOfEntry(p);
            } else {
              goto exit;
            }
          }
        } else {
          --p;
        }
      }
    }

  exit:
    return reinterpret_cast<int64_t>(file);
  } else {
    return reinterpret_cast<int64_t>(
        new (t->m->heap->allocate(sizeof(ZipFile))) ZipFile(
            cast<GcLong>(t,
                         t->m->processor->invoke(
                             t,
                             cast<GcMethod>(t,
                                            cast<GcNativeIntercept>(
                                                t,
                                                getMethodRuntimeData(t, method)
                                                    ->native())->original()),
                             0,
                             path,
                             mode,
                             lastModified))->value()));
  }
}

int64_t JNICALL
    getZipFileEntryCount(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);

  ZipFile* file = reinterpret_cast<ZipFile*>(peer);
  if (file->region) {
    return file->entryCount;
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           0,
                           file->file))->value();
  }
}

ZipFile::Entry* find(ZipFile* file, const char* path, unsigned pathLength)
{
  if (pathLength > 0 && path[0] == '/') {
    ++path;
    --pathLength;
  }
  unsigned i = hash(path) & (file->indexSize - 1);
  for (ZipFile::Entry* e = file->index[i]; e; e = e->next) {
    const uint8_t* p = e->start;
    if (equal(path, pathLength, fileName(p), fileNameLength(p))) {
      return e;
    }
  }
  return 0;
}

int64_t JNICALL
    getZipFileEntry(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);
  GcByteArray* path
      = cast<GcByteArray>(t, reinterpret_cast<object>(arguments[2]));
  bool addSlash = arguments[3];

  ZipFile* file = reinterpret_cast<ZipFile*>(peer);
  if (file->region) {
    THREAD_RUNTIME_ARRAY(t, char, p, path->length() + 2);
    memcpy(RUNTIME_ARRAY_BODY(p), path->body().begin(), path->length());
    RUNTIME_ARRAY_BODY(p)[path->length()] = 0;
    replace('\\', '/', RUNTIME_ARRAY_BODY(p));

    ZipFile::Entry *e = find(file, RUNTIME_ARRAY_BODY(p), path->length());

    if (e == 0 and addSlash and RUNTIME_ARRAY_BODY(p)[path->length()] != '/') {
      RUNTIME_ARRAY_BODY(p)[path->length()] = '/';
      RUNTIME_ARRAY_BODY(p)[path->length() + 1] = 0;

      e = find(file, RUNTIME_ARRAY_BODY(p), path->length());
    }

    return reinterpret_cast<int64_t>(e);
  } else {
    int64_t entry
        = cast<GcLong>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           0,
                           file->file,
                           path,
                           addSlash))->value();

    return entry ? reinterpret_cast<int64_t>(new (t->m->heap->allocate(
                       sizeof(ZipFile::Entry))) ZipFile::Entry(entry))
                 : 0;
  }
}

int64_t JNICALL
    getZipFileEntryBytes(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);
  int type = arguments[2];

  ZipFile::Entry* entry = reinterpret_cast<ZipFile::Entry*>(peer);
  if (entry->start) {
    switch (type) {
    case 0: {  // name
      unsigned nameLength = fileNameLength(entry->start);
      GcByteArray* array = makeByteArray(t, nameLength + 1);
      memcpy(array->body().begin(), fileName(entry->start), nameLength);
      array->body()[nameLength] = 0;
      return reinterpret_cast<int64_t>(array);
    } break;

    case 1: {  // extra
      return 0;
    } break;

    case 2: {  // comment
      return 0;
    } break;

    default:
      abort(t);
    }
    return compressedSize(entry->start);
  } else {
    return reinterpret_cast<int64_t>(t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        0,
        entry->entry,
        type));
  }
}

int64_t JNICALL
    getNextZipFileEntry(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);
  int index = arguments[2];

  ZipFile* file = reinterpret_cast<ZipFile*>(peer);
  if (file->region) {
    return reinterpret_cast<int64_t>(file->entries + index);
  } else {
    int64_t entry
        = cast<GcLong>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           0,
                           file->file,
                           index))->value();

    return entry ? reinterpret_cast<int64_t>(new (t->m->heap->allocate(
                       sizeof(ZipFile::Entry))) ZipFile::Entry(entry))
                 : 0;
  }
}

int64_t JNICALL
    getZipFileEntryMethod(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);

  ZipFile::Entry* entry = reinterpret_cast<ZipFile::Entry*>(peer);
  if (entry->start) {
    return compressionMethod(entry->start);
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           0,
                           entry->entry))->value();
  }
}

int64_t JNICALL getZipFileEntryCompressedSize(Thread* t,
                                              GcMethod* method,
                                              uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);

  ZipFile::Entry* entry = reinterpret_cast<ZipFile::Entry*>(peer);
  if (entry->start) {
    return compressedSize(entry->start);
  } else {
    return cast<GcLong>(t,
                        t->m->processor->invoke(
                            t,
                            cast<GcMethod>(t,
                                           cast<GcNativeIntercept>(
                                               t,
                                               getMethodRuntimeData(t, method)
                                                   ->native())->original()),
                            0,
                            entry->entry))->value();
  }
}

int64_t JNICALL getZipFileEntryUncompressedSize(Thread* t,
                                                GcMethod* method,
                                                uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);

  ZipFile::Entry* entry = reinterpret_cast<ZipFile::Entry*>(peer);
  if (entry->start) {
    return uncompressedSize(entry->start);
  } else {
    return cast<GcLong>(t,
                        t->m->processor->invoke(
                            t,
                            cast<GcMethod>(t,
                                           cast<GcNativeIntercept>(
                                               t,
                                               getMethodRuntimeData(t, method)
                                                   ->native())->original()),
                            0,
                            entry->entry))->value();
  }
}

void JNICALL freeZipFileEntry(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t filePeer;
  memcpy(&filePeer, arguments, 8);
  int64_t entryPeer;
  memcpy(&entryPeer, arguments + 2, 8);

  ZipFile* file = reinterpret_cast<ZipFile*>(filePeer);
  ZipFile::Entry* entry = reinterpret_cast<ZipFile::Entry*>(entryPeer);
  if (file->region == 0) {
    t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        0,
        file->file,
        entry->entry);

    t->m->heap->free(entry, sizeof(ZipFile::Entry));
  }
}

int64_t JNICALL
    readZipFileEntry(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t filePeer;
  memcpy(&filePeer, arguments, 8);
  int64_t entryPeer;
  memcpy(&entryPeer, arguments + 2, 8);
  int64_t position;
  memcpy(&position, arguments + 4, 8);
  GcByteArray* buffer
      = cast<GcByteArray>(t, reinterpret_cast<object>(arguments[6]));
  int offset = arguments[7];
  int length = arguments[8];

  ZipFile* file = reinterpret_cast<ZipFile*>(filePeer);
  ZipFile::Entry* entry = reinterpret_cast<ZipFile::Entry*>(entryPeer);
  if (file->region) {
    unsigned size = uncompressedSize(entry->start);
    if (position >= size) {
      return -1;
    }

    if (position + length > size) {
      length = size - position;
    }

    memcpy(&buffer->body()[offset],
           fileData(file->region->start() + localHeaderOffset(entry->start))
           + position,
           length);

    return length;
  } else {
    return cast<GcInt>(t,
                       t->m->processor->invoke(
                           t,
                           cast<GcMethod>(
                               t,
                               cast<GcNativeIntercept>(
                                   t, getMethodRuntimeData(t, method)->native())
                                   ->original()),
                           0,
                           file->file,
                           entry->entry,
                           position,
                           buffer,
                           offset,
                           length))->value();
  }
}

int64_t JNICALL getZipMessage(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);

  ZipFile* file = reinterpret_cast<ZipFile*>(peer);
  if (file->region) {
    return 0;
  } else {
    return reinterpret_cast<int64_t>(t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        0,
        file->file));
  }
}

int64_t JNICALL getJarFileMetaInfEntryNames(Thread* t,
                                            GcMethod* method,
                                            uintptr_t* arguments)
{
  object this_ = reinterpret_cast<object>(arguments[0]);

  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  int64_t peer = fieldAtOffset<int64_t>(this_, cp->zipFileJzfileField);
  ZipFile* file = reinterpret_cast<ZipFile*>(peer);
  if (file->region) {
    return 0;
  } else {
    PROTECT(t, method);

    // OpenJDK's Java_java_util_jar_JarFile_getMetaInfEntryNames
    // implementation expects to find a pointer to an instance of its
    // jzfile structure in the ZipFile.jzfile field of the object we
    // pass in.  However, we can't pass this_ in, because its
    // ZipFile.jzfile field points to a ZipFile instance, not a
    // jzfile.  So we pass in a temporary object instead which has the
    // desired pointer at the same offset.  We assume here that
    // ZipFile.jzfile is the first field in that class and that
    // Java_java_util_jar_JarFile_getMetaInfEntryNames will not look
    // for any other fields in the object.
    object pseudoThis = makeLong(t, file->file);

    return reinterpret_cast<int64_t>(t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        pseudoThis));
  }
}

void JNICALL closeZipFile(Thread* t, GcMethod* method, uintptr_t* arguments)
{
  int64_t peer;
  memcpy(&peer, arguments, 8);

  ZipFile* file = reinterpret_cast<ZipFile*>(peer);
  if (file->region) {
    file->region->dispose();
    t->m->heap->free(
        file, sizeof(ZipFile) + (sizeof(ZipFile::Entry) * file->entryCount));
  } else {
    t->m->processor->invoke(
        t,
        cast<GcMethod>(
            t,
            cast<GcNativeIntercept>(
                t, getMethodRuntimeData(t, method)->native())->original()),
        0,
        file->file);

    t->m->heap->free(file, sizeof(ZipFile));
  }
}

int64_t JNICALL getBootstrapResource(Thread* t, object, uintptr_t* arguments)
{
  object name = reinterpret_cast<object>(arguments[0]);
  PROTECT(t, name);

  GcMethod* m = findMethodOrNull(t,
                                 type(t, GcSystemClassLoader::Type),
                                 "findResource",
                                 "(Ljava/lang/String;)Ljava/net/URL;");

  if (m) {
    return reinterpret_cast<int64_t>(
        t->m->processor->invoke(t, m, roots(t)->bootLoader(), name));
  } else {
    return 0;
  }
}

int64_t JNICALL getBootstrapResources(Thread* t, object, uintptr_t* arguments)
{
  object name = reinterpret_cast<object>(arguments[0]);
  PROTECT(t, name);

  GcMethod* m = findMethodOrNull(t,
                                 type(t, GcSystemClassLoader::Type),
                                 "findResources",
                                 "(Ljava/lang/String;)Ljava/util/Enumeration;");

  if (m) {
    return reinterpret_cast<int64_t>(
        t->m->processor->invoke(t, m, roots(t)->bootLoader(), name));
  } else {
    return 0;
  }
}

extern "C" AVIAN_EXPORT jint JNICALL net_JNI_OnLoad(JavaVM*, void*);

extern "C" AVIAN_EXPORT jint JNICALL management_JNI_OnLoad(JavaVM*, void*);

void JNICALL loadLibrary(Thread* t, object, uintptr_t* arguments)
{
  Thread::LibraryLoadStack stack(
      t,
      cast<GcJclass>(t, reinterpret_cast<object>(arguments[0]))
          ->vmClass()
          ->loader());

  GcString* name = cast<GcString>(t, reinterpret_cast<object>(arguments[1]));
  THREAD_RUNTIME_ARRAY(t, char, n, name->length(t) + 1);
  stringChars(t, name, RUNTIME_ARRAY_BODY(n));

  bool absolute = arguments[2];

  if (not absolute) {
    if (strcmp(RUNTIME_ARRAY_BODY(n), "net") == 0) {
      bool ran;

      {
        ACQUIRE(t, t->m->classLock);

        local::MyClasspath* c
            = static_cast<local::MyClasspath*>(t->m->classpath);

        ran = c->ranNetOnLoad;
        c->ranNetOnLoad = true;
      }

      if (not ran) {
        net_JNI_OnLoad(t->m, 0);
      }

      return;
    } else if (strcmp(RUNTIME_ARRAY_BODY(n), "management") == 0) {
      bool ran;

      {
        ACQUIRE(t, t->m->classLock);

        local::MyClasspath* c
            = static_cast<local::MyClasspath*>(t->m->classpath);

        ran = c->ranManagementOnLoad;
        c->ranManagementOnLoad = true;
      }

      if (not ran) {
        management_JNI_OnLoad(t->m, 0);
      }

      return;
    } else if (strcmp(RUNTIME_ARRAY_BODY(n), "zip") == 0
               or strcmp(RUNTIME_ARRAY_BODY(n), "nio") == 0) {
      return;
    }
  }

  loadLibrary(t,
              static_cast<local::MyClasspath*>(t->m->classpath)->libraryPath,
              RUNTIME_ARRAY_BODY(n),
              not absolute,
              true);
}

void interceptFileOperations(Thread* t, bool updateRuntimeData)
{
  MyClasspath* cp = static_cast<MyClasspath*>(t->m->classpath);

  {
    GcClass* fileClass
        = resolveClass(t, roots(t)->bootLoader(), "java/io/File", false);

    if (fileClass) {
      GcField* filePathField
          = findFieldInClass2(t, fileClass, "path", "Ljava/lang/String;");

      if (filePathField) {
        cp->filePathField = filePathField->offset();
      }
    }
  }

  {
    GcClass* fileDescriptorClass = resolveClass(
        t, roots(t)->bootLoader(), "java/io/FileDescriptor", false);

    if (fileDescriptorClass) {
      GcField* fileDescriptorFdField
          = findFieldInClass2(t, fileDescriptorClass, "fd", "I");

      if (fileDescriptorFdField) {
        cp->fileDescriptorFdField = fileDescriptorFdField->offset();
      }
    }
  }

  {
    GcClass* fileInputStreamClass = resolveClass(
        t, roots(t)->bootLoader(), "java/io/FileInputStream", false);

    if (fileInputStreamClass) {
      PROTECT(t, fileInputStreamClass);

      GcField* fileInputStreamFdField = findFieldInClass2(
          t, fileInputStreamClass, "fd", "Ljava/io/FileDescriptor;");

      if (fileInputStreamFdField) {
        cp->fileInputStreamFdField = fileInputStreamFdField->offset();

        intercept(t,
                  fileInputStreamClass,
                  "open",
                  "(Ljava/lang/String;)V",
                  voidPointer(openFile),
                  updateRuntimeData);

        if (findMethodOrNull(t, fileInputStreamClass, "read0", "()I") != 0) {
          intercept(t,
                    fileInputStreamClass,
                    "read0",
                    "()I",
                    voidPointer(readByteFromFile),
                    updateRuntimeData);
        } else {
          intercept(t,
                    fileInputStreamClass,
                    "read",
                    "()I",
                    voidPointer(readByteFromFile),
                    updateRuntimeData);
        }

        intercept(t,
                  fileInputStreamClass,
                  "readBytes",
                  "([BII)I",
                  voidPointer(readBytesFromFile),
                  updateRuntimeData);

        intercept(t,
                  fileInputStreamClass,
                  "skip",
                  "(J)J",
                  voidPointer(skipBytesInFile),
                  updateRuntimeData);

        intercept(t,
                  fileInputStreamClass,
                  "available",
                  "()I",
                  voidPointer(availableBytesInFile),
                  updateRuntimeData);

        intercept(t,
                  fileInputStreamClass,
                  "close0",
                  "()V",
                  voidPointer(closeFile),
                  updateRuntimeData);
      }
    }
  }

  {
    GcClass* zipFileClass = resolveClass(
        t, roots(t)->bootLoader(), "java/util/zip/ZipFile", false);

    if (zipFileClass) {
      PROTECT(t, zipFileClass);

      GcField* zipFileJzfileField
          = findFieldInClass2(t, zipFileClass, "jzfile", "J");

      if (zipFileJzfileField) {
        cp->zipFileJzfileField = zipFileJzfileField->offset();

        intercept(t,
                  zipFileClass,
                  "open",
                  "(Ljava/lang/String;IJZ)J",
                  voidPointer(openZipFile),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getTotal",
                  "(J)I",
                  voidPointer(getZipFileEntryCount),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getEntry",
                  "(J[BZ)J",
                  voidPointer(getZipFileEntry),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getEntryBytes",
                  "(JI)[B",
                  voidPointer(getZipFileEntryBytes),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getNextEntry",
                  "(JI)J",
                  voidPointer(getNextZipFileEntry),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getEntryMethod",
                  "(J)I",
                  voidPointer(getZipFileEntryMethod),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "freeEntry",
                  "(JJ)V",
                  voidPointer(freeZipFileEntry),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "read",
                  "(JJJ[BII)I",
                  voidPointer(readZipFileEntry),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getEntryCSize",
                  "(J)J",
                  voidPointer(getZipFileEntryCompressedSize),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getEntrySize",
                  "(J)J",
                  voidPointer(getZipFileEntryUncompressedSize),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "getZipMessage",
                  "(J)Ljava/lang/String;",
                  voidPointer(getZipMessage),
                  updateRuntimeData);

        intercept(t,
                  zipFileClass,
                  "close",
                  "(J)V",
                  voidPointer(closeZipFile),
                  updateRuntimeData);
      }
    }
  }

  {
    GcClass* jarFileClass = resolveClass(
        t, roots(t)->bootLoader(), "java/util/jar/JarFile", false);

    if (jarFileClass) {
      intercept(t,
                jarFileClass,
                "getMetaInfEntryNames",
                "()[Ljava/lang/String;",
                voidPointer(getJarFileMetaInfEntryNames),
                updateRuntimeData);
    }
  }

  {
#ifdef PLATFORM_WINDOWS
    const char* const fsClassName = "java/io/WinNTFileSystem";
    const char* const gbaMethodName = "getBooleanAttributes";
#else
    const char* const fsClassName = "java/io/UnixFileSystem";
    const char* const gbaMethodName = "getBooleanAttributes0";
#endif

    GcClass* fsClass
        = resolveClass(t, roots(t)->bootLoader(), fsClassName, false);

    if (fsClass) {
      PROTECT(t, fsClass);

      intercept(t,
                fsClass,
                gbaMethodName,
                "(Ljava/io/File;)I",
                voidPointer(getFileAttributes),
                updateRuntimeData);

      intercept(t,
                fsClass,
                "checkAccess",
                "(Ljava/io/File;I)Z",
                voidPointer(checkFileAccess),
                updateRuntimeData);

      intercept(t,
                fsClass,
                "getLength",
                "(Ljava/io/File;)J",
                voidPointer(getFileLength),
                updateRuntimeData);
    }
  }

  intercept(t,
            type(t, GcClassLoader::Type),
            "loadLibrary",
            "(Ljava/lang/Class;Ljava/lang/String;Z)V",
            voidPointer(loadLibrary),
            updateRuntimeData);

  intercept(t,
            type(t, GcClassLoader::Type),
            "getBootstrapResource",
            "(Ljava/lang/String;)Ljava/net/URL;",
            voidPointer(getBootstrapResource),
            updateRuntimeData);

  intercept(t,
            type(t, GcClassLoader::Type),
            "getBootstrapResources",
            "(Ljava/lang/String;)Ljava/util/Enumeration;",
            voidPointer(getBootstrapResources),
            updateRuntimeData);
}
#endif  // AVIAN_OPENJDK_SRC

unsigned classDeclaredMethodCount(Thread* t, GcClass* c)
{
  GcClassAddendum* addendum = c->addendum();
  if (addendum) {
    int count = addendum->declaredMethodCount();
    if (count >= 0) {
      return count;
    }
  }
  GcArray* table = cast<GcArray>(t, c->methodTable());
  return table == 0 ? 0 : table->length();
}

unsigned countMethods(Thread* t, GcClass* c, bool publicOnly)
{
  GcArray* table = cast<GcArray>(t, c->methodTable());
  unsigned count = 0;
  for (unsigned i = 0, j = classDeclaredMethodCount(t, c); i < j; ++i) {
    GcMethod* vmMethod = cast<GcMethod>(t, table->body()[i]);
    if (((not publicOnly) or (vmMethod->flags() & ACC_PUBLIC))
        and vmMethod->name()->body()[0] != '<') {
      ++count;
    }
  }
  return count;
}

unsigned countFields(Thread* t, GcClass* c, bool publicOnly)
{
  GcArray* table = cast<GcArray>(t, c->fieldTable());
  if (publicOnly) {
    unsigned count = 0;
    for (unsigned i = 0; i < table->length(); ++i) {
      GcField* vmField = cast<GcField>(t, table->body()[i]);
      if (vmField->flags() & ACC_PUBLIC) {
        ++count;
      }
    }
    return count;
  } else {
    return objectArrayLength(t, table);
  }
}

unsigned countConstructors(Thread* t, GcClass* c, bool publicOnly)
{
  GcArray* table = cast<GcArray>(t, c->methodTable());
  unsigned count = 0;
  for (unsigned i = 0, j = classDeclaredMethodCount(t, c); i < j; ++i) {
    GcMethod* vmMethod = cast<GcMethod>(t, table->body()[i]);
    if (((not publicOnly) or (vmMethod->flags() & ACC_PUBLIC))
        and strcmp(reinterpret_cast<char*>(vmMethod->name()->body().begin()),
                   "<init>") == 0) {
      ++count;
    }
  }
  return count;
}

#ifdef HAVE_JexecutableHasRealParameterData
object makeJmethod(Thread* t,
                   uint8_t override,
                   object securityCheckCache,
                   object clazz,
                   uint32_t slot,
                   object name,
                   object returnType,
                   object parameterTypes,
                   object exceptionTypes,
                   uint32_t modifiers,
                   object signature,
                   object genericInfo,
                   object annotations,
                   object parameterAnnotations,
                   object annotationDefault,
                   object methodAccessor,
                   object root,
                   object declaredAnnotations)
{
  return makeJmethod(t,
                     override,
                     securityCheckCache,
                     0,
                     0,
                     declaredAnnotations,
                     cast<GcJclass>(t, clazz),
                     slot,
                     cast<GcString>(t, name),
                     cast<GcJclass>(t, returnType),
                     parameterTypes,
                     exceptionTypes,
                     modifiers,
                     cast<GcString>(t, signature),
                     genericInfo,
                     cast<GcByteArray>(t, annotations),
                     cast<GcByteArray>(t, parameterAnnotations),
                     cast<GcByteArray>(t, annotationDefault),
                     methodAccessor,
                     cast<GcJmethod>(t, root));
}

object makeJconstructor(Thread* t,
                        uint8_t override,
                        object securityCheckCache,
                        object clazz,
                        uint32_t slot,
                        object parameterTypes,
                        object exceptionTypes,
                        uint32_t modifiers,
                        object signature,
                        object genericInfo,
                        object annotations,
                        object parameterAnnotations,
                        object constructorAccessor,
                        object root,
                        object declaredAnnotations)
{
  return makeJconstructor(t,
                          override,
                          securityCheckCache,
                          0,
                          0,
                          declaredAnnotations,
                          cast<GcJclass>(t, clazz),
                          slot,
                          parameterTypes,
                          exceptionTypes,
                          modifiers,
                          cast<GcString>(t, signature),
                          genericInfo,
                          cast<GcByteArray>(t, annotations),
                          cast<GcByteArray>(t, parameterAnnotations),
                          constructorAccessor,
                          cast<GcJconstructor>(t, root));
}
#endif  // HAVE_JexecutableHasRealParameterData

object makeJmethod(Thread* t, GcMethod* vmMethod, int index)
{
  PROTECT(t, vmMethod);

  object name
      = intern(t,
               t->m->classpath->makeString(
                   t, vmMethod->name(), 0, vmMethod->name()->length() - 1));
  PROTECT(t, name);

  unsigned parameterCount;
  unsigned returnTypeSpec;
  object parameterTypes = resolveParameterJTypes(t,
                                                 vmMethod->class_()->loader(),
                                                 vmMethod->spec(),
                                                 &parameterCount,
                                                 &returnTypeSpec);
  PROTECT(t, parameterTypes);

  GcJclass* returnType = resolveJType(
      t,
      vmMethod->class_()->loader(),
      reinterpret_cast<char*>(&vmMethod->spec()->body()[returnTypeSpec]),
      vmMethod->spec()->length() - 1 - returnTypeSpec);
  PROTECT(t, returnType);

  object exceptionTypes = resolveExceptionJTypes(
      t, vmMethod->class_()->loader(), vmMethod->addendum());
  PROTECT(t, exceptionTypes);

  object signature;
  object annotationTable;
  object parameterAnnotationTable;
  object annotationDefault;
  GcMethodAddendum* addendum = vmMethod->addendum();
  if (addendum) {
    signature = addendum->signature();
    if (signature) {
      PROTECT(t, addendum);

      signature = t->m->classpath->makeString(
          t, signature, 0, cast<GcByteArray>(t, signature)->length() - 1);
    }

    annotationTable = addendum->annotationTable();

    parameterAnnotationTable = addendum->parameterAnnotationTable();

    annotationDefault = addendum->annotationDefault();
  } else {
    signature = 0;
    annotationTable = 0;
    parameterAnnotationTable = 0;
    annotationDefault = 0;
  }

  PROTECT(t, signature);
  PROTECT(t, annotationTable);
  PROTECT(t, parameterAnnotationTable);
  PROTECT(t, annotationDefault);

  if (annotationTable or parameterAnnotationTable or annotationDefault) {
    GcClassRuntimeData* runtimeData
        = getClassRuntimeData(t, vmMethod->class_());

    runtimeData->setPool(t, vmMethod->addendum()->pool());
  }

  if (index == -1) {
    GcArray* table = cast<GcArray>(t, vmMethod->class_()->methodTable());
    for (unsigned i = 0; i < table->length(); ++i) {
      if (vmMethod == table->body()[i]) {
        index = i;
        break;
      }
    }
  }

  expect(t, index != -1);

  GcJclass* jclass = getJClass(t, vmMethod->class_());

  return makeJmethod(t,
                     true,
                     0,
                     jclass,
                     index,
                     cast<GcString>(t, name),
                     returnType,
                     parameterTypes,
                     exceptionTypes,
                     vmMethod->flags(),
                     cast<GcString>(t, signature),
                     0,
                     cast<GcByteArray>(t, annotationTable),
                     cast<GcByteArray>(t, parameterAnnotationTable),
                     cast<GcByteArray>(t, annotationDefault),
                     0,
                     0,
                     0);
}

object makeJconstructor(Thread* t, GcMethod* vmMethod, int index)
{
  PROTECT(t, vmMethod);

  unsigned parameterCount;
  unsigned returnTypeSpec;
  object parameterTypes = resolveParameterJTypes(t,
                                                 vmMethod->class_()->loader(),
                                                 vmMethod->spec(),
                                                 &parameterCount,
                                                 &returnTypeSpec);
  PROTECT(t, parameterTypes);

  object exceptionTypes = resolveExceptionJTypes(
      t, vmMethod->class_()->loader(), vmMethod->addendum());
  PROTECT(t, exceptionTypes);

  object signature;
  object annotationTable;
  object parameterAnnotationTable;
  GcMethodAddendum* addendum = vmMethod->addendum();
  if (addendum) {
    signature = addendum->signature();
    if (signature) {
      PROTECT(t, addendum);

      signature = t->m->classpath->makeString(
          t, signature, 0, cast<GcByteArray>(t, signature)->length() - 1);
    }

    annotationTable = addendum->annotationTable();
    parameterAnnotationTable = addendum->parameterAnnotationTable();
  } else {
    signature = 0;
    annotationTable = 0;
    parameterAnnotationTable = 0;
  }

  PROTECT(t, signature);
  PROTECT(t, annotationTable);
  PROTECT(t, parameterAnnotationTable);

  if (annotationTable or parameterAnnotationTable) {
    GcClassRuntimeData* runtimeData
        = getClassRuntimeData(t, vmMethod->class_());

    runtimeData->setPool(t, vmMethod->addendum()->pool());
  }

  if (index == -1) {
    GcArray* table = cast<GcArray>(t, vmMethod->class_()->methodTable());
    for (unsigned i = 0; i < table->length(); ++i) {
      if (vmMethod == table->body()[i]) {
        index = i;
        break;
      }
    }
  }

  expect(t, index != -1);

  GcJclass* jclass = getJClass(t, vmMethod->class_());

  return makeJconstructor(t,
                          true,
                          0,
                          jclass,
                          index,
                          parameterTypes,
                          exceptionTypes,
                          vmMethod->flags(),
                          cast<GcString>(t, signature),
                          0,
                          cast<GcByteArray>(t, annotationTable),
                          cast<GcByteArray>(t, parameterAnnotationTable),
                          0,
                          0,
                          0);
}

object makeJfield(Thread* t, GcField* vmField, int index)
{
  PROTECT(t, vmField);

  object name
      = intern(t,
               t->m->classpath->makeString(
                   t, vmField->name(), 0, vmField->name()->length() - 1));
  PROTECT(t, name);

  GcClass* type = resolveClassBySpec(
      t,
      vmField->class_()->loader(),
      reinterpret_cast<char*>(vmField->spec()->body().begin()),
      vmField->spec()->length() - 1);
  PROTECT(t, type);

  GcJclass* jtype = getJClass(t, type);

  object signature;
  object annotationTable;
  GcFieldAddendum* addendum = vmField->addendum();
  if (addendum) {
    signature = addendum->signature();
    if (signature) {
      PROTECT(t, addendum);

      signature = t->m->classpath->makeString(
          t, signature, 0, cast<GcByteArray>(t, signature)->length() - 1);
    }

    annotationTable = addendum->annotationTable();
  } else {
    signature = 0;
    annotationTable = 0;
  }

  PROTECT(t, signature);
  PROTECT(t, annotationTable);

  if (annotationTable) {
    GcClassRuntimeData* runtimeData = getClassRuntimeData(t, vmField->class_());

    runtimeData->setPool(t, vmField->addendum()->pool());
  }

  if (index == -1) {
    GcArray* table = cast<GcArray>(t, vmField->class_()->fieldTable());
    for (unsigned i = 0; i < table->length(); ++i) {
      if (vmField == table->body()[i]) {
        index = i;
        break;
      }
    }
  }

  expect(t, index != -1);

  GcJclass* jclass = getJClass(t, vmField->class_());

  return makeJfield(t,
                    true,
                    0,
                    jclass,
                    index,
                    cast<GcString>(t, name),
                    jtype,
                    vmField->flags(),
                    cast<GcString>(t, signature),
                    0,
                    cast<GcByteArray>(t, annotationTable),
                    0,
                    0,
                    0,
                    0);
}

void setProperty(Thread* t,
                 GcMethod* method,
                 object properties,
                 const char* name,
                 const void* value,
                 const char* format = "%s")
{
  PROTECT(t, method);
  PROTECT(t, properties);

  GcString* n = makeString(t, "%s", name);
  PROTECT(t, n);

  GcString* v = makeString(t, format, value);

  t->m->processor->invoke(t, method, properties, n, v);
}

bool pipeAvailable(int fd, int* available)
{
#ifdef PLATFORM_WINDOWS
  HANDLE h = reinterpret_cast<HANDLE>(_get_osfhandle(fd));
  if (h == INVALID_HANDLE_VALUE) {
    return false;
  }

  DWORD n;
  if (PeekNamedPipe(h, 0, 0, 0, &n, 0)) {
    *available = n;
  } else {
    if (GetLastError() != ERROR_BROKEN_PIPE) {
      return false;
    }
    *available = 0;
  }

  return true;
#else
  return ioctl(fd, FIONREAD, available) >= 0;
#endif
}

}  // namespace local

}  // namespace

namespace vm {

Classpath* makeClasspath(System* s,
                         Allocator* allocator,
                         const char* javaHome,
                         const char* embedPrefix)
{
  return new (allocator->allocate(sizeof(local::MyClasspath)))
      local::MyClasspath(s, allocator, javaHome, embedPrefix);
}

}  // namespace vm

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_java_lang_Class_getSuperclass(Thread* t, object, uintptr_t* arguments)
{
  GcClass* class_
      = cast<GcJclass>(t, reinterpret_cast<object>(arguments[0]))->vmClass();
  if (class_->flags() & ACC_INTERFACE) {
    return 0;
  } else {
    GcClass* super = class_->super();
    return super ? reinterpret_cast<int64_t>(getJClass(t, super)) : 0;
  }
}

extern "C" AVIAN_EXPORT void Avian_sun_misc_Unsafe_registerNatives(Thread*,
                                                                   object,
                                                                   uintptr_t*)
{
  // ignore
}

extern "C" AVIAN_EXPORT void Avian_sun_misc_Perf_registerNatives(Thread*,
                                                                 object,
                                                                 uintptr_t*)
{
  // ignore
}

extern "C" AVIAN_EXPORT int64_t
    Avian_sun_misc_Perf_createLong(Thread* t, object, uintptr_t*)
{
  return reinterpret_cast<int64_t>(
      t->m->processor->invoke(t,
                              resolveMethod(t,
                                            roots(t)->bootLoader(),
                                            "java/nio/ByteBuffer",
                                            "allocate",
                                            "(I)Ljava/nio/ByteBuffer;"),
                              0,
                              8));
}

extern "C" AVIAN_EXPORT int64_t
    Avian_sun_misc_Unsafe_addressSize(Thread*, object, uintptr_t*)
{
  return BytesPerWord;
}

extern "C" AVIAN_EXPORT int64_t
    Avian_sun_misc_Unsafe_defineClass__Ljava_lang_String_2_3BIILjava_lang_ClassLoader_2Ljava_security_ProtectionDomain_2(
        Thread* t,
        object,
        uintptr_t* arguments)
{
  // object name = reinterpret_cast<object>(arguments[1]);
  GcByteArray* data
      = cast<GcByteArray>(t, reinterpret_cast<object>(arguments[2]));
  int32_t offset = arguments[3];
  int32_t length = arguments[4];
  GcClassLoader* loader
      = cast<GcClassLoader>(t, reinterpret_cast<object>(arguments[5]));
  // object domain = reinterpret_cast<object>(arguments[6]);

  uint8_t* buffer = static_cast<uint8_t*>(t->m->heap->allocate(length));

  THREAD_RESOURCE2(
      t, uint8_t*, buffer, int, length, t->m->heap->free(buffer, length));

  memcpy(buffer, &data->body()[offset], length);

  return reinterpret_cast<int64_t>(
      getJClass(t, cast<GcClass>(t, defineClass(t, loader, buffer, length))));
}

extern "C" AVIAN_EXPORT int64_t
    Avian_sun_misc_Unsafe_allocateInstance(Thread* t,
                                           object,
                                           uintptr_t* arguments)
{
  GcClass* c
      = cast<GcJclass>(t, reinterpret_cast<object>(arguments[1]))->vmClass();
  PROTECT(t, c);

  initClass(t, c);

  return reinterpret_cast<int64_t>(make(t, c));
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_staticFieldOffset(Thread* t,
                                            object,
                                            uintptr_t* arguments)
{
  GcJfield* jfield = cast<GcJfield>(t, reinterpret_cast<object>(arguments[1]));
  return cast<GcField>(
             t,
             cast<GcArray>(t, jfield->clazz()->vmClass()->fieldTable())
                 ->body()[jfield->slot()])->offset();
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_staticFieldBase(Thread* t,
                                          object,
                                          uintptr_t* arguments)
{
  return reinterpret_cast<int64_t>(
      cast<GcJfield>(t, reinterpret_cast<object>(arguments[1]))
          ->clazz()
          ->vmClass()
          ->staticTable());
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_objectFieldOffset(Thread* t,
                                            object,
                                            uintptr_t* arguments)
{
  GcJfield* jfield = cast<GcJfield>(t, reinterpret_cast<object>(arguments[1]));
  return cast<GcField>(
             t,
             cast<GcArray>(t, jfield->clazz()->vmClass()->fieldTable())
                 ->body()[jfield->slot()])->offset();
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getShort__Ljava_lang_Object_2J(Thread*,
                                                         object,
                                                         uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);

  return fieldAtOffset<int16_t>(o, offset);
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getChar__Ljava_lang_Object_2J(Thread*,
                                                        object,
                                                        uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);

  return fieldAtOffset<uint16_t>(o, offset);
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getInt__Ljava_lang_Object_2J(Thread*,
                                                       object,
                                                       uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);

  return fieldAtOffset<int32_t>(o, offset);
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getFloat__Ljava_lang_Object_2J(Thread*,
                                                         object,
                                                         uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);

  return fieldAtOffset<int32_t>(o, offset);
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getLong__Ljava_lang_Object_2J(Thread*,
                                                        object,
                                                        uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);

  return fieldAtOffset<int64_t>(o, offset);
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getDouble__Ljava_lang_Object_2J(Thread* t,
                                                          GcMethod* method,
                                                          uintptr_t* arguments)
{
  return Avian_sun_misc_Unsafe_getLong__Ljava_lang_Object_2J(
      t, method, arguments);
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putByte__Ljava_lang_Object_2JB(Thread*,
                                                         object,
                                                         uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  int8_t value = arguments[4];

  fieldAtOffset<int8_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putShort__Ljava_lang_Object_2JS(Thread*,
                                                          object,
                                                          uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  int16_t value = arguments[4];

  fieldAtOffset<int16_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putChar__Ljava_lang_Object_2JC(Thread*,
                                                         object,
                                                         uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  uint16_t value = arguments[4];

  fieldAtOffset<uint16_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putInt__Ljava_lang_Object_2JI(Thread*,
                                                        object,
                                                        uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  int32_t value = arguments[4];

  fieldAtOffset<int32_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putFloat__Ljava_lang_Object_2JF(Thread*,
                                                          object,
                                                          uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  int32_t value = arguments[4];

  fieldAtOffset<int32_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getByte__Ljava_lang_Object_2J(Thread*,
                                                        object,
                                                        uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);

  return fieldAtOffset<int8_t>(o, offset);
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_getBoolean__Ljava_lang_Object_2J(Thread* t,
                                                           object method,
                                                           uintptr_t* arguments)
{
  return Avian_sun_misc_Unsafe_getByte__Ljava_lang_Object_2J(
      t, method, arguments);
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putBoolean__Ljava_lang_Object_2JZ(
        Thread*,
        object,
        uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  uint8_t value = arguments[4];

  fieldAtOffset<uint8_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_putLong__Ljava_lang_Object_2JJ(Thread*,
                                                         object,
                                                         uintptr_t* arguments)
{
  object o = reinterpret_cast<object>(arguments[1]);
  int64_t offset;
  memcpy(&offset, arguments + 2, 8);
  int64_t value;
  memcpy(&value, arguments + 4, 8);

  fieldAtOffset<int64_t>(o, offset) = value;
}

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_sun_misc_Unsafe_pageSize(Thread*, object, uintptr_t*)
{
  return local::PageSize;
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_ensureClassInitialized(Thread* t,
                                                 object,
                                                 uintptr_t* arguments)
{
  initClass(
      t, cast<GcJclass>(t, reinterpret_cast<object>(arguments[1]))->vmClass());
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_monitorEnter(Thread* t, object, uintptr_t* arguments)
{
  acquire(t, reinterpret_cast<object>(arguments[1]));
}

extern "C" AVIAN_EXPORT void JNICALL
    Avian_sun_misc_Unsafe_monitorExit(Thread* t, object, uintptr_t* arguments)
{
  release(t, reinterpret_cast<object>(arguments[1]));
}

namespace {

namespace local {

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_GetInterfaceVersion)()
{
  return local::InterfaceVersion;
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_IHashCode)(Thread* t, jobject o)
{
  ENTER(t, Thread::ActiveState);

  return o ? objectHash(t, *o) : 0;
}

uint64_t jvmWait(Thread* t, uintptr_t* arguments)
{
  jobject o = reinterpret_cast<jobject>(arguments[0]);
  jlong milliseconds;
  memcpy(&milliseconds, arguments + 1, sizeof(jlong));

  vm::wait(t, *o, milliseconds);

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_MonitorWait)(Thread* t, jobject o, jlong milliseconds)
{
  uintptr_t arguments[1 + (sizeof(jlong) / BytesPerWord)];
  arguments[0] = reinterpret_cast<uintptr_t>(o);
  memcpy(arguments + 1, &milliseconds, sizeof(jlong));

  run(t, jvmWait, arguments);
}

uint64_t jvmNotify(Thread* t, uintptr_t* arguments)
{
  jobject o = reinterpret_cast<jobject>(arguments[0]);

  notify(t, *o);

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_MonitorNotify)(Thread* t, jobject o)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(o)};

  run(t, jvmNotify, arguments);
}

uint64_t jvmNotifyAll(Thread* t, uintptr_t* arguments)
{
  jobject o = reinterpret_cast<jobject>(arguments[0]);

  notifyAll(t, *o);

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_MonitorNotifyAll)(Thread* t, jobject o)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(o)};

  run(t, jvmNotifyAll, arguments);
}

uint64_t jvmClone(Thread* t, uintptr_t* arguments)
{
  jobject o = reinterpret_cast<jobject>(arguments[0]);

  return reinterpret_cast<uint64_t>(makeLocalReference(t, clone(t, *o)));
}

extern "C" AVIAN_EXPORT jobject JNICALL EXPORT(JVM_Clone)(Thread* t, jobject o)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(o)};

  return reinterpret_cast<jobject>(run(t, jvmClone, arguments));
}

uint64_t jvmInternString(Thread* t, uintptr_t* arguments)
{
  jobject o = reinterpret_cast<jobject>(arguments[0]);

  return reinterpret_cast<uint64_t>(makeLocalReference(t, intern(t, *o)));
}

extern "C" AVIAN_EXPORT jstring JNICALL
    EXPORT(JVM_InternString)(Thread* t, jstring s)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(s)};

  return reinterpret_cast<jstring>(run(t, jvmInternString, arguments));
}

extern "C" AVIAN_EXPORT jlong JNICALL
    EXPORT(JVM_CurrentTimeMillis)(Thread* t, jclass)
{
  return t->m->system->now();
}

extern "C" AVIAN_EXPORT jlong JNICALL EXPORT(JVM_NanoTime)(Thread* t, jclass)
{
  return t->m->system->now() * 1000 * 1000;
}

uint64_t jvmArrayCopy(Thread* t, uintptr_t* arguments)
{
  jobject src = reinterpret_cast<jobject>(arguments[0]);
  jint srcOffset = arguments[1];
  jobject dst = reinterpret_cast<jobject>(arguments[2]);
  jint dstOffset = arguments[3];
  jint length = arguments[4];

  arrayCopy(t, *src, srcOffset, *dst, dstOffset, length);

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_ArrayCopy)(Thread* t,
                                                           jclass,
                                                           jobject src,
                                                           jint srcOffset,
                                                           jobject dst,
                                                           jint dstOffset,
                                                           jint length)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(src),
                           static_cast<uintptr_t>(srcOffset),
                           reinterpret_cast<uintptr_t>(dst),
                           static_cast<uintptr_t>(dstOffset),
                           static_cast<uintptr_t>(length)};

  run(t, jvmArrayCopy, arguments);
}

uint64_t jvmInitProperties(Thread* t, uintptr_t* arguments)
{
  jobject properties = reinterpret_cast<jobject>(arguments[0]);

  GcMethod* method = resolveMethod(
      t,
      roots(t)->bootLoader(),
      "java/util/Properties",
      "setProperty",
      "(Ljava/lang/String;Ljava/lang/String;)Ljava/lang/Object;");

  PROTECT(t, method);

#ifdef PLATFORM_WINDOWS
  local::setProperty(t, method, *properties, "line.separator", "\r\n");
  local::setProperty(t, method, *properties, "file.separator", "\\");
  local::setProperty(t, method, *properties, "path.separator", ";");
  local::setProperty(t, method, *properties, "os.name", "Windows");

  TCHAR buffer[MAX_PATH];
  GetTempPath(MAX_PATH, buffer);

  local::setProperty(t, method, *properties, "java.io.tmpdir", buffer);
  local::setProperty(t, method, *properties, "java.home", buffer);
  local::setProperty(
      t, method, *properties, "user.home", _wgetenv(L"USERPROFILE"), "%ls");

  GetCurrentDirectory(MAX_PATH, buffer);

  local::setProperty(t, method, *properties, "user.dir", buffer);
#else  // not PLATFORM_WINDOWS
  local::setProperty(t, method, *properties, "line.separator", "\n");
  local::setProperty(t, method, *properties, "file.separator", "/");
  local::setProperty(t, method, *properties, "path.separator", ":");
#ifdef __APPLE__
  local::setProperty(t, method, *properties, "os.name", "Mac OS X");
#elif defined __FreeBSD__
  local::setProperty(t, method, *properties, "os.name", "FreeBSD");
#else   // not __APPLE__
  local::setProperty(t, method, *properties, "os.name", "Linux");
#endif  // not __APPLE__
  local::setProperty(t, method, *properties, "java.io.tmpdir", "/tmp");
  local::setProperty(t, method, *properties, "user.home", getenv("HOME"));

  char buffer[PATH_MAX];
  local::setProperty(
      t, method, *properties, "user.dir", getcwd(buffer, PATH_MAX));
#endif  // not PLATFORM_WINDOWS

  local::setProperty(
      t, method, *properties, "java.protocol.handler.pkgs", "avian");

  local::setProperty(
      t, method, *properties, "java.vm.vendor", "Avian Contributors");

  local::setProperty(t, method, *properties, "java.vm.name", "Avian");
#ifdef AVIAN_VERSION
  local::setProperty(t, method, *properties, "java.vm.version", AVIAN_VERSION);
#endif
#ifdef AVIAN_INFO
  local::setProperty(t, method, *properties, "java.vm.info", AVIAN_INFO);
#endif

  local::setProperty(t,
                     method,
                     *properties,
                     "java.vm.specification.name",
                     "Java Virtual Machine Specification");

  local::setProperty(
      t,
      method,
      *properties,
      "java.home",
      static_cast<local::MyClasspath*>(t->m->classpath)->javaHome);

  local::setProperty(
      t,
      method,
      *properties,
      "sun.boot.library.path",
      static_cast<local::MyClasspath*>(t->m->classpath)->libraryPath);

  local::setProperty(
      t,
      method,
      *properties,
      "sun.boot.class.path",
      static_cast<Finder*>(
          roots(t)->bootLoader()->as<GcSystemClassLoader>(t)->finder())
          ->path());

  local::setProperty(t, method, *properties, "file.encoding", "UTF-8");

  local::setProperty(t, method, *properties, "jdk.lang.Process.launchMechanism", "fork");

#ifdef ARCH_x86_32
  local::setProperty(t, method, *properties, "os.arch", "x86");
#elif defined ARCH_x86_64
  local::setProperty(t, method, *properties, "os.arch", "x86_64");
#elif defined ARCH_arm
  local::setProperty(t, method, *properties, "os.arch", "arm");
#else
  local::setProperty(t, method, *properties, "os.arch", "unknown");
#endif

  for (unsigned i = 0; i < t->m->propertyCount; ++i) {
    const char* start = t->m->properties[i];
    const char* p = start;
    while (*p and *p != '=')
      ++p;

    if (*p == '=') {
      THREAD_RUNTIME_ARRAY(t, char, name, (p - start) + 1);
      memcpy(RUNTIME_ARRAY_BODY(name), start, p - start);
      RUNTIME_ARRAY_BODY(name)[p - start] = 0;
      local::setProperty(
          t, method, *properties, RUNTIME_ARRAY_BODY(name), p + 1);
    }
  }

  return reinterpret_cast<uint64_t>(properties);
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_InitProperties)(Thread* t, jobject properties)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(properties)};

  return reinterpret_cast<jobject>(run(t, jvmInitProperties, arguments));
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_OnExit)(void (*)(void))
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_Exit)(jint code)
{
  exit(code);
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_Halt)(jint code)
{
  exit(code);
}

uint64_t jvmGC(Thread* t, uintptr_t*)
{
  collect(t, Heap::MajorCollection);

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_GC)()
{
  Thread* t = static_cast<Thread*>(local::globalMachine->localThread->get());

  run(t, jvmGC, 0);
}

extern "C" AVIAN_EXPORT jlong JNICALL EXPORT(JVM_MaxObjectInspectionAge)(void)
{
  return 0;
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_TraceInstructions)(jboolean)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_TraceMethodCalls)(jboolean)
{
  abort();
}

extern "C" AVIAN_EXPORT jlong JNICALL EXPORT(JVM_TotalMemory)()
{
  return 0;
}

extern "C" AVIAN_EXPORT jlong JNICALL EXPORT(JVM_FreeMemory)()
{
  return 0;
}

extern "C" AVIAN_EXPORT jlong JNICALL EXPORT(JVM_MaxMemory)()
{
  return local::globalMachine->heap->limit();
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_ActiveProcessorCount)()
{
#ifdef PLATFORM_WINDOWS
  SYSTEM_INFO si;
  GetSystemInfo(&si);
  return si.dwNumberOfProcessors;
#else
  return sysconf(_SC_NPROCESSORS_ONLN);
#endif
}

uint64_t jvmLoadLibrary(Thread* t, uintptr_t* arguments)
{
  const char* path = reinterpret_cast<const char*>(arguments[0]);

  THREAD_RUNTIME_ARRAY(t, char, p, strlen(path) + 1);
  replace('\\', '/', RUNTIME_ARRAY_BODY(p), path);

  return reinterpret_cast<uint64_t>(loadLibrary(
      t,
      static_cast<local::MyClasspath*>(t->m->classpath)->libraryPath,
      RUNTIME_ARRAY_BODY(p),
      false,
      false));
}

extern "C" AVIAN_EXPORT void* JNICALL EXPORT(JVM_LoadLibrary)(const char* path)
{
  Thread* t = static_cast<Thread*>(local::globalMachine->localThread->get());

  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(path)};

  return reinterpret_cast<void*>(run(t, jvmLoadLibrary, arguments));
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_UnloadLibrary)(void*)
{
  // todo: implement this correctly for POSIX and Windows
}

extern "C" AVIAN_EXPORT void* JNICALL
    EXPORT(JVM_FindLibraryEntry)(void* library, const char* name)
{
  Thread* t = static_cast<Thread*>(local::globalMachine->localThread->get());

  ENTER(t, Thread::ActiveState);

  if (library == RTLD_DEFAULT) {
    library = t->m->libraries;
  }

  for (System::Library* lib = t->m->libraries; lib; lib = lib->next()) {
    if (library == lib) {
      return lib->resolve(name);
    }
  }

  return 0;
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsSupportedJNIVersion)(jint version)
{
  return version <= JNI_VERSION_1_6;
}

extern "C" AVIAN_EXPORT jboolean JNICALL EXPORT(JVM_IsNaN)(jdouble v)
{
  return isnan(v);
}

uint64_t jvmFillInStackTrace(Thread* t, uintptr_t* arguments)
{
  GcThrowable* throwable
      = cast<GcThrowable>(t, *reinterpret_cast<jobject>(arguments[0]));
  PROTECT(t, throwable);

  object trace = getTrace(t, 2);
  throwable->setTrace(t, trace);

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_FillInStackTrace)(Thread* t, jobject throwable)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(throwable)};

  run(t, jvmFillInStackTrace, arguments);
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_PrintStackTrace)(Thread*, jobject, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetStackTraceDepth)(Thread* t, jobject throwable)
{
  ENTER(t, Thread::ActiveState);

  return objectArrayLength(t, cast<GcThrowable>(t, *throwable)->trace());
}

uint64_t jvmGetStackTraceElement(Thread* t, uintptr_t* arguments)
{
  jobject throwable = reinterpret_cast<jobject>(arguments[0]);
  jint index = arguments[1];

  return reinterpret_cast<uint64_t>(makeLocalReference(
      t,
      makeStackTraceElement(
          t,
          cast<GcTraceElement>(
              t,
              objectArrayBody(
                  t, cast<GcThrowable>(t, *throwable)->trace(), index)))));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetStackTraceElement)(Thread* t, jobject throwable, jint index)
{
  uintptr_t arguments[]
      = {reinterpret_cast<uintptr_t>(throwable), static_cast<uintptr_t>(index)};

  return reinterpret_cast<jobject>(run(t, jvmGetStackTraceElement, arguments));
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_InitializeCompiler)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsSilentCompiler)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_CompileClass)(Thread*, jclass, jclass)
{
  return false;
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_CompileClasses)(Thread*, jclass, jstring)
{
  return false;
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_CompilerCommand)(Thread*, jclass, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_EnableCompiler)(Thread*, jclass)
{
  // ignore
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_DisableCompiler)(Thread*, jclass)
{
  // ignore
}

uint64_t jvmStartThread(Thread* t, uintptr_t* arguments)
{
  jobject thread = reinterpret_cast<jobject>(arguments[0]);

  return startThread(t, cast<GcThread>(t, *thread)) != 0;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_StartThread)(Thread* t, jobject thread)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(thread)};

  run(t, jvmStartThread, arguments);
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_StopThread)(Thread*, jobject, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsThreadAlive)(Thread* t, jobject thread)
{
  ENTER(t, Thread::ActiveState);

  Thread* p = reinterpret_cast<Thread*>(cast<GcThread>(t, *thread)->peer());
  return p and (p->getFlags() & Thread::ActiveFlag) != 0;
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_SuspendThread)(Thread*, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_ResumeThread)(Thread*, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_SetThreadPriority)(Thread*, jobject, jint)
{
  // ignore
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_Yield)(Thread* t, jclass)
{
  t->m->system->yield();
}

uint64_t jvmSleep(Thread* t, uintptr_t* arguments)
{
  jlong milliseconds;
  memcpy(&milliseconds, arguments, sizeof(jlong));

  if (milliseconds <= 0) {
    milliseconds = 1;
  }

  if (t->javaThread->sleepLock() == 0) {
    GcJobject* lock = makeJobject(t);
    t->javaThread->setSleepLock(t, lock);
  }

  acquire(t, t->javaThread->sleepLock());
  vm::wait(t, t->javaThread->sleepLock(), milliseconds);
  release(t, t->javaThread->sleepLock());

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_Sleep)(Thread* t, jclass, jlong milliseconds)
{
  uintptr_t arguments[sizeof(jlong) / BytesPerWord];
  memcpy(arguments, &milliseconds, sizeof(jlong));

  run(t, jvmSleep, arguments);
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_CurrentThread)(Thread* t, jclass)
{
  ENTER(t, Thread::ActiveState);

  return makeLocalReference(t, t->javaThread);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_CountStackFrames)(Thread*, jobject)
{
  abort();
}

uint64_t jvmInterrupt(Thread* t, uintptr_t* arguments)
{
  threadInterrupt(t,
                  cast<GcThread>(t, *reinterpret_cast<jobject>(arguments[0])));

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_Interrupt)(Thread* t, jobject thread)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(thread)};

  run(t, jvmInterrupt, arguments);
}

uint64_t jvmIsInterrupted(Thread* t, uintptr_t* arguments)
{
  jobject thread = reinterpret_cast<jobject>(arguments[0]);
  jboolean clear = arguments[1];

  return threadIsInterrupted(t, cast<GcThread>(t, *thread), clear);
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsInterrupted)(Thread* t, jobject thread, jboolean clear)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(thread), clear};

  return run(t, jvmIsInterrupted, arguments);
}

uint64_t jvmHoldsLock(Thread* t, uintptr_t* arguments)
{
  GcMonitor* m
      = objectMonitor(t, *reinterpret_cast<jobject>(arguments[0]), false);

  return m and m->owner() == t;
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_HoldsLock)(Thread* t, jclass, jobject o)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(o)};

  return run(t, jvmHoldsLock, arguments);
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_DumpAllStacks)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetAllThreads)(Thread*, jclass)
{
  abort();
}

uint64_t jvmDumpThreads(Thread* t, uintptr_t* arguments)
{
  jobjectArray threads = reinterpret_cast<jobjectArray>(arguments[0]);

  unsigned threadsLength
      = objectArrayLength(t, reinterpret_cast<object>(*threads));
  GcClass* arrayClass
      = resolveObjectArrayClass(t,
                                type(t, GcStackTraceElement::Type)->loader(),
                                type(t, GcStackTraceElement::Type));
  object result = makeObjectArray(t, arrayClass, threadsLength);
  PROTECT(t, result);

  for (unsigned threadsIndex = 0; threadsIndex < threadsLength;
       ++threadsIndex) {
    Thread* peer = reinterpret_cast<Thread*>(
        cast<GcThread>(t,
                       objectArrayBody(
                           t, reinterpret_cast<object>(*threads), threadsIndex))
            ->peer());

    if (peer) {
      object trace = t->m->processor->getStackTrace(t, peer);
      PROTECT(t, trace);

      unsigned traceLength = objectArrayLength(t, trace);
      object array
          = makeObjectArray(t, type(t, GcStackTraceElement::Type), traceLength);
      PROTECT(t, array);

      for (unsigned traceIndex = 0; traceIndex < traceLength; ++traceIndex) {
        object ste = makeStackTraceElement(
            t, cast<GcTraceElement>(t, objectArrayBody(t, trace, traceIndex)));
        setField(t, array, ArrayBody + (traceIndex * BytesPerWord), ste);
      }

      setField(t, result, ArrayBody + (threadsIndex * BytesPerWord), array);
    }
  }

  return reinterpret_cast<uint64_t>(makeLocalReference(t, result));
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_DumpThreads)(Thread* t, jclass, jobjectArray threads)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(threads)};

  return reinterpret_cast<jobjectArray>(run(t, jvmDumpThreads, arguments));
}

extern "C" AVIAN_EXPORT jclass JNICALL EXPORT(JVM_CurrentLoadedClass)(Thread*)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL EXPORT(JVM_CurrentClassLoader)(Thread*)
{
  // just return null, i.e. tell SecurityManager.currentClassLoader
  // all permissions are granted, since Avian doesn't do any internal
  // security checks:
  return 0;
}

uint64_t jvmGetClassContext(Thread* t, uintptr_t*)
{
  object trace = getTrace(t, 1);
  PROTECT(t, trace);

  object context = makeObjectArray(
      t, type(t, GcJclass::Type), objectArrayLength(t, trace));
  PROTECT(t, context);

  for (unsigned i = 0; i < objectArrayLength(t, trace); ++i) {
    object c = getJClass(
        t,
        cast<GcMethod>(
            t, cast<GcTraceElement>(t, objectArrayBody(t, trace, i))->method())
            ->class_());

    setField(t, context, ArrayBody + (i * BytesPerWord), c);
  }

  return reinterpret_cast<uint64_t>(makeLocalReference(t, context));
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetClassContext)(Thread* t)
{
  return reinterpret_cast<jobjectArray>(run(t, jvmGetClassContext, 0));
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_ClassDepth)(Thread*, jstring)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_ClassLoaderDepth)(Thread*)
{
  abort();
}

uint64_t jvmGetSystemPackage(Thread* t, uintptr_t* arguments)
{
  jstring s = reinterpret_cast<jstring>(arguments[0]);

  ACQUIRE(t, t->m->classLock);

  THREAD_RUNTIME_ARRAY(t, char, chars, (*s)->length(t) + 1);
  stringChars(t, *s, RUNTIME_ARRAY_BODY(chars));

  object key = makeByteArray(t, RUNTIME_ARRAY_BODY(chars));

  GcByteArray* array = cast<GcByteArray>(
      t,
      hashMapFind(
          t, roots(t)->packageMap(), key, byteArrayHash, byteArrayEqual));

  if (array) {
    return reinterpret_cast<uintptr_t>(makeLocalReference(
        t, t->m->classpath->makeString(t, array, 0, array->length())));
  } else {
    return 0;
  }
}

extern "C" AVIAN_EXPORT jstring JNICALL
    EXPORT(JVM_GetSystemPackage)(Thread* t, jstring s)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(s)};

  return reinterpret_cast<jstring>(run(t, jvmGetSystemPackage, arguments));
}

uint64_t jvmGetSystemPackages(Thread* t, uintptr_t*)
{
  return reinterpret_cast<uintptr_t>(makeLocalReference(
      t,
      makeObjectArray(
          t, resolveClass(t, roots(t)->bootLoader(), "java/lang/Package"), 0)));
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetSystemPackages)(Thread* t)
{
  return reinterpret_cast<jobjectArray>(run(t, jvmGetSystemPackages, 0));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_AllocateNewObject)(Thread*, jobject, jclass, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_AllocateNewArray)(Thread*, jobject, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_LatestUserDefinedLoader)(Thread* t)
{
  ENTER(t, Thread::ActiveState);

  class Visitor : public Processor::StackVisitor {
   public:
    Visitor(Thread* t) : t(t), loader(0)
    {
    }

    virtual bool visit(Processor::StackWalker* walker)
    {
      GcClassLoader* loader = walker->method()->class_()->loader();
      if (loader and loader != roots(t)->bootLoader()
          and strcmp(objectClass(t, loader)->name()->body().begin(),
                     reinterpret_cast<const int8_t*>(
                         "sun/reflect/DelegatingClassLoader"))) {
        this->loader = loader;
        return false;
      } else {
        return true;
      }
    }

    Thread* t;
    GcClassLoader* loader;
  } v(t);

  t->m->processor->walkStack(t, &v);

  return makeLocalReference(t, v.loader);
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_LoadClass0)(Thread*, jobject, jclass, jstring)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetArrayLength)(Thread* t, jobject array)
{
  ENTER(t, Thread::ActiveState);

  return fieldAtOffset<uintptr_t>(*array, BytesPerWord);
}

uint64_t jvmGetArrayElement(Thread* t, uintptr_t* arguments)
{
  jobject array = reinterpret_cast<jobject>(arguments[0]);
  jint index = arguments[1];

  switch (objectClass(t, *array)->name()->body()[1]) {
  case 'Z':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t, makeBoolean(t, fieldAtOffset<int8_t>(*array, ArrayBody + index))));
  case 'B':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t, makeByte(t, fieldAtOffset<int8_t>(*array, ArrayBody + index))));
  case 'C':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t,
        makeChar(t, fieldAtOffset<int16_t>(*array, ArrayBody + (index * 2)))));
  case 'S':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t,
        makeShort(t, fieldAtOffset<int16_t>(*array, ArrayBody + (index * 2)))));
  case 'I':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t,
        makeInt(t, fieldAtOffset<int32_t>(*array, ArrayBody + (index * 4)))));
  case 'F':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t,
        makeFloat(t, fieldAtOffset<int32_t>(*array, ArrayBody + (index * 4)))));
  case 'J':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t,
        makeLong(t, fieldAtOffset<int64_t>(*array, ArrayBody + (index * 8)))));
  case 'D':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t,
        makeDouble(t,
                   fieldAtOffset<int64_t>(*array, ArrayBody + (index * 8)))));
  case 'L':
  case '[':
    return reinterpret_cast<intptr_t>(makeLocalReference(
        t, fieldAtOffset<object>(*array, ArrayBody + (index * BytesPerWord))));
  default:
    abort(t);
  }
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetArrayElement)(Thread* t, jobject array, jint index)
{
  uintptr_t arguments[]
      = {reinterpret_cast<uintptr_t>(array), static_cast<uintptr_t>(index)};

  return reinterpret_cast<jobject>(run(t, jvmGetArrayElement, arguments));
}

extern "C" AVIAN_EXPORT jvalue JNICALL
    EXPORT(JVM_GetPrimitiveArrayElement)(Thread*, jobject, jint, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_SetArrayElement)(Thread* t,
                                                                 jobject array,
                                                                 jint index,
                                                                 jobject value)
{
  ENTER(t, Thread::ActiveState);

  switch (objectClass(t, *array)->name()->body()[1]) {
  case 'Z':
    fieldAtOffset<int8_t>(*array, ArrayBody + index)
        = cast<GcBoolean>(t, *value)->value();
    break;
  case 'B':
    fieldAtOffset<int8_t>(*array, ArrayBody + index)
        = cast<GcByte>(t, *value)->value();
    break;
  case 'C':
    fieldAtOffset<int16_t>(*array, ArrayBody + (index * 2))
        = cast<GcChar>(t, *value)->value();
    break;
  case 'S':
    fieldAtOffset<int16_t>(*array, ArrayBody + (index * 2))
        = cast<GcShort>(t, *value)->value();
    break;
  case 'I':
    fieldAtOffset<int32_t>(*array, ArrayBody + (index * 4))
        = cast<GcInt>(t, *value)->value();
    break;
  case 'F':
    fieldAtOffset<int32_t>(*array, ArrayBody + (index * 4))
        = cast<GcFloat>(t, *value)->value();
    break;
  case 'J':
    fieldAtOffset<int64_t>(*array, ArrayBody + (index * 8))
        = cast<GcLong>(t, *value)->value();
    break;
  case 'D':
    fieldAtOffset<int64_t>(*array, ArrayBody + (index * 8))
        = cast<GcDouble>(t, *value)->value();
    break;
  case 'L':
  case '[':
    setField(
        t, *array, ArrayBody + (index * BytesPerWord), (value ? *value : 0));
    break;
  default:
    abort(t);
  }
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(
    JVM_SetPrimitiveArrayElement)(Thread*, jobject, jint, jvalue, unsigned char)
{
  abort();
}

object makeNewArray(Thread* t, GcClass* c, unsigned length)
{
  if (c->vmFlags() & PrimitiveFlag) {
    const char* name
        = reinterpret_cast<char*>(local::getClassName(t, c)->body().begin());

    switch (*name) {
    case 'b':
      if (name[1] == 'o') {
        return makeBooleanArray(t, length);
      } else {
        return makeByteArray(t, length);
      }
    case 'c':
      return makeCharArray(t, length);
    case 'd':
      return makeDoubleArray(t, length);
    case 'f':
      return makeFloatArray(t, length);
    case 'i':
      return makeIntArray(t, length);
    case 'l':
      return makeLongArray(t, length);
    case 's':
      return makeShortArray(t, length);
    default:
      abort(t);
    }
  } else {
    return makeObjectArray(t, c, length);
  }
}

uint64_t jvmNewArray(Thread* t, uintptr_t* arguments)
{
  jclass elementClass = reinterpret_cast<jclass>(arguments[0]);
  jint length = arguments[1];

  return reinterpret_cast<uint64_t>(makeLocalReference(
      t, makeNewArray(t, (*elementClass)->vmClass(), length)));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_NewArray)(Thread* t, jclass elementClass, jint length)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(elementClass),
                           static_cast<uintptr_t>(length)};

  return reinterpret_cast<jobject>(run(t, jvmNewArray, arguments));
}

uint64_t jvmNewMultiArray(Thread* t, uintptr_t* arguments)
{
  jclass elementClass = reinterpret_cast<jclass>(arguments[0]);
  jintArray dimensions = reinterpret_cast<jintArray>(arguments[1]);

  THREAD_RUNTIME_ARRAY(t, int32_t, counts, (*dimensions)->length());
  for (int i = (*dimensions)->length() - 1; i >= 0; --i) {
    RUNTIME_ARRAY_BODY(counts)[i] = (*dimensions)->body()[i];
    if (UNLIKELY(RUNTIME_ARRAY_BODY(counts)[i] < 0)) {
      throwNew(t,
               GcNegativeArraySizeException::Type,
               "%d",
               RUNTIME_ARRAY_BODY(counts)[i]);
      return 0;
    }
  }

  object array = makeNewArray(
      t, (*elementClass)->vmClass(), RUNTIME_ARRAY_BODY(counts)[0]);
  PROTECT(t, array);

  populateMultiArray(
      t, array, RUNTIME_ARRAY_BODY(counts), 0, (*dimensions)->length());

  return reinterpret_cast<uint64_t>(makeLocalReference(t, array));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_NewMultiArray)(Thread* t,
                              jclass elementClass,
                              jintArray dimensions)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(elementClass),
                           reinterpret_cast<uintptr_t>(dimensions)};

  return reinterpret_cast<jobject>(run(t, jvmNewMultiArray, arguments));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_GetCallerClass)(Thread* t, int target)
{
  ENTER(t, Thread::ActiveState);

  GcMethod* method = getCaller(t, target, true);

  return method ? reinterpret_cast<jclass>(
                      makeLocalReference(t, getJClass(t, method->class_())))
                : 0;
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_FindPrimitiveClass)(Thread* t, const char* name)
{
  ENTER(t, Thread::ActiveState);

  switch (*name) {
  case 'b':
    if (name[1] == 'o') {
      return reinterpret_cast<jclass>(
          makeLocalReference(t, getJClass(t, type(t, GcJboolean::Type))));
    } else {
      return reinterpret_cast<jclass>(
          makeLocalReference(t, getJClass(t, type(t, GcJbyte::Type))));
    }
  case 'c':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJchar::Type))));
  case 'd':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJdouble::Type))));
  case 'f':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJfloat::Type))));
  case 'i':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJint::Type))));
  case 'l':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJlong::Type))));
  case 's':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJshort::Type))));
  case 'v':
    return reinterpret_cast<jclass>(
        makeLocalReference(t, getJClass(t, type(t, GcJvoid::Type))));
  default:
    throwNew(t, GcIllegalArgumentException::Type);
  }
}

uint64_t jvmResolveClass(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);

  GcMethod* method = resolveMethod(
      t, roots(t)->bootLoader(), "avian/Classes", "link", "(Lavian/VMClass;)V");

  t->m->processor->invoke(t, method, 0, (*c)->vmClass());

  return 1;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_ResolveClass)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  run(t, jvmResolveClass, arguments);
}

uint64_t jvmFindClassFromCaller(Thread* t, uintptr_t* arguments)
{
  const char* name = reinterpret_cast<const char*>(arguments[0]);
  jboolean init = arguments[1];
  jobject loader = reinterpret_cast<jobject>(arguments[2]);
  // jclass caller = reinterpret_cast<jclass>(arguments[3]);

  /* XXX The caller's protection domain should be used during
     the resolveClass but there is no specification or
     unit-test in OpenJDK documenting the desired effect */

  GcClass* c = resolveClass(
      t,
      loader ? cast<GcClassLoader>(t, *loader) : roots(t)->bootLoader(),
      name,
      true,
      static_cast<Gc::Type>(GcClassNotFoundException::Type));

  if (init) {
    PROTECT(t, c);

    initClass(t, c);
  }

  return reinterpret_cast<uint64_t>(makeLocalReference(t, getJClass(t, c)));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_FindClassFromCaller)(Thread* t,
                                    const char* name,
                                    jboolean init,
                                    jobject loader,
                                    jclass caller)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(name),
                           init,
                           reinterpret_cast<uintptr_t>(loader),
                           reinterpret_cast<uintptr_t>(caller)};

  return reinterpret_cast<jclass>(
      run(t, jvmFindClassFromCaller, arguments));
}

uint64_t jvmFindClassFromClassLoader(Thread* t, uintptr_t* arguments)
{
  const char* name = reinterpret_cast<const char*>(arguments[0]);
  jboolean init = arguments[1];
  jobject loader = reinterpret_cast<jobject>(arguments[2]);
  jboolean throwError = arguments[3];

  GcClass* c = resolveClass(
      t,
      loader ? cast<GcClassLoader>(t, *loader) : roots(t)->bootLoader(),
      name,
      true,
      throwError ? static_cast<Gc::Type>(GcNoClassDefFoundError::Type)
                 : static_cast<Gc::Type>(GcClassNotFoundException::Type));

  if (init) {
    PROTECT(t, c);

    initClass(t, c);
  }

  return reinterpret_cast<uint64_t>(makeLocalReference(t, getJClass(t, c)));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_FindClassFromClassLoader)(Thread* t,
                                         const char* name,
                                         jboolean init,
                                         jobject loader,
                                         jboolean throwError)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(name),
                           init,
                           reinterpret_cast<uintptr_t>(loader),
                           throwError};

  return reinterpret_cast<jclass>(
      run(t, jvmFindClassFromClassLoader, arguments));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    JVM_FindClassFromBootLoader(Thread* t, const char* name)
{
  return EXPORT(JVM_FindClassFromClassLoader)(t, name, false, 0, false);
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_FindClassFromClass)(Thread*, const char*, jboolean, jclass)
{
  abort();
}

uint64_t jvmFindLoadedClass(Thread* t, uintptr_t* arguments)
{
  jobject loader = reinterpret_cast<jobject>(arguments[0]);
  jstring name = reinterpret_cast<jstring>(arguments[1]);

  GcByteArray* spec = makeByteArray(t, (*name)->length(t) + 1);

  {
    char* s = reinterpret_cast<char*>(spec->body().begin());
    stringChars(t, (*name), s);
    replace('.', '/', s);
  }

  GcClass* c = findLoadedClass(t, cast<GcClassLoader>(t, *loader), spec);

  return reinterpret_cast<uint64_t>(c ? makeLocalReference(t, getJClass(t, c))
                                      : 0);
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_FindLoadedClass)(Thread* t, jobject loader, jstring name)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(loader),
                           reinterpret_cast<uintptr_t>(name)};

  return reinterpret_cast<jclass>(run(t, jvmFindLoadedClass, arguments));
}

uint64_t jvmDefineClass(Thread* t, uintptr_t* arguments)
{
  jobject loader = reinterpret_cast<jobject>(arguments[0]);
  const uint8_t* data = reinterpret_cast<const uint8_t*>(arguments[1]);
  jsize length = arguments[2];

  return reinterpret_cast<uint64_t>(makeLocalReference(
      t,
      getJClass(
          t,
          cast<GcClass>(
              t,
              defineClass(t, cast<GcClassLoader>(t, *loader), data, length)))));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_DefineClass)(Thread* t,
                            const char*,
                            jobject loader,
                            const uint8_t* data,
                            jsize length,
                            jobject)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(loader),
                           reinterpret_cast<uintptr_t>(data),
                           static_cast<uintptr_t>(length)};

  return reinterpret_cast<jclass>(run(t, jvmDefineClass, arguments));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_DefineClassWithSource)(Thread* t,
                                      const char*,
                                      jobject loader,
                                      const uint8_t* data,
                                      jsize length,
                                      jobject,
                                      const char*)
{
  return EXPORT(JVM_DefineClass)(t, 0, loader, data, length, 0);
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_DefineClassWithSourceCond)(Thread* t,
                                          const char*,
                                          jobject loader,
                                          const uint8_t* data,
                                          jsize length,
                                          jobject,
                                          const char*,
                                          jboolean)
{
  return EXPORT(JVM_DefineClass)(t, 0, loader, data, length, 0);
}

extern "C" AVIAN_EXPORT jstring JNICALL
    EXPORT(JVM_GetClassName)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  return reinterpret_cast<jstring>(makeLocalReference(t, (*c)->name()));
}

uint64_t jvmGetClassInterfaces(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);

  GcClassAddendum* addendum = (*c)->vmClass()->addendum();
  if (addendum) {
    GcArray* table = cast<GcArray>(t, addendum->interfaceTable());
    if (table) {
      PROTECT(t, table);

      object array
          = makeObjectArray(t, type(t, GcJclass::Type), table->length());
      PROTECT(t, array);

      for (unsigned i = 0; i < table->length(); ++i) {
        object c = getJClass(t, cast<GcClass>(t, table->body()[i]));
        setField(t, array, ArrayBody + (i * BytesPerWord), c);
      }

      return reinterpret_cast<uint64_t>(makeLocalReference(t, array));
    }
  }

  return reinterpret_cast<uint64_t>(
      makeLocalReference(t, makeObjectArray(t, type(t, GcJclass::Type), 0)));
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetClassInterfaces)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jobjectArray>(
      run(t, jvmGetClassInterfaces, arguments));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetClassLoader)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  GcClassLoader* loader = (*c)->vmClass()->loader();

  if (loader == roots(t)->bootLoader()) {
    // sun.misc.Unsafe.getUnsafe expects a null result if the class
    // loader is the boot classloader and will throw a
    // SecurityException otherwise.
    GcMethod* caller = getCaller(t, 2);
    if (caller
        and strcmp(reinterpret_cast<const char*>(
                       caller->class_()->name()->body().begin()),
                   "sun/misc/Unsafe") == 0) {
      return 0;
    } else {
      return makeLocalReference(t, roots(t)->bootLoader());
    }
  } else {
    return makeLocalReference(t, loader);
  }
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsInterface)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  return ((*c)->vmClass()->flags() & ACC_INTERFACE) != 0;
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetClassSigners)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  GcClassRuntimeData* runtimeData
      = getClassRuntimeDataIfExists(t, (*c)->vmClass());

  return runtimeData ? reinterpret_cast<jobjectArray>(
                           makeLocalReference(t, runtimeData->signers()))
                     : 0;
}

extern "C" AVIAN_EXPORT jbyteArray JNICALL
    EXPORT(JVM_GetClassTypeAnnotations)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jbyteArray JNICALL
    EXPORT(JVM_GetFieldTypeAnnotations)(Thread*, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT jbyteArray JNICALL
    EXPORT(JVM_GetMethodTypeAnnotations)(Thread*, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_SetClassSigners)(Thread* t, jclass c, jobjectArray signers)
{
  ENTER(t, Thread::ActiveState);

  GcClassRuntimeData* runtimeData = getClassRuntimeData(t, (*c)->vmClass());

  runtimeData->setSigners(t, reinterpret_cast<object>(*signers));
}

uint64_t jvmGetProtectionDomain(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);

  GcMethod* method
      = resolveMethod(t,
                      roots(t)->bootLoader(),
                      "avian/Classes",
                      "getProtectionDomain",
                      "(Lavian/VMClass;)Ljava/security/ProtectionDomain;");

  return reinterpret_cast<uint64_t>(makeLocalReference(
      t, t->m->processor->invoke(t, method, 0, (*c)->vmClass())));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetProtectionDomain)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jobject>(run(t, jvmGetProtectionDomain, arguments));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetResourceLookupCacheURLs)(Thread*, jobject)
{
  return 0;
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_SetProtectionDomain)(Thread*, jclass, jobject)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsArrayClass)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  return (*c)->vmClass()->arrayDimensions() != 0;
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsPrimitiveClass)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  return ((*c)->vmClass()->vmFlags() & PrimitiveFlag) != 0;
}

uint64_t jvmGetComponentType(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);

  if ((*c)->vmClass()->arrayDimensions()) {
    uint8_t n = (*c)->vmClass()->name()->body()[1];
    if (n != 'L' and n != '[') {
      return reinterpret_cast<uintptr_t>(
          makeLocalReference(t, getJClass(t, primitiveClass(t, n))));
    } else {
      return reinterpret_cast<uintptr_t>(makeLocalReference(
          t, getJClass(t, (*c)->vmClass()->arrayElementClass())));
    }
  } else {
    return 0;
  }
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_GetComponentType)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jclass>(run(t, jvmGetComponentType, arguments));
}

uint64_t jvmGetClassModifiers(Thread* t, uintptr_t* arguments)
{
  return classModifiers(
      t,
      cast<GcJclass>(t, *reinterpret_cast<jobject>(arguments[0]))->vmClass());
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetClassModifiers)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return run(t, jvmGetClassModifiers, arguments);
}

uint64_t jvmGetDeclaredClasses(Thread* t, uintptr_t* arguments)
{
  return reinterpret_cast<uintptr_t>(makeLocalReference(
      t,
      getDeclaredClasses(
          t,
          cast<GcJclass>(t, *reinterpret_cast<jobject>(arguments[0]))
              ->vmClass(),
          false)));
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetDeclaredClasses)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jobjectArray>(
      run(t, jvmGetDeclaredClasses, arguments));
}

uint64_t jvmGetDeclaringClass(Thread* t, uintptr_t* arguments)
{
  return reinterpret_cast<uintptr_t>(makeLocalReference(
      t,
      getDeclaringClass(
          t,
          cast<GcJclass>(t, *reinterpret_cast<jobject>(arguments[0]))
              ->vmClass())));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_GetDeclaringClass)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jclass>(run(t, jvmGetDeclaringClass, arguments));
}

uint64_t jvmGetClassSignature(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);

  GcClassAddendum* addendum = (*c)->vmClass()->addendum();
  if (addendum) {
    GcByteArray* signature = cast<GcByteArray>(t, addendum->signature());
    if (signature) {
      return reinterpret_cast<uintptr_t>(
          makeLocalReference(t,
                             t->m->classpath->makeString(
                                 t, signature, 0, signature->length() - 1)));
    }
  }
  return 0;
}

extern "C" AVIAN_EXPORT jstring JNICALL
    EXPORT(JVM_GetClassSignature)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jstring>(run(t, jvmGetClassSignature, arguments));
}

extern "C" AVIAN_EXPORT jbyteArray JNICALL
    EXPORT(JVM_GetClassAnnotations)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  GcClassAddendum* addendum = (*c)->vmClass()->addendum();
  return addendum ? reinterpret_cast<jbyteArray>(
                        makeLocalReference(t, addendum->annotationTable()))
                  : 0;
}

uint64_t jvmGetClassDeclaredMethods(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);
  jboolean publicOnly = arguments[1];

  GcArray* table = cast<GcArray>(t, (*c)->vmClass()->methodTable());
  if (table) {
    PROTECT(t, table);

    object array
        = makeObjectArray(t,
                          type(t, GcJmethod::Type),
                          local::countMethods(t, (*c)->vmClass(), publicOnly));
    PROTECT(t, array);

    unsigned ai = 0;
    for (unsigned i = 0, j = classDeclaredMethodCount(t, (*c)->vmClass());
         i < j;
         ++i) {
      GcMethod* vmMethod = cast<GcMethod>(t, table->body()[i]);
      PROTECT(t, vmMethod);

      if (((not publicOnly) or (vmMethod->flags() & ACC_PUBLIC))
          and vmMethod->name()->body()[0] != '<') {
        object method = makeJmethod(t, vmMethod, i);

        assertT(t, ai < objectArrayLength(t, array));

        setField(t, array, ArrayBody + ((ai++) * BytesPerWord), method);
      }
    }

    return reinterpret_cast<uint64_t>(makeLocalReference(t, array));
  } else {
    return reinterpret_cast<uint64_t>(
        makeLocalReference(t, makeObjectArray(t, type(t, GcJmethod::Type), 0)));
  }
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetClassDeclaredMethods)(Thread* t,
                                        jclass c,
                                        jboolean publicOnly)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c), publicOnly};

  return reinterpret_cast<jobjectArray>(
      run(t, jvmGetClassDeclaredMethods, arguments));
}

uint64_t jvmGetClassDeclaredFields(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);
  jboolean publicOnly = arguments[1];
  GcArray* table = cast<GcArray>(t, (*c)->vmClass()->fieldTable());
  if (table) {
    PROTECT(t, table);

    object array
        = makeObjectArray(t,
                          type(t, GcJfield::Type),
                          local::countFields(t, (*c)->vmClass(), publicOnly));
    PROTECT(t, array);

    unsigned ai = 0;
    for (unsigned i = 0; i < table->length(); ++i) {
      GcField* vmField = cast<GcField>(t, table->body()[i]);
      PROTECT(t, vmField);

      if ((not publicOnly) or (vmField->flags() & ACC_PUBLIC)) {
        object field = makeJfield(t, vmField, i);

        assertT(t, ai < objectArrayLength(t, array));

        setField(t, array, ArrayBody + ((ai++) * BytesPerWord), field);
      }
    }
    assertT(t, ai == objectArrayLength(t, array));

    return reinterpret_cast<uint64_t>(makeLocalReference(t, array));
  } else {
    return reinterpret_cast<uint64_t>(
        makeLocalReference(t, makeObjectArray(t, type(t, GcJfield::Type), 0)));
  }
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetClassDeclaredFields)(Thread* t, jclass c, jboolean publicOnly)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c), publicOnly};

  return reinterpret_cast<jobjectArray>(
      run(t, jvmGetClassDeclaredFields, arguments));
}

uint64_t jvmGetClassDeclaredConstructors(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);
  jboolean publicOnly = arguments[1];

  GcArray* table = cast<GcArray>(t, (*c)->vmClass()->methodTable());
  if (table) {
    PROTECT(t, table);

    object array = makeObjectArray(
        t,
        type(t, GcJconstructor::Type),
        local::countConstructors(t, (*c)->vmClass(), publicOnly));
    PROTECT(t, array);

    unsigned ai = 0;
    for (unsigned i = 0, j = classDeclaredMethodCount(t, (*c)->vmClass());
         i < j;
         ++i) {
      GcMethod* vmMethod = cast<GcMethod>(t, table->body()[i]);
      PROTECT(t, vmMethod);

      if (((not publicOnly) or (vmMethod->flags() & ACC_PUBLIC))
          and strcmp(reinterpret_cast<char*>(vmMethod->name()->body().begin()),
                     "<init>") == 0) {
        object method = makeJconstructor(t, vmMethod, i);

        assertT(t, ai < objectArrayLength(t, array));

        setField(t, array, ArrayBody + ((ai++) * BytesPerWord), method);
      }
    }

    return reinterpret_cast<uint64_t>(makeLocalReference(t, array));
  } else {
    return reinterpret_cast<uint64_t>(makeLocalReference(
        t, makeObjectArray(t, type(t, GcJconstructor::Type), 0)));
  }
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetClassDeclaredConstructors)(Thread* t,
                                             jclass c,
                                             jboolean publicOnly)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c), publicOnly};

  return reinterpret_cast<jobjectArray>(
      run(t, jvmGetClassDeclaredConstructors, arguments));
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetClassAccessFlags)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  return (*c)->vmClass()->flags();
}

uint64_t jvmInvokeMethod(Thread* t, uintptr_t* arguments)
{
  jobject method = reinterpret_cast<jobject>(arguments[0]);
  jobject instance = reinterpret_cast<jobject>(arguments[1]);
  jobjectArray args = reinterpret_cast<jobjectArray>(arguments[2]);

  GcMethod* vmMethod = cast<GcMethod>(
      t,
      cast<GcArray>(
          t, cast<GcJmethod>(t, *method)->clazz()->vmClass()->methodTable())
          ->body()[cast<GcJmethod>(t, *method)->slot()]);

  if (vmMethod->flags() & ACC_STATIC) {
    instance = 0;
  }

  if (instance and not instanceOf(t, vmMethod->class_(), *instance)) {
    throwNew(t, GcIllegalArgumentException::Type);
  }

  return reinterpret_cast<uint64_t>(
      makeLocalReference(t,
                         invoke(t,
                                vmMethod,
                                instance ? *instance : 0,
                                args ? reinterpret_cast<object>(*args) : 0)));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_InvokeMethod)(Thread* t,
                             jobject method,
                             jobject instance,
                             jobjectArray args)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(method),
                           reinterpret_cast<uintptr_t>(instance),
                           reinterpret_cast<uintptr_t>(args)};

  return reinterpret_cast<jobject>(run(t, jvmInvokeMethod, arguments));
}

uint64_t jvmNewInstanceFromConstructor(Thread* t, uintptr_t* arguments)
{
  jobject constructor = reinterpret_cast<jobject>(arguments[0]);
  jobjectArray args = reinterpret_cast<jobjectArray>(arguments[1]);

  object instance
      = make(t, cast<GcJconstructor>(t, *constructor)->clazz()->vmClass());
  PROTECT(t, instance);

  GcMethod* method = cast<GcMethod>(
      t,
      cast<GcArray>(t,
                    cast<GcJconstructor>(t, *constructor)
                        ->clazz()
                        ->vmClass()
                        ->methodTable())
          ->body()[cast<GcJconstructor>(t, *constructor)->slot()]);

  invoke(t, method, instance, args ? reinterpret_cast<object>(*args) : 0);

  return reinterpret_cast<uint64_t>(makeLocalReference(t, instance));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_NewInstanceFromConstructor)(Thread* t,
                                           jobject constructor,
                                           jobjectArray args)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(constructor),
                           reinterpret_cast<uintptr_t>(args)};

  return reinterpret_cast<jobject>(
      run(t, jvmNewInstanceFromConstructor, arguments));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetClassConstantPool)(Thread* t, jclass c)
{
  ENTER(t, Thread::ActiveState);

  GcClass* vmClass = (*c)->vmClass();
  GcClassAddendum* addendum = vmClass->addendum();
  object pool;
  if (addendum) {
    pool = addendum->pool();
  } else {
    pool = 0;
  }

  if (pool == 0) {
    pool = getClassRuntimeData(t, vmClass)->pool();
  }

  return makeLocalReference(t, makeConstantPool(t, pool));
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_ConstantPoolGetSize)(Thread* t, jobject, jobject pool)
{
  if (pool == 0)
    return 0;

  ENTER(t, Thread::ActiveState);

  return singletonCount(t, cast<GcSingleton>(t, *pool));
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_ConstantPoolGetClassAt)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jclass JNICALL
    EXPORT(JVM_ConstantPoolGetClassAtIfLoaded)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_ConstantPoolGetMethodAt)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_ConstantPoolGetMethodAtIfLoaded)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_ConstantPoolGetFieldAt)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_ConstantPoolGetFieldAtIfLoaded)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_ConstantPoolGetMemberRefInfoAt)(Thread*, jobject, jobject, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(
    JVM_ConstantPoolGetIntAt)(Thread* t, jobject, jobject pool, jint index)
{
  ENTER(t, Thread::ActiveState);

  return singletonValue(t, cast<GcSingleton>(t, *pool), index - 1);
}

extern "C" AVIAN_EXPORT jlong JNICALL EXPORT(
    JVM_ConstantPoolGetLongAt)(Thread* t, jobject, jobject pool, jint index)
{
  ENTER(t, Thread::ActiveState);

  uint64_t v;
  memcpy(&v, &singletonValue(t, cast<GcSingleton>(t, *pool), index - 1), 8);

  return v;
}

extern "C" AVIAN_EXPORT jfloat JNICALL EXPORT(
    JVM_ConstantPoolGetFloatAt)(Thread* t, jobject, jobject pool, jint index)
{
  ENTER(t, Thread::ActiveState);

  return bitsToFloat(singletonValue(t, cast<GcSingleton>(t, *pool), index - 1));
}

extern "C" AVIAN_EXPORT jdouble JNICALL EXPORT(
    JVM_ConstantPoolGetDoubleAt)(Thread* t, jobject, jobject pool, jint index)
{
  ENTER(t, Thread::ActiveState);

  double v;
  memcpy(&v, &singletonValue(t, cast<GcSingleton>(t, *pool), index - 1), 8);

  return v;
}

extern "C" AVIAN_EXPORT jstring JNICALL
    EXPORT(JVM_ConstantPoolGetStringAt)(Thread*, jobject, jobject, jint)
{
  abort();
}

uint64_t jvmConstantPoolGetUTF8At(Thread* t, uintptr_t* arguments)
{
  jobject pool = reinterpret_cast<jobject>(arguments[0]);
  jint index = arguments[1];

  object array = parseUtf8(
      t,
      cast<GcByteArray>(
          t, singletonObject(t, cast<GcSingleton>(t, *pool), index - 1)));

  return reinterpret_cast<uint64_t>(makeLocalReference(
      t,
      t->m->classpath->makeString(
          t, array, 0, fieldAtOffset<uintptr_t>(array, BytesPerWord) - 1)));
}

extern "C" AVIAN_EXPORT jstring JNICALL EXPORT(
    JVM_ConstantPoolGetUTF8At)(Thread* t, jobject, jobject pool, jint index)
{
  uintptr_t arguments[]
      = {reinterpret_cast<uintptr_t>(pool), static_cast<uintptr_t>(index)};

  return reinterpret_cast<jstring>(run(t, jvmConstantPoolGetUTF8At, arguments));
}

void maybeWrap(Thread* t, bool wrapException)
{
  if (t->exception and wrapException
      and not(instanceOf(t, type(t, GcError::Type), t->exception)
              or instanceOf(
                     t, type(t, GcRuntimeException::Type), t->exception))) {
    GcThrowable* exception = t->exception;
    t->exception = 0;

    PROTECT(t, exception);

    GcClass* paeClass = resolveClass(
        t, roots(t)->bootLoader(), "java/security/PrivilegedActionException");
    PROTECT(t, paeClass);

    GcMethod* paeConstructor
        = resolveMethod(t, paeClass, "<init>", "(Ljava/lang/Exception;)V");
    PROTECT(t, paeConstructor);

    GcThrowable* result = cast<GcThrowable>(t, make(t, paeClass));
    PROTECT(t, result);

    t->m->processor->invoke(t, paeConstructor, result, exception);

    t->exception = result;
  }
}

uint64_t jvmDoPrivileged(Thread* t, uintptr_t* arguments)
{
  jobject action = reinterpret_cast<jobject>(arguments[0]);
  jboolean wrapException = arguments[1];

  // todo: cache these class and method lookups in the t->m->classpath
  // object:

  GcClass* privilegedAction = resolveClass(
      t, roots(t)->bootLoader(), "java/security/PrivilegedAction");

  GcMethod* method;
  if (instanceOf(t, privilegedAction, *action)) {
    method = resolveMethod(t, privilegedAction, "run", "()Ljava/lang/Object;");
  } else {
    GcClass* privilegedExceptionAction = resolveClass(
        t, roots(t)->bootLoader(), "java/security/PrivilegedExceptionAction");

    method = resolveMethod(
        t, privilegedExceptionAction, "run", "()Ljava/lang/Object;");
  }

  THREAD_RESOURCE(t, jboolean, wrapException, maybeWrap(t, wrapException));

  return reinterpret_cast<uint64_t>(
      makeLocalReference(t, t->m->processor->invoke(t, method, *action)));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_DoPrivileged)(Thread* t,
                             jclass,
                             jobject action,
                             jobject,
                             jboolean wrapException)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(action), wrapException};

  return reinterpret_cast<jobject>(run(t, jvmDoPrivileged, arguments));
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetInheritedAccessControlContext)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_GetStackAccessControlContext)(Thread*, jclass)
{
  return 0;
}

extern "C" AVIAN_EXPORT void* JNICALL EXPORT(JVM_RegisterSignal)(jint, void*)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL EXPORT(JVM_RaiseSignal)(jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_FindSignal)(const char*)
{
  return -1;
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_DesiredAssertionStatus)(Thread*, jclass, jclass)
{
  return false;
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_AssertionStatusDirectives)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL EXPORT(JVM_SupportsCX8)()
{
  return true;
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetClassNameUTF)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_GetClassCPTypes)(Thread*, jclass, unsigned char*)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetClassCPEntriesCount)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetClassFieldsCount)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetClassMethodsCount)(Thread*, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(
    JVM_GetMethodIxExceptionIndexes)(Thread*, jclass, jint, unsigned short*)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxExceptionsCount)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_GetMethodIxByteCode)(Thread*, jclass, jint, unsigned char*)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxByteCodeLength)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_GetMethodIxExceptionTableEntry)(
    Thread*,
    jclass,
    jint,
    jint,
    local::JVM_ExceptionTableEntryType*)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxExceptionTableLength)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetFieldIxModifiers)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxModifiers)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxLocalsCount)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxArgsSize)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetMethodIxMaxStack)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsConstructorIx)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsVMGeneratedMethodIx)(Thread*, jclass, int)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetMethodIxNameUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetMethodIxSignatureUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPFieldNameUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPMethodNameUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPMethodSignatureUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPFieldSignatureUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPClassNameUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPFieldClassNameUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT const char* JNICALL
    EXPORT(JVM_GetCPMethodClassNameUTF)(Thread*, jclass, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetCPFieldModifiers)(Thread*, jclass, int, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetCPMethodModifiers)(Thread*, jclass, int, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_ReleaseUTF)(const char*)
{
  abort();
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_IsSameClassPackage)(Thread*, jclass, jclass)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetLastErrorString)(char* dst, int length)
{
  strncpy(dst, strerror(errno), length);
  return strlen(dst);
}

extern "C" AVIAN_EXPORT char* JNICALL EXPORT(JVM_NativePath)(char* path)
{
  return path;
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Open)(const char* path, jint flags, jint mode)
{
  int r = OPEN(path, flags & 0xFFFF, mode);
  if (r == -1) {
    return errno == EEXIST ? JVM_EEXIST : -1;
  } else {
    return r;
  }
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_Close)(jint fd)
{
  return CLOSE(fd);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Read)(jint fd, char* dst, jint length)
{
  return READ(fd, dst, length);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Write)(jint fd, char* src, jint length)
{
  return WRITE(fd, src, length);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Available)(jint fd, jlong* result)
{
  struct STAT buffer;
  int n;
  if (FSTAT(fd, &buffer) >= 0
      and (S_ISCHR(buffer.st_mode) or S_ISFIFO(buffer.st_mode)
           or S_ISSOCK(buffer.st_mode)) and local::pipeAvailable(fd, &n)) {
    *result = n;
    return 1;
  }

  int current = LSEEK(fd, 0, SEEK_CUR);
  if (current == -1)
    return 0;

  int end = LSEEK(fd, 0, SEEK_END);
  if (end == -1)
    return 0;

  if (LSEEK(fd, current, SEEK_SET) == -1)
    return 0;

  *result = end - current;
  return 1;
}

extern "C" AVIAN_EXPORT jlong JNICALL
    EXPORT(JVM_Lseek)(jint fd, jlong offset, jint seek)
{
  return LSEEK(fd, offset, seek);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_SetLength)(jint fd, jlong length)
{
#ifdef PLATFORM_WINDOWS
  HANDLE h = reinterpret_cast<HANDLE>(_get_osfhandle(fd));
  if (h == INVALID_HANDLE_VALUE) {
    errno = EBADF;
    return -1;
  }

  long high = length >> 32;
  DWORD r = SetFilePointer(h, static_cast<long>(length), &high, FILE_BEGIN);
  if (r == 0xFFFFFFFF and GetLastError() != NO_ERROR) {
    errno = EIO;
    return -1;
  }

  if (SetEndOfFile(h)) {
    return 0;
  } else {
    errno = EIO;
    return -1;
  }
#else
  return ftruncate(fd, length);
#endif
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_Sync)(jint fd)
{
#ifdef PLATFORM_WINDOWS
  HANDLE h = reinterpret_cast<HANDLE>(_get_osfhandle(fd));
  if (h == INVALID_HANDLE_VALUE) {
    errno = EBADF;
    return -1;
  }

  if (FlushFileBuffers(h)) {
    return 0;
  } else {
    errno = EIO;
    return -1;
  }
#else
  return fsync(fd);
#endif
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_InitializeSocketLibrary)()
{
#ifdef PLATFORM_WINDOWS
  static bool wsaInitialized = false;
  if (not wsaInitialized) {
    WSADATA data;
    int r = WSAStartup(MAKEWORD(2, 2), &data);
    if (r or LOBYTE(data.wVersion) != 2 or HIBYTE(data.wVersion) != 2) {
      return -1;
    } else {
      wsaInitialized = true;
    }
  }
#endif
  return 0;
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Socket)(jint domain, jint type, jint protocol)
{
  return socket(domain, type, protocol);
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_SocketClose)(jint socket)
{
#ifdef PLATFORM_WINDOWS
  return closesocket(socket);
#else
  return close(socket);
#endif
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_SocketShutdown)(jint socket, jint how)
{
  return shutdown(socket, how);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Recv)(jint socket, char* dst, jint count, jint flags)
{
  return recv(socket, dst, count, flags);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Send)(jint socket, char* src, jint count, jint flags)
{
  return send(socket, src, count, flags);
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_Timeout)(int, long)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_Listen)(jint socket, jint count)
{
  return listen(socket, count);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Connect)(jint socket, sockaddr* address, jint addressLength)
{
  return connect(socket, address, addressLength);
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Bind)(jint, struct sockaddr*, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_Accept)(jint socket,
                       struct sockaddr* address,
                       jint* addressLength)
{
  socklen_t length = *addressLength;
  int r = accept(socket, address, &length);
  *addressLength = length;
  return r;
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_RecvFrom)(jint, char*, int, int, struct sockaddr*, int*)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_SendTo)(jint, char*, int, int, struct sockaddr*, int)
{
  abort();
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_SocketAvailable)(jint socket, jint* count)
{
#ifdef PLATFORM_WINDOWS
  unsigned long c = *count;
  int r = ioctlsocket(socket, FIONREAD, &c);
  *count = c;
  return r;
#else
  return ioctl(socket, FIONREAD, count) < 0 ? 0 : 1;
#endif
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_GetSockName)(jint socket,
                            struct sockaddr* address,
                            int* addressLength)
{
  socklen_t length = *addressLength;
  int r = getsockname(socket, address, &length);
  *addressLength = length;
  return r;
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_GetSockOpt)(jint socket,
                                                            int level,
                                                            int optionName,
                                                            char* optionValue,
                                                            int* optionLength)
{
  socklen_t length = *optionLength;
  int rv = getsockopt(socket, level, optionName, optionValue, &length);
  *optionLength = length;
  return rv;
}

extern "C" AVIAN_EXPORT jint JNICALL
    EXPORT(JVM_SetSockOpt)(jint socket,
                           int level,
                           int optionName,
                           const char* optionValue,
                           int optionLength)
{
  return setsockopt(socket, level, optionName, optionValue, optionLength);
}

extern "C" AVIAN_EXPORT struct protoent* JNICALL
    EXPORT(JVM_GetProtoByName)(char*)
{
  abort();
}

extern "C" AVIAN_EXPORT struct hostent* JNICALL
    EXPORT(JVM_GetHostByAddr)(const char*, int, int)
{
  abort();
}

extern "C" AVIAN_EXPORT struct hostent* JNICALL EXPORT(JVM_GetHostByName)(char*)
{
  abort();
}

extern "C" AVIAN_EXPORT int JNICALL
    EXPORT(JVM_GetHostName)(char* name, int length)
{
  return gethostname(name, length);
}

extern "C" AVIAN_EXPORT void* JNICALL EXPORT(JVM_RawMonitorCreate)(void)
{
  System* s = local::globalMachine->system;
  System::Monitor* lock;
  if (s->success(s->make(&lock))) {
    return lock;
  } else {
    return 0;
  }
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_RawMonitorDestroy)(void* lock)
{
  static_cast<System::Monitor*>(lock)->dispose();
}

extern "C" AVIAN_EXPORT jint JNICALL EXPORT(JVM_RawMonitorEnter)(void* lock)
{
  static_cast<System::Monitor*>(lock)
      ->acquire(static_cast<Thread*>(local::globalMachine->localThread->get())
                    ->systemThread);

  return 0;
}

extern "C" AVIAN_EXPORT void JNICALL EXPORT(JVM_RawMonitorExit)(void* lock)
{
  static_cast<System::Monitor*>(lock)
      ->release(static_cast<Thread*>(local::globalMachine->localThread->get())
                    ->systemThread);
}

int JNICALL GetVersion(Thread*)
{
  return JMM_VERSION_1_0;
}

uint64_t getInputArgumentArray(Thread* t, uintptr_t*)
{
  object array
      = makeObjectArray(t, type(t, GcString::Type), t->m->argumentCount);
  PROTECT(t, array);

  for (unsigned i = 0; i < t->m->argumentCount; ++i) {
    GcString* argument = makeString(t, t->m->arguments[i]);
    setField(t, array, ArrayBody + (i * BytesPerWord), argument);
  }

  return reinterpret_cast<uintptr_t>(makeLocalReference(t, array));
}

jobjectArray JNICALL GetInputArgumentArray(Thread* t)
{
  return reinterpret_cast<jobjectArray>(run(t, getInputArgumentArray, 0));
}

jint JNICALL GetOptionalSupport(Thread*, jmmOptionalSupport* support)
{
  memset(support, 0, sizeof(jmmOptionalSupport));
  return 0;
}

jlong JNICALL GetLongAttribute(Thread* t, jobject, jmmLongAttribute attribute)
{
  const unsigned JMM_JVM_INIT_DONE_TIME_MS = 7;

  switch (attribute) {
  case JMM_JVM_INIT_DONE_TIME_MS:
    return 0;

  default:
    abort(t);
  }
}

jboolean JNICALL GetBoolAttribute(Thread* t, jmmBoolAttribute attribute)
{
  const unsigned JMM_THREAD_CPU_TIME = 24;
  const unsigned JMM_THREAD_ALLOCATED_MEMORY = 25;

  switch (attribute) {
  case JMM_THREAD_CPU_TIME:
  case JMM_THREAD_ALLOCATED_MEMORY:
    return false;

  default:
    abort(t);
  }
}

uint64_t getMemoryManagers(Thread* t, uintptr_t*)
{
  return reinterpret_cast<uintptr_t>(makeLocalReference(
      t,
      makeObjectArray(t,
                      resolveClass(t,
                                   roots(t)->bootLoader(),
                                   "java/lang/management/MemoryManagerMXBean"),
                      0)));
}

jobjectArray JNICALL GetMemoryManagers(Thread* t, jobject)
{
  return reinterpret_cast<jobjectArray>(run(t, getMemoryManagers, 0));
}

uint64_t getMemoryPools(Thread* t, uintptr_t*)
{
  return reinterpret_cast<uintptr_t>(makeLocalReference(
      t,
      makeObjectArray(t,
                      resolveClass(t,
                                   roots(t)->bootLoader(),
                                   "java/lang/management/MemoryPoolMXBean"),
                      0)));
}

jobjectArray JNICALL GetMemoryPools(Thread* t, jobject)
{
  return reinterpret_cast<jobjectArray>(run(t, getMemoryPools, 0));
}

extern "C" AVIAN_EXPORT void* JNICALL EXPORT(JVM_GetManagement)(jint version)
{
  if (version == JMM_VERSION_1_0) {
    JmmInterface* interface = &(static_cast<MyClasspath*>(
                                    local::globalMachine->classpath)
                                    ->jmmInterface);

    memset(interface, 0, sizeof(JmmInterface));

    interface->GetVersion = GetVersion;
    interface->GetOptionalSupport = GetOptionalSupport;
    interface->GetLongAttribute = GetLongAttribute;
    interface->GetBoolAttribute = GetBoolAttribute;
    interface->GetMemoryManagers = GetMemoryManagers;
    interface->GetMemoryPools = GetMemoryPools;
    interface->GetInputArgumentArray = GetInputArgumentArray;

    return interface;
  } else {
    return 0;
  }
}

extern "C" AVIAN_EXPORT jobject JNICALL
    EXPORT(JVM_InitAgentProperties)(Thread*, jobject)
{
  abort();
}

uint64_t getEnclosingMethodInfo(Thread* t, uintptr_t* arguments)
{
  jclass c = reinterpret_cast<jclass>(arguments[0]);
  GcClass* class_ = (*c)->vmClass();
  PROTECT(t, class_);

  GcClassAddendum* addendum = class_->addendum();
  if (addendum) {
    object enclosingClass = addendum->enclosingClass();
    if (enclosingClass) {
      PROTECT(t, enclosingClass);

      object array = makeObjectArray(t, type(t, GcJobject::Type), 3);
      PROTECT(t, array);

      enclosingClass = getJClass(
          t,
          resolveClass(
              t, class_->loader(), cast<GcByteArray>(t, enclosingClass)));

      setField(t, array, ArrayBody, enclosingClass);

      GcPair* enclosingMethod = cast<GcPair>(t, addendum->enclosingMethod());

      if (enclosingMethod) {
        PROTECT(t, enclosingMethod);

        GcString* name = t->m->classpath->makeString(
            t,
            enclosingMethod->first(),
            0,
            cast<GcByteArray>(t, enclosingMethod->first())->length() - 1);

        setField(t, array, ArrayBody + BytesPerWord, name);

        GcString* spec = t->m->classpath->makeString(
            t,
            enclosingMethod->second(),
            0,
            cast<GcByteArray>(t, enclosingMethod->second())->length() - 1);

        setField(t, array, ArrayBody + (2 * BytesPerWord), spec);
      }

      return reinterpret_cast<uintptr_t>(makeLocalReference(t, array));
    }
  }
  return 0;
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetEnclosingMethodInfo)(Thread* t, jclass c)
{
  uintptr_t arguments[] = {reinterpret_cast<uintptr_t>(c)};

  return reinterpret_cast<jobjectArray>(
      run(t, getEnclosingMethodInfo, arguments));
}

extern "C" AVIAN_EXPORT jintArray JNICALL
    EXPORT(JVM_GetThreadStateValues)(JNIEnv*, jint)
{
  abort();
}

extern "C" AVIAN_EXPORT jobjectArray JNICALL
    EXPORT(JVM_GetThreadStateNames)(JNIEnv*, jint, jintArray)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_GetVersionInfo)(JNIEnv*,
                               local::jvm_version_info* info,
                               size_t size)
{
  memset(info, 0, size);
  info->jvm_version = 0x01070000;
}

extern "C" AVIAN_EXPORT jboolean JNICALL
    EXPORT(JVM_CX8Field)(JNIEnv*, jobject*, jfieldID*, jlong, jlong)
{
  abort();
}

extern "C" AVIAN_EXPORT void JNICALL
    EXPORT(JVM_SetNativeThreadName)(JNIEnv*, jobject, jstring)
{
  abort();
}

}  // namespace local

}  // namespace

extern "C" AVIAN_EXPORT int jio_vsnprintf(char* dst,
                                          size_t size,
                                          const char* format,
                                          va_list a)
{
  return vm::vsnprintf(dst, size, format, a);
}

extern "C" AVIAN_EXPORT int jio_vfprintf(FILE* stream,
                                         const char* format,
                                         va_list a)
{
  return vfprintf(stream, format, a);
}

#ifdef PLATFORM_WINDOWS
extern "C" AVIAN_EXPORT void* JNICALL EXPORT(JVM_GetThreadInterruptEvent)()
{
  // hack: We don't want to expose thread interruption implementation
  // details, so we give the class library a fake event to play with.
  // This means that threads won't be interruptable when blocked in
  // Process.waitFor.
  static HANDLE fake = 0;
  if (fake == 0) {
    fake = CreateEvent(0, true, false, 0);
  }
  return fake;
}

namespace {
HMODULE jvmHandle = 0;
}

extern "C" int JDK_InitJvmHandle()
{
  jvmHandle = GetModuleHandle(0);
  return jvmHandle != 0;
}

extern "C" void* JDK_FindJvmEntry(const char* name)
{
  return voidPointer(GetProcAddress(jvmHandle, name));
}

#ifdef AVIAN_OPENJDK_SRC

extern "C" char* findJavaTZ_md(const char*, const char*);

extern "C" AVIAN_EXPORT int64_t JNICALL
    Avian_java_util_TimeZone_getSystemTimeZoneID(Thread* t,
                                                 object,
                                                 uintptr_t* arguments)
{
  // On Windows, findJavaTZ_md loads tzmappings from the filesystem
  // using fopen, so we have no opportunity to make it read straight
  // from the embedded JAR file as with files read from Java code.
  // Therefore, we must extract tzmappings to a temporary location
  // before calling findJavaTZ_md.  We could avoid this by
  // implementing findJavaTZ_md ourselves from scratch, but that would
  // be a lot of code to implement and maintain.

  GcString* country = cast<GcString>(t, reinterpret_cast<object>(arguments[1]));

  THREAD_RUNTIME_ARRAY(t, char, countryChars, country->length(t) + 1);
  stringChars(t, country, RUNTIME_ARRAY_BODY(countryChars));

  local::MyClasspath* cp = static_cast<local::MyClasspath*>(t->m->classpath);

  local::EmbeddedFile ef(cp, cp->tzMappings, cp->tzMappingsLength);
  if (ef.jar == 0 or ef.jarLength == 0 or ef.pathLength == 0) {
    return 0;
  }

  Finder* finder = getFinder(t, ef.jar, ef.jarLength);
  if (finder == 0) {
    return 0;
  }

  System::Region* r = finder->find(ef.path);
  if (r == 0) {
    return 0;
  }

  THREAD_RESOURCE(t, System::Region*, r, r->dispose());

  char tmpPath[MAX_PATH + 1];
  GetTempPathA(MAX_PATH, tmpPath);

  char tmpDir[MAX_PATH + 1];
  vm::snprintf(tmpDir, MAX_PATH, "%s/avian-tmp", tmpPath);
  if (_mkdir(tmpDir) != 0 and errno != EEXIST) {
    return 0;
  }

  THREAD_RESOURCE(t, char*, tmpDir, rmdir(tmpDir));

  char libDir[MAX_PATH + 1];
  vm::snprintf(libDir, MAX_PATH, "%s/lib", tmpDir);
  if (mkdir(libDir) != 0 and errno != EEXIST) {
    return 0;
  }

  THREAD_RESOURCE(t, char*, libDir, rmdir(libDir));

  char file[MAX_PATH + 1];
  vm::snprintf(file, MAX_PATH, "%s/tzmappings", libDir);
  FILE* out = vm::fopen(file, "wb");
  if (out == 0) {
    return 0;
  }

  THREAD_RESOURCE(t, char*, file, unlink(file));
  THREAD_RESOURCE(t, FILE*, out, fclose(out));

  if (fwrite(r->start(), 1, r->length(), out) != r->length()
      or fflush(out) != 0) {
    return 0;
  }

  char* javaTZ = findJavaTZ_md(tmpDir, RUNTIME_ARRAY_BODY(countryChars));
  if (javaTZ) {
    THREAD_RESOURCE(t, char*, javaTZ, free(javaTZ));

    return reinterpret_cast<int64_t>(makeString(t, "%s", javaTZ));
  } else {
    return 0;
  }
}
#else   // not AVIAN_OPENJDK_SRC
extern "C" AVIAN_EXPORT int jio_snprintf(char* dst,
                                         size_t size,
                                         const char* format,
                                         ...)
{
  va_list a;
  va_start(a, format);

  int r = jio_vsnprintf(dst, size, format, a);

  va_end(a);

  return r;
}

extern "C" AVIAN_EXPORT int jio_fprintf(FILE* stream, const char* format, ...)
{
  va_list a;
  va_start(a, format);

  int r = jio_vfprintf(stream, format, a);

  va_end(a);

  return r;
}
#endif  // not AVIAN_OPENJDK_SRC
#endif  // PLATFORM_WINDOWS