vm/os-windows-nt.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6
   7 THREADHANDLE start_thread(void *(*start_routine)(void *),void *args){
   8     return (void*) CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)start_routine, args, 0, 0);
   9 }
  10
  11
  12 DWORD dwTlsIndex;
  13
  14 void init_platform_globals()
  15 {
  16         if ((dwTlsIndex = TlsAlloc()) == TLS_OUT_OF_INDEXES) {
  17                 fatal_error("TlsAlloc failed - out of indexes",0);
  18         }
  19 }
  20
  21 void register_vm_with_thread(factorvm *vm)
  22 {
  23         if (! TlsSetValue(dwTlsIndex, vm)) {
  24                 fatal_error("TlsSetValue failed",0);
  25         }
  26 }
  27
  28 factorvm *tls_vm()
  29 {
  30         return (factorvm*)TlsGetValue(dwTlsIndex);
  31 }
  32
  33
  34 s64 current_micros()
  35 {
  36         FILETIME t;
  37         GetSystemTimeAsFileTime(&t);
  38         return (((s64)t.dwLowDateTime | (s64)t.dwHighDateTime<<32)
  39                 - EPOCH_OFFSET) / 10;
  40 }
  41
  42 LONG factorvm::exception_handler(PEXCEPTION_POINTERS pe)
  43 {
  44         PEXCEPTION_RECORD e = (PEXCEPTION_RECORD)pe->ExceptionRecord;
  45         CONTEXT *c = (CONTEXT*)pe->ContextRecord;
  46
  47         if(in_code_heap_p(c->EIP))
  48                 signal_callstack_top = (stack_frame *)c->ESP;
  49         else
  50                 signal_callstack_top = NULL;
  51
  52     switch (e->ExceptionCode) {
  53     case EXCEPTION_ACCESS_VIOLATION:
  54                 signal_fault_addr = e->ExceptionInformation[1];
  55                 c->EIP = (cell)factor::memory_signal_handler_impl;
  56         break;
  57
  58         case STATUS_FLOAT_DENORMAL_OPERAND:
  59         case STATUS_FLOAT_DIVIDE_BY_ZERO:
  60         case STATUS_FLOAT_INEXACT_RESULT:
  61         case STATUS_FLOAT_INVALID_OPERATION:
  62         case STATUS_FLOAT_OVERFLOW:
  63         case STATUS_FLOAT_STACK_CHECK:
  64         case STATUS_FLOAT_UNDERFLOW:
  65         case STATUS_FLOAT_MULTIPLE_FAULTS:
  66         case STATUS_FLOAT_MULTIPLE_TRAPS:
  67                 signal_fpu_status = fpu_status(X87SW(c) | MXCSR(c));
  68                 X87SW(c) = 0;
  69                 MXCSR(c) &= 0xffffffc0;
  70                 c->EIP = (cell)factor::fp_signal_handler_impl;
  71                 break;
  72         case 0x40010006:
  73                 /* If the Widcomm bluetooth stack is installed, the BTTray.exe
  74                 process injects code into running programs. For some reason this
  75                 results in random SEH exceptions with this (undocumented)
  76                 exception code being raised. The workaround seems to be ignoring
  77                 this altogether, since that is what happens if SEH is not
  78                 enabled. Don't really have any idea what this exception means. */
  79                 break;
  80         default:
  81                 signal_number = e->ExceptionCode;
  82                 c->EIP = (cell)factor::misc_signal_handler_impl;
  83                 break;
  84         }
  85         return EXCEPTION_CONTINUE_EXECUTION;
  86 }
  87
  88
  89 FACTOR_STDCALL LONG exception_handler(PEXCEPTION_POINTERS pe)
  90 {
  91         return SIGNAL_VM_PTR()->exception_handler(pe);
  92 }
  93
  94 bool handler_added = 0;
  95
  96 void factorvm::c_to_factor_toplevel(cell quot)
  97 {
  98         if(!handler_added){
  99                 if(!AddVectoredExceptionHandler(0, (PVECTORED_EXCEPTION_HANDLER)factor::exception_handler))
 100                         fatal_error("AddVectoredExceptionHandler failed", 0);
 101                 handler_added = 1;
 102         }
 103         c_to_factor(quot,this);
 104         RemoveVectoredExceptionHandler((void *)factor::exception_handler);
 105 }
 106
 107 void factorvm::open_console()
 108 {
 109 }
 110
 111 }