steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

moved os-windows-nt functions into the vm

db4
Phil Dawes 2009-08-18 20:22:11 +01:00
parent 01ecb11635
commit d48dffcfa0
3 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vm/os-windows-nt.cpp
View File

@ -11,11 +11,6 @@ s64 factorvm::current_micros()
- EPOCH_OFFSET) / 10; - EPOCH_OFFSET) / 10;
} }
s64 current_micros()
{
return vm->current_micros();
}
FACTOR_STDCALL LONG exception_handler(PEXCEPTION_POINTERS pe) FACTOR_STDCALL LONG exception_handler(PEXCEPTION_POINTERS pe)
{ {
PEXCEPTION_RECORD e = (PEXCEPTION_RECORD)pe->ExceptionRecord; PEXCEPTION_RECORD e = (PEXCEPTION_RECORD)pe->ExceptionRecord;
@ -71,17 +66,8 @@ void factorvm::c_to_factor_toplevel(cell quot)
RemoveVectoredExceptionHandler((void *)exception_handler); RemoveVectoredExceptionHandler((void *)exception_handler);
} }
void c_to_factor_toplevel(cell quot)
{
return vm->c_to_factor_toplevel(quot);
}
void factorvm::open_console() void factorvm::open_console()
{ {
} }
void open_console()
{
}
} }

2
vm/os-windows-nt.hpp
View File

@ -19,9 +19,7 @@ typedef char symbol_char;
#define FACTOR_STDCALL __attribute__((stdcall)) #define FACTOR_STDCALL __attribute__((stdcall))
void c_to_factor_toplevel(cell quot);
FACTOR_STDCALL LONG exception_handler(PEXCEPTION_POINTERS pe); FACTOR_STDCALL LONG exception_handler(PEXCEPTION_POINTERS pe);
void open_console();
// SSE traps raise these exception codes, which are defined in internal NT headers // SSE traps raise these exception codes, which are defined in internal NT headers
// but not winbase.h // but not winbase.h

8
vm/vm.hpp
View File

@ -664,18 +664,12 @@ struct factorvm {
void windows_image_path(vm_char *full_path, vm_char *temp_path, unsigned int length); void windows_image_path(vm_char *full_path, vm_char *temp_path, unsigned int length);
bool windows_stat(vm_char *path); bool windows_stat(vm_char *path);
#if defined(WINCE) #if defined(WINNT)
#else /* WINNT */
s64 current_micros(); s64 current_micros();
void c_to_factor_toplevel(cell quot); void c_to_factor_toplevel(cell quot);
void open_console(); void open_console();
// next method here: // next method here:
#endif #endif
#ifdef FACTOR_X86
#endif
#endif #endif
}; };