ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/libev/ev.c
(Generate patch)

Comparing libev/ev.c (file contents):
Revision 1.505 by root, Wed Jul 10 14:25:35 2019 UTC vs.
Revision 1.509 by root, Sat Aug 17 05:30:16 2019 UTC

… …
544#define EV_TSTAMP_HUGE \ 544#define EV_TSTAMP_HUGE \
545 (sizeof (time_t) >= 8 ? 10000000000000. \ 545 (sizeof (time_t) >= 8 ? 10000000000000. \
546 : 0 < (time_t)4294967295 ? 4294967295. \ 546 : 0 < (time_t)4294967295 ? 4294967295. \
547 : 2147483647.) \ 547 : 2147483647.) \
548 548
549#ifndef EV_TS_CONST
550# define EV_TS_CONST(nv) nv
551# define EV_TS_TO_MSEC(a) a * 1e3 + 0.9999
552# define EV_TS_FROM_USEC(us) us * 1e-6
549#define EV_TV_SET(tv,t) do { tv.tv_sec = (long)t; tv.tv_usec = (long)((t - tv.tv_sec) * 1e6); } while (0) 553# define EV_TV_SET(tv,t) do { tv.tv_sec = (long)t; tv.tv_usec = (long)((t - tv.tv_sec) * 1e6); } while (0)
550#define EV_TS_SET(ts,t) do { ts.tv_sec = (long)t; ts.tv_nsec = (long)((t - ts.tv_sec) * 1e9); } while (0) 554# define EV_TS_SET(ts,t) do { ts.tv_sec = (long)t; ts.tv_nsec = (long)((t - ts.tv_sec) * 1e9); } while (0)
551#define EV_TV_GET(tv) ((tv).tv_sec + (tv).tv_usec * 1e6) 555# define EV_TV_GET(tv) ((tv).tv_sec + (tv).tv_usec * 1e-6)
552#define EV_TS_GET(ts) ((ts).tv_sec + (ts).tv_nsec * 1e9) 556# define EV_TS_GET(ts) ((ts).tv_sec + (ts).tv_nsec * 1e-9)
557#endif
553 558
554/* the following is ecb.h embedded into libev - use update_ev_c to update from an external copy */ 559/* the following is ecb.h embedded into libev - use update_ev_c to update from an external copy */
555/* ECB.H BEGIN */ 560/* ECB.H BEGIN */
556/* 561/*
557 * libecb - http://software.schmorp.de/pkg/libecb 562 * libecb - http://software.schmorp.de/pkg/libecb
… …
1963 static struct ev_loop default_loop_struct; 1968 static struct ev_loop default_loop_struct;
1964 EV_API_DECL struct ev_loop *ev_default_loop_ptr = 0; /* needs to be initialised to make it a definition despite extern */ 1969 EV_API_DECL struct ev_loop *ev_default_loop_ptr = 0; /* needs to be initialised to make it a definition despite extern */
1965 1970
1966#else 1971#else
1967 1972
1968 EV_API_DECL ev_tstamp ev_rt_now = 0; /* needs to be initialised to make it a definition despite extern */ 1973 EV_API_DECL ev_tstamp ev_rt_now = EV_TS_CONST (0.); /* needs to be initialised to make it a definition despite extern */
1969 #define VAR(name,decl) static decl; 1974 #define VAR(name,decl) static decl;
1970 #include "ev_vars.h" 1975 #include "ev_vars.h"
1971 #undef VAR 1976 #undef VAR
1972 1977
1973 static int ev_default_loop_ptr; 1978 static int ev_default_loop_ptr;
… …
2031#endif 2036#endif
2032 2037
2033void 2038void
2034ev_sleep (ev_tstamp delay) EV_NOEXCEPT 2039ev_sleep (ev_tstamp delay) EV_NOEXCEPT
2035{ 2040{
2036 if (delay > 0.) 2041 if (delay > EV_TS_CONST (0.))
2037 { 2042 {
2038#if EV_USE_NANOSLEEP 2043#if EV_USE_NANOSLEEP
2039 struct timespec ts; 2044 struct timespec ts;
2040 2045
2041 EV_TS_SET (ts, delay); 2046 EV_TS_SET (ts, delay);
2042 nanosleep (&ts, 0); 2047 nanosleep (&ts, 0);
2043#elif defined _WIN32 2048#elif defined _WIN32
2044 /* maybe this should round up, as ms is very low resolution */ 2049 /* maybe this should round up, as ms is very low resolution */
2045 /* compared to select (µs) or nanosleep (ns) */ 2050 /* compared to select (µs) or nanosleep (ns) */
2046 Sleep ((unsigned long)(delay * 1e3)); 2051 Sleep ((unsigned long)(EV_TS_TO_MSEC (delay)));
2047#else 2052#else
2048 struct timeval tv; 2053 struct timeval tv;
2049 2054
2050 /* here we rely on sys/time.h + sys/types.h + unistd.h providing select */ 2055 /* here we rely on sys/time.h + sys/types.h + unistd.h providing select */
2051 /* something not guaranteed by newer posix versions, but guaranteed */ 2056 /* something not guaranteed by newer posix versions, but guaranteed */
… …
2401 2406
2402 /* find minimum child */ 2407 /* find minimum child */
2403 if (ecb_expect_true (pos + DHEAP - 1 < E)) 2408 if (ecb_expect_true (pos + DHEAP - 1 < E))
2404 { 2409 {
2405 /* fast path */ (minpos = pos + 0), (minat = ANHE_at (*minpos)); 2410 /* fast path */ (minpos = pos + 0), (minat = ANHE_at (*minpos));
2406 if ( ANHE_at (pos [1]) < minat) (minpos = pos + 1), (minat = ANHE_at (*minpos)); 2411 if ( minat > ANHE_at (pos [1])) (minpos = pos + 1), (minat = ANHE_at (*minpos));
2407 if ( ANHE_at (pos [2]) < minat) (minpos = pos + 2), (minat = ANHE_at (*minpos)); 2412 if ( minat > ANHE_at (pos [2])) (minpos = pos + 2), (minat = ANHE_at (*minpos));
2408 if ( ANHE_at (pos [3]) < minat) (minpos = pos + 3), (minat = ANHE_at (*minpos)); 2413 if ( minat > ANHE_at (pos [3])) (minpos = pos + 3), (minat = ANHE_at (*minpos));
2409 } 2414 }
2410 else if (pos < E) 2415 else if (pos < E)
2411 { 2416 {
2412 /* slow path */ (minpos = pos + 0), (minat = ANHE_at (*minpos)); 2417 /* slow path */ (minpos = pos + 0), (minat = ANHE_at (*minpos));
2413 if (pos + 1 < E && ANHE_at (pos [1]) < minat) (minpos = pos + 1), (minat = ANHE_at (*minpos)); 2418 if (pos + 1 < E && minat > ANHE_at (pos [1])) (minpos = pos + 1), (minat = ANHE_at (*minpos));
2414 if (pos + 2 < E && ANHE_at (pos [2]) < minat) (minpos = pos + 2), (minat = ANHE_at (*minpos)); 2419 if (pos + 2 < E && minat > ANHE_at (pos [2])) (minpos = pos + 2), (minat = ANHE_at (*minpos));
2415 if (pos + 3 < E && ANHE_at (pos [3]) < minat) (minpos = pos + 3), (minat = ANHE_at (*minpos)); 2420 if (pos + 3 < E && minat > ANHE_at (pos [3])) (minpos = pos + 3), (minat = ANHE_at (*minpos));
2416 } 2421 }
2417 else 2422 else
2418 break; 2423 break;
2419 2424
2420 if (ANHE_at (he) <= minat) 2425 if (ANHE_at (he) <= minat)
… …
2428 2433
2429 heap [k] = he; 2434 heap [k] = he;
2430 ev_active (ANHE_w (he)) = k; 2435 ev_active (ANHE_w (he)) = k;
2431} 2436}
2432 2437
2433#else /* 4HEAP */ 2438#else /* not 4HEAP */
2434 2439
2435#define HEAP0 1 2440#define HEAP0 1
2436#define HPARENT(k) ((k) >> 1) 2441#define HPARENT(k) ((k) >> 1)
2437#define UPHEAP_DONE(p,k) (!(p)) 2442#define UPHEAP_DONE(p,k) (!(p))
2438 2443
… …
3542 { 3547 {
3543 ev_at (w) += w->repeat; 3548 ev_at (w) += w->repeat;
3544 if (ev_at (w) < mn_now) 3549 if (ev_at (w) < mn_now)
3545 ev_at (w) = mn_now; 3550 ev_at (w) = mn_now;
3546 3551
3547 assert (("libev: negative ev_timer repeat value found while processing timers", w->repeat > 0.)); 3552 assert (("libev: negative ev_timer repeat value found while processing timers", w->repeat > EV_TS_CONST (0.)));
3548 3553
3549 ANHE_at_cache (timers [HEAP0]); 3554 ANHE_at_cache (timers [HEAP0]);
3550 downheap (timers, timercnt, HEAP0); 3555 downheap (timers, timercnt, HEAP0);
3551 } 3556 }
3552 else 3557 else
… …
3683 3688
3684 mn_now = get_clock (); 3689 mn_now = get_clock ();
3685 3690
3686 /* only fetch the realtime clock every 0.5*MIN_TIMEJUMP seconds */ 3691 /* only fetch the realtime clock every 0.5*MIN_TIMEJUMP seconds */
3687 /* interpolate in the meantime */ 3692 /* interpolate in the meantime */
3688 if (ecb_expect_true (mn_now - now_floor < MIN_TIMEJUMP * .5)) 3693 if (ecb_expect_true (mn_now - now_floor < EV_TS_CONST (MIN_TIMEJUMP * .5)))
3689 { 3694 {
3690 ev_rt_now = rtmn_diff + mn_now; 3695 ev_rt_now = rtmn_diff + mn_now;
3691 return; 3696 return;
3692 } 3697 }
3693 3698
… …
3707 ev_tstamp diff; 3712 ev_tstamp diff;
3708 rtmn_diff = ev_rt_now - mn_now; 3713 rtmn_diff = ev_rt_now - mn_now;
3709 3714
3710 diff = odiff - rtmn_diff; 3715 diff = odiff - rtmn_diff;
3711 3716
3712 if (ecb_expect_true ((diff < 0. ? -diff : diff) < MIN_TIMEJUMP)) 3717 if (ecb_expect_true ((diff < EV_TS_CONST (0.) ? -diff : diff) < EV_TS_CONST (MIN_TIMEJUMP)))
3713 return; /* all is well */ 3718 return; /* all is well */
3714 3719
3715 ev_rt_now = ev_time (); 3720 ev_rt_now = ev_time ();
3716 mn_now = get_clock (); 3721 mn_now = get_clock ();
3717 now_floor = mn_now; 3722 now_floor = mn_now;
… …
3726 else 3731 else
3727#endif 3732#endif
3728 { 3733 {
3729 ev_rt_now = ev_time (); 3734 ev_rt_now = ev_time ();
3730 3735
3731 if (ecb_expect_false (mn_now > ev_rt_now || ev_rt_now > mn_now + max_block + MIN_TIMEJUMP)) 3736 if (ecb_expect_false (mn_now > ev_rt_now || ev_rt_now > mn_now + max_block + EV_TS_CONST (MIN_TIMEJUMP)))
3732 { 3737 {
3733 /* adjust timers. this is easy, as the offset is the same for all of them */ 3738 /* adjust timers. this is easy, as the offset is the same for all of them */
3734 timers_reschedule (EV_A_ ev_rt_now - mn_now); 3739 timers_reschedule (EV_A_ ev_rt_now - mn_now);
3735#if EV_PERIODIC_ENABLE 3740#if EV_PERIODIC_ENABLE
3736 periodics_reschedule (EV_A); 3741 periodics_reschedule (EV_A);
… …
3805 3810
3806 /* remember old timestamp for io_blocktime calculation */ 3811 /* remember old timestamp for io_blocktime calculation */
3807 ev_tstamp prev_mn_now = mn_now; 3812 ev_tstamp prev_mn_now = mn_now;
3808 3813
3809 /* update time to cancel out callback processing overhead */ 3814 /* update time to cancel out callback processing overhead */
3810 time_update (EV_A_ 1e100); 3815 time_update (EV_A_ EV_TS_CONST (EV_TSTAMP_HUGE));
3811 3816
3812 /* from now on, we want a pipe-wake-up */ 3817 /* from now on, we want a pipe-wake-up */
3813 pipe_write_wanted = 1; 3818 pipe_write_wanted = 1;
3814 3819
3815 ECB_MEMORY_FENCE; /* make sure pipe_write_wanted is visible before we check for potential skips */ 3820 ECB_MEMORY_FENCE; /* make sure pipe_write_wanted is visible before we check for potential skips */
3816 3821
3817 if (ecb_expect_true (!(flags & EVRUN_NOWAIT || idleall || !activecnt || pipe_write_skipped))) 3822 if (ecb_expect_true (!(flags & EVRUN_NOWAIT || idleall || !activecnt || pipe_write_skipped)))
3818 { 3823 {
3819 waittime = MAX_BLOCKTIME; 3824 waittime = EV_TS_CONST (MAX_BLOCKTIME);
3820 3825
3821 if (timercnt) 3826 if (timercnt)
3822 { 3827 {
3823 ev_tstamp to = ANHE_at (timers [HEAP0]) - mn_now; 3828 ev_tstamp to = ANHE_at (timers [HEAP0]) - mn_now;
3824 if (waittime > to) waittime = to; 3829 if (waittime > to) waittime = to;
… …
3847 sleeptime = io_blocktime - (mn_now - prev_mn_now); 3852 sleeptime = io_blocktime - (mn_now - prev_mn_now);
3848 3853
3849 if (sleeptime > waittime - backend_mintime) 3854 if (sleeptime > waittime - backend_mintime)
3850 sleeptime = waittime - backend_mintime; 3855 sleeptime = waittime - backend_mintime;
3851 3856
3852 if (ecb_expect_true (sleeptime > 0.)) 3857 if (ecb_expect_true (sleeptime > EV_TS_CONST (0.)))
3853 { 3858 {
3854 ev_sleep (sleeptime); 3859 ev_sleep (sleeptime);
3855 waittime -= sleeptime; 3860 waittime -= sleeptime;
3856 } 3861 }
3857 } 3862 }
… …
3931} 3936}
3932 3937
3933void 3938void
3934ev_now_update (EV_P) EV_NOEXCEPT 3939ev_now_update (EV_P) EV_NOEXCEPT
3935{ 3940{
3936 time_update (EV_A_ 1e100); 3941 time_update (EV_A_ EV_TSTAMP_HUGE);
3937} 3942}
3938 3943
3939void 3944void
3940ev_suspend (EV_P) EV_NOEXCEPT 3945ev_suspend (EV_P) EV_NOEXCEPT
3941{ 3946{
… …
4172} 4177}
4173 4178
4174ev_tstamp 4179ev_tstamp
4175ev_timer_remaining (EV_P_ ev_timer *w) EV_NOEXCEPT 4180ev_timer_remaining (EV_P_ ev_timer *w) EV_NOEXCEPT
4176{ 4181{
4177 return ev_at (w) - (ev_is_active (w) ? mn_now : 0.); 4182 return ev_at (w) - (ev_is_active (w) ? mn_now : EV_TS_CONST (0.));
4178} 4183}
4179 4184
4180#if EV_PERIODIC_ENABLE 4185#if EV_PERIODIC_ENABLE
4181ecb_noinline 4186ecb_noinline
4182void 4187void

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines