ref: c101325aaf8ed0ec3c8c4ff4b7d425bba799825a
dir: /src/runtime/config-windows-64.h/
/*
* Various platform specific configuration.
*/
/*
* Include stdio functions.
* Without this none of the file I/O in System.IO is available.
*/
#define WANT_STDIO 1
/*
* Include ops for floating point arithmetic.
* Without this +,-,* etc will not be available for the Double type.
*/
#define WANT_FLOAT 1
/*
* Include <math.h>
* Without this, exp,sin, etc are not available.
*/
#define WANT_MATH 1
/*
* Include MD5 checksumming code
*/
#define WANT_MD5 1
/*
* Include profiling code
*/
#define WANT_TICK 1
/*
* Number of bits in a word. Only 32 and 64 are supported.
*/
//#define WORD_SIZE 64
/*
* This is Windows
*/
#define ISWINDOWS 1
#include <inttypes.h>
/*
* Find First Set
* This macro must be defined.
* It returns the number of the least significant bit that is set.
* Numberings starts from 1. If no bit is set, it should return 0.
*/
#include <intrin.h>
//#pragma warning(disable : 4996)
#pragma intrinsic(_BitScanForward64)
static inline int
ffs(int64_t arg)
{
unsigned long r;
if (_BitScanForward64(&r, arg))
return (int)(r+1);
else
return 0;
}
#define FFS ffs
/*
* This is the character used for comma-separation in printf.
* Defaults to "'".
* Windows does not support this.
*/
#define PCOMMA ""
/*
* Get a raw input character.
* If undefined, the default always returns -1
*/
/* #define GETRAW getraw */
/*
* Get time since some epoch in milliseconds.
* If undefined, return 0.
*/
#define GETTIMEMILLI gettimemilli
#define WIN32_LEAN_AND_MEAN
#include <Windows.h>
uint64_t
gettimemilli(void)
{
static const uint64_t EPOCH = ((uint64_t) 116444736000000000ULL);
SYSTEMTIME system_time;
FILETIME file_time;
uint64_t time, msec;
GetSystemTime( &system_time );
SystemTimeToFileTime( &system_time, &file_time );
time = ((uint64_t)file_time.dwLowDateTime ) ;
time += ((uint64_t)file_time.dwHighDateTime) << 32;
msec = (time - EPOCH) / 10000L;
//msec = time + system_time.wMilliseconds;
return msec;
}
/* Make this empty */
#define NORETURN
/*
* The ERR macro should report an error and exit.
* If not defined, a generic one will be used.
*/
/* #define ERR(s) */
/* #define ERR1(s,a) */
#define GCRED 1 /* do some reductions during GC */
#define FASTTAGS 1 /* compute tag by pointer subtraction */
#define INTTABLE 1 /* use fixed table of small INT nodes */
#define SANITY 1 /* do some sanity checks */
#define STACKOVL 1 /* check for stack overflow */