mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 01:37:19 +00:00
Code Issues 1 Releases Wiki Activity

Update timestamp function to work on windows.

Browse Source
This commit is contained in:
Calvin Rose 2020-10-04 15:18:31 -05:00
parent db67538311
commit 2e944931b3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/core/ev.c
View File

@ -68,7 +68,7 @@ typedef struct {
void *data; void *data;
} JanetQueue; } JanetQueue;
#define JANET_MAX_Q_CAPACITY 0x7FFFFFFF #define JANET_MAX_Q_CAPACITY 0x7FFFFFF
static void janet_q_init(JanetQueue *q) { static void janet_q_init(JanetQueue *q) {
q->data = NULL; q->data = NULL;
@ -132,7 +132,7 @@ struct JanetTask {
}; };
/* Min priority queue of timestamps for timeouts. */ /* Min priority queue of timestamps for timeouts. */
typedef uint64_t JanetTimestamp; typedef int64_t JanetTimestamp;
typedef struct JanetTimeout JanetTimeout; typedef struct JanetTimeout JanetTimeout;
struct JanetTimeout { struct JanetTimeout {
JanetTimestamp when; JanetTimestamp when;
@ -639,9 +639,7 @@ void janet_loop(void) {
JANET_THREAD_LOCAL HANDLE janet_vm_iocp = NULL; JANET_THREAD_LOCAL HANDLE janet_vm_iocp = NULL;
static JanetTimestamp ts_now(void) { static JanetTimestamp ts_now(void) {
FILETIME ftime; return (JanetTimestamp) GetTickCount64();
GetSystemTimeAsFileTime(&ftime);
return (uint64_t)(ftime.dwLowDateTime) | ((uint64_t)(ftime.dwHighDateTime) << 32);
} }
void janet_ev_init(void) { void janet_ev_init(void) {
@ -671,9 +669,11 @@ static void janet_unlisten(JanetListenerState *state) {
void janet_loop1_impl(void) { void janet_loop1_impl(void) {
/* Check for timeout */
JanetTimeout to; JanetTimeout to;
memset(&to, 0, sizeof(to)); memset(&to, 0, sizeof(to));
int has_timeout = peek_timeout(&to); int has_timeout = peek_timeout(&to);
ULONG_PTR completionKey = 0; ULONG_PTR completionKey = 0;
DWORD num_bytes_transfered = 0; DWORD num_bytes_transfered = 0;
LPOVERLAPPED overlapped; LPOVERLAPPED overlapped;