factor/vm/mvm-unix.cpp

#include "master.hpp"

namespace factor {

pthread_key_t current_vm_tls_key;

void init_mvm() {
  if (pthread_key_create(&current_vm_tls_key, NULL) != 0)
    fatal_error("pthread_key_create() failed", 0);
}

void register_vm_with_thread(factor_vm* vm) {
  pthread_setspecific(current_vm_tls_key, vm);
}

factor_vm* current_vm_p() {
  return (factor_vm*)pthread_getspecific(current_vm_tls_key);
}

}