vm/mvm-windows.cpp

   1 #include "master.hpp"
   2
   3 namespace factor {
   4
   5 HANDLE boot_thread;
   6
   7 DWORD current_vm_tls_key;
   8
   9 void init_mvm() {
  10   if ((current_vm_tls_key = TlsAlloc()) == TLS_OUT_OF_INDEXES)
  11     fatal_error("TlsAlloc() failed", 0);
  12 }
  13
  14 void register_vm_with_thread(factor_vm* vm) {
  15   if (!TlsSetValue(current_vm_tls_key, vm))
  16     fatal_error("TlsSetValue() failed", 0);
  17 }
  18
  19 factor_vm* current_vm_p() {
  20   return (factor_vm*)TlsGetValue(current_vm_tls_key);
  21 }
  22
  23 }