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

Comparing libev/ev.c (file contents):
Revision 1.167 by root, Sat Dec 8 04:02:31 2007 UTC vs.
Revision 1.174 by root, Tue Dec 11 03:18:33 2007 UTC

222#define MAX_BLOCKTIME 59.743 /* never wait longer than this time (to detect time jumps) */ 222#define MAX_BLOCKTIME 59.743 /* never wait longer than this time (to detect time jumps) */
223/*#define CLEANUP_INTERVAL (MAX_BLOCKTIME * 5.) /* how often to try to free memory and re-check fds */ 223/*#define CLEANUP_INTERVAL (MAX_BLOCKTIME * 5.) /* how often to try to free memory and re-check fds */
224 224
225#if __GNUC__ >= 3 225#if __GNUC__ >= 3
226# define expect(expr,value) __builtin_expect ((expr),(value)) 226# define expect(expr,value) __builtin_expect ((expr),(value))
227# define inline_size static inline /* inline for codesize */
228# if EV_MINIMAL
229# define noinline __attribute__ ((noinline)) 227# define noinline __attribute__ ((noinline))
230# define inline_speed static noinline
231# else
232# define noinline
233# define inline_speed static inline
234# endif
235#else 228#else
236# define expect(expr,value) (expr) 229# define expect(expr,value) (expr)
237# define inline_speed static
238# define inline_size static
239# define noinline 230# define noinline
231# if __STDC_VERSION__ < 199901L
232# define inline
233# endif
240#endif 234#endif
241 235
242#define expect_false(expr) expect ((expr) != 0, 0) 236#define expect_false(expr) expect ((expr) != 0, 0)
243#define expect_true(expr) expect ((expr) != 0, 1) 237#define expect_true(expr) expect ((expr) != 0, 1)
238#define inline_size static inline
239
240#if EV_MINIMAL
241# define inline_speed static noinline
242#else
243# define inline_speed static inline
244#endif
244 245
245#define NUMPRI (EV_MAXPRI - EV_MINPRI + 1) 246#define NUMPRI (EV_MAXPRI - EV_MINPRI + 1)
246#define ABSPRI(w) (((W)w)->priority - EV_MINPRI) 247#define ABSPRI(w) (((W)w)->priority - EV_MINPRI)
247 248
248#define EMPTY /* required for microsofts broken pseudo-c compiler */ 249#define EMPTY /* required for microsofts broken pseudo-c compiler */
417 } 418 }
418 419
419 return ncur; 420 return ncur;
420} 421}
421 422
422inline_speed void * 423static noinline void *
423array_realloc (int elem, void *base, int *cur, int cnt) 424array_realloc (int elem, void *base, int *cur, int cnt)
424{ 425{
425 *cur = array_nextsize (elem, *cur, cnt); 426 *cur = array_nextsize (elem, *cur, cnt);
426 return ev_realloc (base, elem * *cur); 427 return ev_realloc (base, elem * *cur);
427} 428}
452 453
453void noinline 454void noinline
454ev_feed_event (EV_P_ void *w, int revents) 455ev_feed_event (EV_P_ void *w, int revents)
455{ 456{
456 W w_ = (W)w; 457 W w_ = (W)w;
458 int pri = ABSPRI (w_);
457 459
458 if (expect_false (w_->pending)) 460 if (expect_false (w_->pending))
461 pendings [pri][w_->pending - 1].events |= revents;
462 else
459 { 463 {
464 w_->pending = ++pendingcnt [pri];
465 array_needsize (ANPENDING, pendings [pri], pendingmax [pri], w_->pending, EMPTY2);
466 pendings [pri][w_->pending - 1].w = w_;
460 pendings [ABSPRI (w_)][w_->pending - 1].events |= revents; 467 pendings [pri][w_->pending - 1].events = revents;
461 return;
462 } 468 }
463
464 w_->pending = ++pendingcnt [ABSPRI (w_)];
465 array_needsize (ANPENDING, pendings [ABSPRI (w_)], pendingmax [ABSPRI (w_)], pendingcnt [ABSPRI (w_)], EMPTY2);
466 pendings [ABSPRI (w_)][w_->pending - 1].w = w_;
467 pendings [ABSPRI (w_)][w_->pending - 1].events = revents;
468} 469}
469 470
470void inline_size 471void inline_size
471queue_events (EV_P_ W *events, int eventcnt, int type) 472queue_events (EV_P_ W *events, int eventcnt, int type)
472{ 473{
507} 508}
508 509
509void 510void
510ev_feed_fd_event (EV_P_ int fd, int revents) 511ev_feed_fd_event (EV_P_ int fd, int revents)
511{ 512{
513 if (fd >= 0 && fd < anfdmax)
512 fd_event (EV_A_ fd, revents); 514 fd_event (EV_A_ fd, revents);
513} 515}
514 516
515void inline_size 517void inline_size
516fd_reify (EV_P) 518fd_reify (EV_P)
517{ 519{
747 for (signum = signalmax; signum--; ) 749 for (signum = signalmax; signum--; )
748 if (signals [signum].gotsig) 750 if (signals [signum].gotsig)
749 ev_feed_signal_event (EV_A_ signum + 1); 751 ev_feed_signal_event (EV_A_ signum + 1);
750} 752}
751 753
752void inline_size 754void inline_speed
753fd_intern (int fd) 755fd_intern (int fd)
754{ 756{
755#ifdef _WIN32 757#ifdef _WIN32
756 int arg = 1; 758 int arg = 1;
757 ioctlsocket (_get_osfhandle (fd), FIONBIO, &arg); 759 ioctlsocket (_get_osfhandle (fd), FIONBIO, &arg);
1163 postfork = 1; 1165 postfork = 1;
1164} 1166}
1165 1167
1166/*****************************************************************************/ 1168/*****************************************************************************/
1167 1169
1170void
1171ev_invoke (EV_P_ void *w, int revents)
1172{
1173 EV_CB_INVOKE ((W)w, revents);
1174}
1175
1168void inline_speed 1176void inline_speed
1169call_pending (EV_P) 1177call_pending (EV_P)
1170{ 1178{
1171 int pri; 1179 int pri;
1172 1180
1223 /*assert (("inactive timer on periodic heap detected", ev_is_active (w)));*/ 1231 /*assert (("inactive timer on periodic heap detected", ev_is_active (w)));*/
1224 1232
1225 /* first reschedule or stop timer */ 1233 /* first reschedule or stop timer */
1226 if (w->reschedule_cb) 1234 if (w->reschedule_cb)
1227 { 1235 {
1228 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now + 0.0001); 1236 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now + 0.0001220703125 /* 1/8192 */);
1229 assert (("ev_periodic reschedule callback returned time in the past", ((WT)w)->at > ev_rt_now)); 1237 assert (("ev_periodic reschedule callback returned time in the past", ((WT)w)->at > ev_rt_now));
1230 downheap ((WT *)periodics, periodiccnt, 0); 1238 downheap ((WT *)periodics, periodiccnt, 0);
1231 } 1239 }
1232 else if (w->interval) 1240 else if (w->interval)
1233 { 1241 {
1234 ((WT)w)->at += floor ((ev_rt_now - ((WT)w)->at) / w->interval + 1.) * w->interval; 1242 ((WT)w)->at = w->offset + floor ((ev_rt_now - w->offset) / w->interval + 1.) * w->interval;
1235 assert (("ev_periodic timeout in the past detected while processing timers, negative interval?", ((WT)w)->at > ev_rt_now)); 1243 assert (("ev_periodic timeout in the past detected while processing timers, negative interval?", ((WT)w)->at > ev_rt_now));
1236 downheap ((WT *)periodics, periodiccnt, 0); 1244 downheap ((WT *)periodics, periodiccnt, 0);
1237 } 1245 }
1238 else 1246 else
1239 ev_periodic_stop (EV_A_ w); /* nonrepeating: stop timer */ 1247 ev_periodic_stop (EV_A_ w); /* nonrepeating: stop timer */
1253 ev_periodic *w = periodics [i]; 1261 ev_periodic *w = periodics [i];
1254 1262
1255 if (w->reschedule_cb) 1263 if (w->reschedule_cb)
1256 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now); 1264 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now);
1257 else if (w->interval) 1265 else if (w->interval)
1258 ((WT)w)->at += ceil ((ev_rt_now - ((WT)w)->at) / w->interval) * w->interval; 1266 ((WT)w)->at = w->offset + ceil ((ev_rt_now - w->offset) / w->interval) * w->interval;
1259 } 1267 }
1260 1268
1261 /* now rebuild the heap */ 1269 /* now rebuild the heap */
1262 for (i = periodiccnt >> 1; i--; ) 1270 for (i = periodiccnt >> 1; i--; )
1263 downheap ((WT *)periodics, periodiccnt, i); 1271 downheap ((WT *)periodics, periodiccnt, i);
1406 queue_events (EV_A_ (W *)forks, forkcnt, EV_FORK); 1414 queue_events (EV_A_ (W *)forks, forkcnt, EV_FORK);
1407 call_pending (EV_A); 1415 call_pending (EV_A);
1408 } 1416 }
1409#endif 1417#endif
1410 1418
1411 /* queue check watchers (and execute them) */ 1419 /* queue prepare watchers (and execute them) */
1412 if (expect_false (preparecnt)) 1420 if (expect_false (preparecnt))
1413 { 1421 {
1414 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE); 1422 queue_events (EV_A_ (W *)prepares, preparecnt, EV_PREPARE);
1415 call_pending (EV_A); 1423 call_pending (EV_A);
1416 } 1424 }
1538ev_clear_pending (EV_P_ void *w) 1546ev_clear_pending (EV_P_ void *w)
1539{ 1547{
1540 W w_ = (W)w; 1548 W w_ = (W)w;
1541 int pending = w_->pending; 1549 int pending = w_->pending;
1542 1550
1543 if (!pending) 1551 if (expect_true (pending))
1552 {
1553 ANPENDING *p = pendings [ABSPRI (w_)] + pending - 1;
1554 w_->pending = 0;
1555 p->w = 0;
1556 return p->events;
1557 }
1558 else
1544 return 0; 1559 return 0;
1545
1546 w_->pending = 0;
1547 ANPENDING *p = pendings [ABSPRI (w_)] + pending - 1;
1548 p->w = 0;
1549
1550 return p->events;
1551} 1560}
1552 1561
1553void inline_size 1562void inline_size
1554pri_adjust (EV_P_ W w) 1563pri_adjust (EV_P_ W w)
1555{ 1564{
1574 w->active = 0; 1583 w->active = 0;
1575} 1584}
1576 1585
1577/*****************************************************************************/ 1586/*****************************************************************************/
1578 1587
1579void 1588void noinline
1580ev_io_start (EV_P_ ev_io *w) 1589ev_io_start (EV_P_ ev_io *w)
1581{ 1590{
1582 int fd = w->fd; 1591 int fd = w->fd;
1583 1592
1584 if (expect_false (ev_is_active (w))) 1593 if (expect_false (ev_is_active (w)))
1591 wlist_add ((WL *)&anfds[fd].head, (WL)w); 1600 wlist_add ((WL *)&anfds[fd].head, (WL)w);
1592 1601
1593 fd_change (EV_A_ fd); 1602 fd_change (EV_A_ fd);
1594} 1603}
1595 1604
1596void 1605void noinline
1597ev_io_stop (EV_P_ ev_io *w) 1606ev_io_stop (EV_P_ ev_io *w)
1598{ 1607{
1599 clear_pending (EV_A_ (W)w); 1608 clear_pending (EV_A_ (W)w);
1600 if (expect_false (!ev_is_active (w))) 1609 if (expect_false (!ev_is_active (w)))
1601 return; 1610 return;
1606 ev_stop (EV_A_ (W)w); 1615 ev_stop (EV_A_ (W)w);
1607 1616
1608 fd_change (EV_A_ w->fd); 1617 fd_change (EV_A_ w->fd);
1609} 1618}
1610 1619
1611void 1620void noinline
1612ev_timer_start (EV_P_ ev_timer *w) 1621ev_timer_start (EV_P_ ev_timer *w)
1613{ 1622{
1614 if (expect_false (ev_is_active (w))) 1623 if (expect_false (ev_is_active (w)))
1615 return; 1624 return;
1616 1625
1624 upheap ((WT *)timers, timercnt - 1); 1633 upheap ((WT *)timers, timercnt - 1);
1625 1634
1626 /*assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w));*/ 1635 /*assert (("internal timer heap corruption", timers [((W)w)->active - 1] == w));*/
1627} 1636}
1628 1637
1629void 1638void noinline
1630ev_timer_stop (EV_P_ ev_timer *w) 1639ev_timer_stop (EV_P_ ev_timer *w)
1631{ 1640{
1632 clear_pending (EV_A_ (W)w); 1641 clear_pending (EV_A_ (W)w);
1633 if (expect_false (!ev_is_active (w))) 1642 if (expect_false (!ev_is_active (w)))
1634 return; 1643 return;
1648 ((WT)w)->at -= mn_now; 1657 ((WT)w)->at -= mn_now;
1649 1658
1650 ev_stop (EV_A_ (W)w); 1659 ev_stop (EV_A_ (W)w);
1651} 1660}
1652 1661
1653void 1662void noinline
1654ev_timer_again (EV_P_ ev_timer *w) 1663ev_timer_again (EV_P_ ev_timer *w)
1655{ 1664{
1656 if (ev_is_active (w)) 1665 if (ev_is_active (w))
1657 { 1666 {
1658 if (w->repeat) 1667 if (w->repeat)
1669 ev_timer_start (EV_A_ w); 1678 ev_timer_start (EV_A_ w);
1670 } 1679 }
1671} 1680}
1672 1681
1673#if EV_PERIODIC_ENABLE 1682#if EV_PERIODIC_ENABLE
1674void 1683void noinline
1675ev_periodic_start (EV_P_ ev_periodic *w) 1684ev_periodic_start (EV_P_ ev_periodic *w)
1676{ 1685{
1677 if (expect_false (ev_is_active (w))) 1686 if (expect_false (ev_is_active (w)))
1678 return; 1687 return;
1679 1688
1681 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now); 1690 ((WT)w)->at = w->reschedule_cb (w, ev_rt_now);
1682 else if (w->interval) 1691 else if (w->interval)
1683 { 1692 {
1684 assert (("ev_periodic_start called with negative interval value", w->interval >= 0.)); 1693 assert (("ev_periodic_start called with negative interval value", w->interval >= 0.));
1685 /* this formula differs from the one in periodic_reify because we do not always round up */ 1694 /* this formula differs from the one in periodic_reify because we do not always round up */
1686 ((WT)w)->at += ceil ((ev_rt_now - ((WT)w)->at) / w->interval) * w->interval; 1695 ((WT)w)->at = w->offset + ceil ((ev_rt_now - w->offset) / w->interval) * w->interval;
1687 } 1696 }
1697 else
1698 ((WT)w)->at = w->offset;
1688 1699
1689 ev_start (EV_A_ (W)w, ++periodiccnt); 1700 ev_start (EV_A_ (W)w, ++periodiccnt);
1690 array_needsize (ev_periodic *, periodics, periodicmax, periodiccnt, EMPTY2); 1701 array_needsize (ev_periodic *, periodics, periodicmax, periodiccnt, EMPTY2);
1691 periodics [periodiccnt - 1] = w; 1702 periodics [periodiccnt - 1] = w;
1692 upheap ((WT *)periodics, periodiccnt - 1); 1703 upheap ((WT *)periodics, periodiccnt - 1);
1693 1704
1694 /*assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w));*/ 1705 /*assert (("internal periodic heap corruption", periodics [((W)w)->active - 1] == w));*/
1695} 1706}
1696 1707
1697void 1708void noinline
1698ev_periodic_stop (EV_P_ ev_periodic *w) 1709ev_periodic_stop (EV_P_ ev_periodic *w)
1699{ 1710{
1700 clear_pending (EV_A_ (W)w); 1711 clear_pending (EV_A_ (W)w);
1701 if (expect_false (!ev_is_active (w))) 1712 if (expect_false (!ev_is_active (w)))
1702 return; 1713 return;
1714 } 1725 }
1715 1726
1716 ev_stop (EV_A_ (W)w); 1727 ev_stop (EV_A_ (W)w);
1717} 1728}
1718 1729
1719void 1730void noinline
1720ev_periodic_again (EV_P_ ev_periodic *w) 1731ev_periodic_again (EV_P_ ev_periodic *w)
1721{ 1732{
1722 /* TODO: use adjustheap and recalculation */ 1733 /* TODO: use adjustheap and recalculation */
1723 ev_periodic_stop (EV_A_ w); 1734 ev_periodic_stop (EV_A_ w);
1724 ev_periodic_start (EV_A_ w); 1735 ev_periodic_start (EV_A_ w);
1727 1738
1728#ifndef SA_RESTART 1739#ifndef SA_RESTART
1729# define SA_RESTART 0 1740# define SA_RESTART 0
1730#endif 1741#endif
1731 1742
1732void 1743void noinline
1733ev_signal_start (EV_P_ ev_signal *w) 1744ev_signal_start (EV_P_ ev_signal *w)
1734{ 1745{
1735#if EV_MULTIPLICITY 1746#if EV_MULTIPLICITY
1736 assert (("signal watchers are only supported in the default loop", loop == ev_default_loop_ptr)); 1747 assert (("signal watchers are only supported in the default loop", loop == ev_default_loop_ptr));
1737#endif 1748#endif
1756 sigaction (w->signum, &sa, 0); 1767 sigaction (w->signum, &sa, 0);
1757#endif 1768#endif
1758 } 1769 }
1759} 1770}
1760 1771
1761void 1772void noinline
1762ev_signal_stop (EV_P_ ev_signal *w) 1773ev_signal_stop (EV_P_ ev_signal *w)
1763{ 1774{
1764 clear_pending (EV_A_ (W)w); 1775 clear_pending (EV_A_ (W)w);
1765 if (expect_false (!ev_is_active (w))) 1776 if (expect_false (!ev_is_active (w)))
1766 return; 1777 return;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines