hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

implemented sleep interruption, sort of...

Browse Source
This commit is contained in:
hyunghwan.chung
2019-09-03 06:33:58 +00:00
parent 48734c71a7
commit 4254ea0abe
3 changed files with 63 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
moo/lib/exec.c
View File

@ -219,9 +219,9 @@ static MOO_INLINE void vm_gettime (moo_t* moo, moo_ntime_t* now)
MOO_SUB_NTIME (now, now, &moo->exec_start_time); /* now = now - exec_start_time */
}
static MOO_INLINE void vm_sleep (moo_t* moo, const moo_ntime_t* dur)
static MOO_INLINE int vm_sleep (moo_t* moo, const moo_ntime_t* dur)
{
moo->vmprim.vm_sleep (moo, dur);
return moo->vmprim.vm_sleep(moo, dur);
}
static MOO_INLINE void vm_muxwait (moo_t* moo, const moo_ntime_t* dur)
@ -4878,6 +4878,7 @@ static MOO_INLINE int switch_process_if_needed (moo_t* moo)
{
moo_oop_process_t proc;
signal_timed:
/* waited long enough. signal the semaphore */
proc = signal_semaphore(moo, moo->sem_heap[0]);
@ -4931,9 +4932,17 @@ static MOO_INLINE int switch_process_if_needed (moo_t* moo)
}
else
{
int halting;
/* no running process, no io semaphore */
if ((moo_oop_t)moo->sem_gcfin != moo->_nil && moo->sem_gcfin_sigreq) goto signal_sem_gcfin;
vm_sleep (moo, &ft);
halting = vm_sleep(moo, &ft);
if (halting)
{
vm_gettime (moo, &now);
goto signal_timed;
}
}
vm_gettime (moo, &now);
}

2
moo/lib/moo.h
View File

@ -1201,7 +1201,7 @@ typedef void (*moo_vmprim_muxwait_t) (
moo_vmprim_muxwait_cb_t muxwcb
);
typedef void (*moo_vmprim_sleep_t) (
typedef int (*moo_vmprim_sleep_t) (
moo_t* moo,
const moo_ntime_t* duration
);

39
moo/lib/std.c
View File

@ -380,8 +380,9 @@ struct xtn_t
pthread_mutex_t mtx;
pthread_cond_t cnd;
pthread_cond_t cnd2;
int halting;
#endif
int halting;
} ev;
};
@ -2511,7 +2512,7 @@ static void vm_muxwait (moo_t* moo, const moo_ntime_t* dur, moo_vmprim_muxwait_c
ts.tv_nsec = ns.nsec;
pthread_mutex_lock (&xtn->ev.mtx);
if (xtn->ev.len <= 0 && !xtn->ev.halting)
if (xtn->ev.len <= 0)
{
/* the event buffer is still empty */
pthread_cond_timedwait (&xtn->ev.cnd2, &xtn->ev.mtx, &ts);
@ -2725,10 +2726,13 @@ static void vm_muxwait (moo_t* moo, const moo_ntime_t* dur, moo_vmprim_muxwait_c
# endif
#endif
static void vm_sleep (moo_t* moo, const moo_ntime_t* dur)
static int vm_sleep (moo_t* moo, const moo_ntime_t* dur)
{
#if defined(_WIN32)
xtn_t* xtn = GET_XTN(moo);
if (MOO_UNLIKELY(xtn->ev.halting)) return xtn->ev.halting;
#if defined(_WIN32)
if (xtn->waitable_timer)
{
LARGE_INTEGER li;
@ -2751,9 +2755,10 @@ static void vm_sleep (moo_t* moo, const moo_ntime_t* dur)
#elif defined(macintosh)
/* TODO: ... */
# error NOT IMPLEMENTED
#elif defined(__DOS__) && (defined(_INTELC32_) || defined(__WATCOMC__))
{
clock_t c;
c = clock ();
@ -2777,24 +2782,29 @@ static void vm_sleep (moo_t* moo, const moo_ntime_t* dur)
{
_halt_cpu();
}
#else
#if defined(USE_THREAD)
}
#elif defined(USE_THREAD)
/* the sleep callback is called only if there is no IO semaphore
* waiting. so i can safely call vm_muxwait() without a muxwait callback
* when USE_THREAD is true */
vm_muxwait (moo, dur, MOO_NULL);
#elif defined(HAVE_NANOSLEEP)
{
struct timespec ts;
ts.tv_sec = dur->sec;
ts.tv_nsec = dur->nsec;
nanosleep (&ts, MOO_NULL);
}
#elif defined(HAVE_USLEEP)
usleep (MOO_SECNSEC_TO_USEC(dur->sec, dur->nsec));
#else
# error UNSUPPORT SLEEP
#endif
# error UNSUPPORTED SLEEP
#endif
return 0;
}
static moo_ooi_t vm_getsigfd (moo_t* moo)
@ -3692,15 +3702,8 @@ static void fini_moo (moo_t* moo)
static void halting_moo (moo_t* moo)
{
#if defined(USE_THREAD)
xtn_t* xtn = GET_XTN(moo);
xtn->ev.halting = 1;
pthread_mutex_unlock (&xtn->ev.mtx);
pthread_cond_signal (&xtn->ev.cnd2);
pthread_mutex_unlock (&xtn->ev.mtx);
#else
# error NOT IMPLEMENTED YET
#endif
xtn->ev.halting = 1; /* once set, vm_sleep() is supposed to return without waiting */
}
moo_t* moo_openstd (moo_oow_t xtnsize, const moo_cfgstd_t* cfg, moo_errinf_t* errinfo)