vm/mvm-windows.cpp

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