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

Fix VM compile on 32-bit Windows

db4
U-SLAVA-DFB8FF805\Slava 2008-11-18 18:51:52 -06:00
parent 7fd0a27c0d
commit 2ffecd3acc
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/main-windows-nt.c Normal file → Executable file
View File

@ -15,7 +15,7 @@ int WINAPI WinMain(
szArglist = CommandLineToArgvW(GetCommandLineW(), &nArgs);
if(NULL == szArglist)
{
print_string("CommandLineToArgvW failed\n");
puts("CommandLineToArgvW failed");
return 1;
}

13
vm/os-windows.h
View File

@ -20,13 +20,14 @@ typedef wchar_t F_CHAR;
#define STRNCMP wcsncmp
#define STRDUP _wcsdup
#define CELL_FORMAT "%Iu"
#define CELL_HEX_FORMAT "%Ix"
#ifdef FACTOR_64
#ifdef WIN64
#define CELL_FORMAT "%Iu"
#define CELL_HEX_FORMAT "%Ix"
#define CELL_HEX_PAD_FORMAT "%016Ix"
#else
#define CELL_HEX_PAD_FORMAT "%08Ix"
#define CELL_FORMAT "%lu"
#define CELL_HEX_FORMAT "%lx"
#define CELL_HEX_PAD_FORMAT "%08lx"
#endif
#define FIXNUM_FORMAT "%Id"
@ -34,7 +35,7 @@ typedef wchar_t F_CHAR;
#define OPEN_READ(path) _wfopen(path,L"rb")
#define OPEN_WRITE(path) _wfopen(path,L"wb")
#define print_native_string(string) wprintf(L"%s",arg)
#define print_native_string(string) wprintf(L"%s",string)
/* Difference between Jan 1 00:00:00 1601 and Jan 1 00:00:00 1970 */
#define EPOCH_OFFSET 0x019db1ded53e8000LL