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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-12-15 03:47:23 -06:00
parent b14c49f1a5 25c2d5d0e4
commit 3726d27718
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/backend/windows/nt/nt.factor
View File

@ -118,3 +118,5 @@ M: winnt (wait-to-read) ( port -- )
] with-destructors ; ] with-destructors ;
M: winnt (init-stdio) init-c-stdio ; M: winnt (init-stdio) init-c-stdio ;
winnt set-io-backend

4
vm/os-windows.c
View File

@ -166,7 +166,7 @@ long getpagesize(void)
return g_pagesize; return g_pagesize;
} }
void sleep_micros(DWORD usec) void sleep_micros(u64 usec)
{ {
Sleep(usec); Sleep((DWORD)(usec / 1000));
} }

9
vm/os-windows.h
View File

@ -20,17 +20,18 @@ typedef wchar_t F_CHAR;
#define STRNCMP wcsncmp #define STRNCMP wcsncmp
#define STRDUP _wcsdup #define STRDUP _wcsdup
#define FIXNUM_FORMAT "%Id"
#define CELL_FORMAT "%lu" #define CELL_FORMAT "%lu"
#define CELL_HEX_FORMAT "%Ix"
#ifdef WIN64 #ifdef WIN64
#define CELL_HEX_FORMAT "%Ix"
#define CELL_HEX_PAD_FORMAT "%016Ix" #define CELL_HEX_PAD_FORMAT "%016Ix"
#define FIXNUM_FORMAT "%Id"
#else #else
#define CELL_HEX_FORMAT "%lx"
#define CELL_HEX_PAD_FORMAT "%08lx" #define CELL_HEX_PAD_FORMAT "%08lx"
#define FIXNUM_FORMAT "%ld"
#endif #endif
#define FIXNUM_FORMAT "%Id"
#define OPEN_READ(path) _wfopen(path,L"rb") #define OPEN_READ(path) _wfopen(path,L"rb")
#define OPEN_WRITE(path) _wfopen(path,L"wb") #define OPEN_WRITE(path) _wfopen(path,L"wb")
@ -49,7 +50,7 @@ void ffi_dlopen(F_DLL *dll);
void *ffi_dlsym(F_DLL *dll, F_SYMBOL *symbol); void *ffi_dlsym(F_DLL *dll, F_SYMBOL *symbol);
void ffi_dlclose(F_DLL *dll); void ffi_dlclose(F_DLL *dll);
void sleep_micros(DWORD msec); void sleep_micros(u64 msec);
INLINE void init_signals(void) {} INLINE void init_signals(void) {}
INLINE void early_init(void) {} INLINE void early_init(void) {}