Commit d443a744 authored by rrt's avatar rrt

[project @ 2000-03-21 11:33:12 by rrt]

Made them build on mingw32 again (problems with getourtimeofday, which
shouldn't be needed under mingw anyway).
parent ffdc9baf
/* -----------------------------------------------------------------------------
* $Id: Itimer.c,v 1.11 2000/03/20 09:42:49 andy Exp $
* $Id: Itimer.c,v 1.12 2000/03/21 11:33:12 rrt Exp $
*
* (c) The GHC Team, 1995-1999
*
......@@ -239,6 +239,7 @@ unblock_vtalrm_signal(void)
}
#endif
#if !defined(HAVE_SETITIMER) && !defined(mingw32_TARGET_OS)
unsigned int
getourtimeofday(void)
{
......@@ -246,3 +247,4 @@ getourtimeofday(void)
gettimeofday(&tv, (struct timezone *) NULL);
return (tv.tv_sec * 1000000 + tv.tv_usec);
}
#endif
/* -----------------------------------------------------------------------------
* $Id: PrimOps.hc,v 1.48 2000/03/20 15:49:56 panne Exp $
* $Id: PrimOps.hc,v 1.49 2000/03/21 11:33:12 rrt Exp $
*
* (c) The GHC Team, 1998-2000
*
......@@ -1017,7 +1017,7 @@ FN_(delayzh_fast)
/* Add on ticks_since_select, since these will be subtracted at
* the next awaitEvent call.
*/
#if defined(HAVE_SETITIMER)
#if defined(HAVE_SETITIMER) || defined(mingw32_TARGET_OS)
CurrentTSO->block_info.delay = R1.i + ticks_since_select;
#else
CurrentTSO->block_info.target = R1.i + getourtimeofday();
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment