… | |
… | |
35 | * and other provisions required by the GPL. If you do not delete the |
35 | * and other provisions required by the GPL. If you do not delete the |
36 | * provisions above, a recipient may use your version of this file under |
36 | * provisions above, a recipient may use your version of this file under |
37 | * either the BSD or the GPL. |
37 | * either the BSD or the GPL. |
38 | */ |
38 | */ |
39 | |
39 | |
|
|
40 | #define EPOLL_FALLBACK 1 |
|
|
41 | |
40 | #include <sys/time.h> /* actually linux/time.h, but we must assume they are compatible */ |
42 | #include <sys/time.h> /* actually linux/time.h, but we must assume they are compatible */ |
41 | #include <poll.h> |
43 | #include <poll.h> |
42 | #include <linux/aio_abi.h> |
44 | #include <linux/aio_abi.h> |
43 | |
45 | |
|
|
46 | #if EPOLL_FALLBACK |
|
|
47 | # include <sys/epoll.h> |
|
|
48 | #endif |
|
|
49 | |
44 | /* we try to fill 4kB pages exactly. |
50 | /* we try to fill 4kB pages exactly. |
45 | * the ring buffer header is 32 bytes, every io event is 32 bytes. |
51 | * the ring buffer header is 32 bytes, every io event is 32 bytes. |
46 | * the kernel takes the io event number, doubles it, adds 2, adds the ring buffer. |
52 | * the kernel takes the io event number, doubles it, adds 2, adds the ring buffer. |
47 | * therefore the calculation below will use "exactly" 8kB for the ring buffer |
53 | * therefore the calculation below will use "exactly" 4kB for the ring buffer |
48 | */ |
54 | */ |
49 | #define EV_LINUXAIO_DEPTH (256 / 2 - 2 - 1) /* max. number of io events per batch */ |
55 | #define EV_LINUXAIO_DEPTH (128 / 2 - 2 - 1) /* max. number of io events per batch */ |
50 | |
56 | |
51 | /*****************************************************************************/ |
57 | /*****************************************************************************/ |
52 | /* syscall wrapdadoop */ |
58 | /* syscall wrapdadoop */ |
53 | |
59 | |
54 | #include <sys/syscall.h> /* no glibc wrappers */ |
60 | #include <sys/syscall.h> /* no glibc wrappers */ |
… | |
… | |
148 | static void |
154 | static void |
149 | linuxaio_modify (EV_P_ int fd, int oev, int nev) |
155 | linuxaio_modify (EV_P_ int fd, int oev, int nev) |
150 | { |
156 | { |
151 | array_needsize (ANIOCBP, linuxaio_iocbps, linuxaio_iocbpmax, fd + 1, linuxaio_array_needsize_iocbp); |
157 | array_needsize (ANIOCBP, linuxaio_iocbps, linuxaio_iocbpmax, fd + 1, linuxaio_array_needsize_iocbp); |
152 | struct aniocb *iocb = linuxaio_iocbps [fd]; |
158 | struct aniocb *iocb = linuxaio_iocbps [fd]; |
|
|
159 | |
|
|
160 | #if EPOLL_FALLBACK |
|
|
161 | if (iocb->io.aio_reqprio < 0) |
|
|
162 | { |
|
|
163 | epoll_ctl (backend_fd, EPOLL_CTL_DEL, fd, 0); |
|
|
164 | iocb->io.aio_reqprio = 0; |
|
|
165 | } |
|
|
166 | #endif |
153 | |
167 | |
154 | if (iocb->io.aio_buf) |
168 | if (iocb->io.aio_buf) |
155 | ev_io_cancel (linuxaio_ctx, &iocb->io, (struct io_event *)0); /* always returns an error relevant kernels */ |
169 | ev_io_cancel (linuxaio_ctx, &iocb->io, (struct io_event *)0); /* always returns an error relevant kernels */ |
156 | |
170 | |
157 | if (nev) |
171 | if (nev) |
… | |
… | |
205 | static int |
219 | static int |
206 | linuxaio_get_events_from_ring (EV_P) |
220 | linuxaio_get_events_from_ring (EV_P) |
207 | { |
221 | { |
208 | struct aio_ring *ring = (struct aio_ring *)linuxaio_ctx; |
222 | struct aio_ring *ring = (struct aio_ring *)linuxaio_ctx; |
209 | |
223 | |
210 | ECB_MEMORY_FENCE_ACQUIRE; |
224 | /* the kernel reads and writes both of these variables, */ |
211 | |
225 | /* as a C extension, we assume that volatile use here */ |
212 | unsigned head = ring->head; |
226 | /* both makes reads atomic and once-only */ |
|
|
227 | unsigned head = *(volatile unsigned *)&ring->head; |
213 | unsigned tail = *(volatile unsigned *)&ring->tail; |
228 | unsigned tail = *(volatile unsigned *)&ring->tail; |
214 | |
229 | |
215 | if (head == tail) |
230 | if (head == tail) |
216 | return 0; |
231 | return 0; |
217 | |
232 | |
… | |
… | |
219 | if (ecb_expect_false (ring->magic != AIO_RING_MAGIC) |
234 | if (ecb_expect_false (ring->magic != AIO_RING_MAGIC) |
220 | || ring->incompat_features != AIO_RING_INCOMPAT_FEATURES |
235 | || ring->incompat_features != AIO_RING_INCOMPAT_FEATURES |
221 | || ring->header_length != sizeof (struct aio_ring)) /* TODO: or use it to find io_event[0]? */ |
236 | || ring->header_length != sizeof (struct aio_ring)) /* TODO: or use it to find io_event[0]? */ |
222 | return 0; |
237 | return 0; |
223 | |
238 | |
|
|
239 | /* make sure the events up to tail are visible */ |
|
|
240 | ECB_MEMORY_FENCE_ACQUIRE; |
|
|
241 | |
224 | /* parse all available events, but only once, to avoid starvation */ |
242 | /* parse all available events, but only once, to avoid starvation */ |
225 | if (tail > head) /* normal case around */ |
243 | if (tail > head) /* normal case around */ |
226 | linuxaio_parse_events (EV_A_ ring->io_events + head, tail - head); |
244 | linuxaio_parse_events (EV_A_ ring->io_events + head, tail - head); |
227 | else /* wrapped around */ |
245 | else /* wrapped around */ |
228 | { |
246 | { |
229 | linuxaio_parse_events (EV_A_ ring->io_events + head, ring->nr - head); |
247 | linuxaio_parse_events (EV_A_ ring->io_events + head, ring->nr - head); |
230 | linuxaio_parse_events (EV_A_ ring->io_events, tail); |
248 | linuxaio_parse_events (EV_A_ ring->io_events, tail); |
231 | } |
249 | } |
232 | |
250 | |
233 | ring->head = tail; |
251 | /* as an extension to C, we hope that the volatile will makethis atomic and once-only */ |
|
|
252 | *(volatile unsigned *)&ring->head = tail; |
|
|
253 | /* make sure kernel can see our new head value - probably not required */ |
|
|
254 | ECB_MEMORY_FENCE_RELEASE; |
234 | |
255 | |
235 | return 1; |
256 | return 1; |
236 | } |
257 | } |
237 | |
258 | |
238 | /* read at least one event from kernel, or timeout */ |
259 | /* read at least one event from kernel, or timeout */ |
… | |
… | |
255 | ts.tv_nsec = (long)((timeout - ts.tv_sec) * 1e9); |
276 | ts.tv_nsec = (long)((timeout - ts.tv_sec) * 1e9); |
256 | |
277 | |
257 | res = ev_io_getevents (linuxaio_ctx, 1, 1, &ioev, &ts); |
278 | res = ev_io_getevents (linuxaio_ctx, 1, 1, &ioev, &ts); |
258 | |
279 | |
259 | if (res < 0) |
280 | if (res < 0) |
|
|
281 | if (errno == EINTR) |
|
|
282 | /* ignored */; |
|
|
283 | else |
260 | ev_syserr ("(libev) io_getevents"); |
284 | ev_syserr ("(libev) linuxaio io_getevents"); |
261 | else if (res) |
285 | else if (res) |
262 | { |
286 | { |
263 | /* at least one event received, handle it and any remaining ones in the ring buffer */ |
287 | /* at least one event received, handle it and any remaining ones in the ring buffer */ |
264 | linuxaio_parse_events (EV_A_ &ioev, 1); |
288 | linuxaio_parse_events (EV_A_ &ioev, 1); |
265 | linuxaio_get_events_from_ring (EV_A); |
289 | linuxaio_get_events_from_ring (EV_A); |
266 | } |
290 | } |
267 | } |
291 | } |
|
|
292 | |
|
|
293 | #if EPOLL_FALLBACK |
|
|
294 | static void |
|
|
295 | linuxaio_rearm_epoll (EV_P_ struct iocb *iocb, int op) |
|
|
296 | { |
|
|
297 | struct epoll_event eev; |
|
|
298 | |
|
|
299 | eev.events = EPOLLONESHOT; |
|
|
300 | if (iocb->aio_buf & POLLIN ) eev.events |= EPOLLIN ; |
|
|
301 | if (iocb->aio_buf & POLLOUT) eev.events |= EPOLLOUT; |
|
|
302 | eev.data.fd = iocb->aio_fildes; |
|
|
303 | |
|
|
304 | if (epoll_ctl (backend_fd, op, iocb->aio_fildes, &eev) < 0) |
|
|
305 | ev_syserr ("(libeio) linuxaio epoll_ctl"); |
|
|
306 | } |
|
|
307 | #endif |
268 | |
308 | |
269 | static void |
309 | static void |
270 | linuxaio_poll (EV_P_ ev_tstamp timeout) |
310 | linuxaio_poll (EV_P_ ev_tstamp timeout) |
271 | { |
311 | { |
272 | int submitted; |
312 | int submitted; |
… | |
… | |
283 | if (ecb_expect_false (res < 0)) |
323 | if (ecb_expect_false (res < 0)) |
284 | if (errno == EAGAIN) |
324 | if (errno == EAGAIN) |
285 | { |
325 | { |
286 | /* This happens when the ring buffer is full, at least. I assume this means |
326 | /* This happens when the ring buffer is full, at least. I assume this means |
287 | * that the event was queued synchronously during io_submit, and thus |
327 | * that the event was queued synchronously during io_submit, and thus |
288 | * the buffer overflowd. |
328 | * the buffer overflowed. |
289 | * In this case, we just try next loop iteration. |
329 | * In this case, we just try in next loop iteration. |
290 | * This should not result in a few fds taking priority, as the interface |
330 | * This should not result in a few fds taking priority, as the interface |
291 | * is one-shot, and we submit iocb's in a round-robin fashion. |
331 | * is one-shot, and we submit iocb's in a round-robin fashion. |
292 | */ |
332 | */ |
293 | memmove (linuxaio_submits, linuxaio_submits + submitted, (linuxaio_submitcnt - submitted) * sizeof (*linuxaio_submits)); |
333 | memmove (linuxaio_submits, linuxaio_submits + submitted, (linuxaio_submitcnt - submitted) * sizeof (*linuxaio_submits)); |
294 | linuxaio_submitcnt -= submitted; |
334 | linuxaio_submitcnt -= submitted; |
295 | timeout = 0; |
335 | timeout = 0; |
296 | break; |
336 | break; |
297 | } |
337 | } |
|
|
338 | #if EPOLL_FALLBACK |
|
|
339 | else if (errno == EINVAL) |
|
|
340 | { |
|
|
341 | /* This hapĆ¼pens for unsupported fds, officially, but in my testing, |
|
|
342 | * also randomly happens for supported fds. We fall back to good old |
|
|
343 | * poll() here, under the assumption that this is a very rare case. |
|
|
344 | */ |
|
|
345 | struct iocb *iocb = linuxaio_submits [submitted]; |
|
|
346 | res = 1; /* skip this iocb */ |
|
|
347 | |
|
|
348 | linuxaio_rearm_epoll (EV_A_ iocb, EPOLL_CTL_ADD); |
|
|
349 | iocb->aio_reqprio = -1; /* mark iocb as epoll */ |
|
|
350 | } |
|
|
351 | #endif |
298 | else |
352 | else |
299 | ev_syserr ("(libev) io_submit"); |
353 | ev_syserr ("(libev) linuxaio io_submit"); |
300 | |
354 | |
301 | submitted += res; |
355 | submitted += res; |
302 | } |
356 | } |
303 | |
357 | |
304 | linuxaio_submitcnt = 0; |
358 | linuxaio_submitcnt = 0; |
305 | |
359 | |
306 | /* second phase: fetch and parse events */ |
360 | /* second phase: fetch and parse events */ |
307 | |
361 | |
308 | linuxaio_get_events (EV_A_ timeout); |
362 | linuxaio_get_events (EV_A_ timeout); |
309 | } |
363 | } |
|
|
364 | |
|
|
365 | #if EPOLL_FALLBACK |
|
|
366 | |
|
|
367 | static void |
|
|
368 | linuxaio_epoll_cb (EV_P_ struct ev_io *w, int revents) |
|
|
369 | { |
|
|
370 | struct epoll_event events[16]; |
|
|
371 | |
|
|
372 | for (;;) |
|
|
373 | { |
|
|
374 | int idx; |
|
|
375 | int res = epoll_wait (backend_fd, events, sizeof (events) / sizeof (events [0]), 0); |
|
|
376 | |
|
|
377 | if (ecb_expect_false (res < 0)) |
|
|
378 | ev_syserr ("(libev) linuxaio epoll_wait"); |
|
|
379 | else if (!res) |
|
|
380 | break; |
|
|
381 | |
|
|
382 | for (idx = res; idx--; ) |
|
|
383 | { |
|
|
384 | int fd = events [idx].data.fd; |
|
|
385 | uint32_t ev = events [idx].events; |
|
|
386 | |
|
|
387 | assert (("libev: iocb fd must be in-bounds", fd >= 0 && fd < anfdmax)); |
|
|
388 | |
|
|
389 | linuxaio_rearm_epoll (EV_A_ &linuxaio_iocbps [fd]->io, EPOLL_CTL_MOD); |
|
|
390 | |
|
|
391 | fd_event (EV_A_ fd, |
|
|
392 | (ev & (EPOLLOUT | EPOLLERR | EPOLLHUP) ? EV_WRITE : 0) |
|
|
393 | | (ev & (EPOLLIN | EPOLLERR | EPOLLHUP) ? EV_READ : 0)); |
|
|
394 | } |
|
|
395 | |
|
|
396 | if (res < sizeof (events) / sizeof (events [0])) |
|
|
397 | break; |
|
|
398 | } |
|
|
399 | } |
|
|
400 | |
|
|
401 | #endif |
310 | |
402 | |
311 | inline_size |
403 | inline_size |
312 | int |
404 | int |
313 | linuxaio_init (EV_P_ int flags) |
405 | linuxaio_init (EV_P_ int flags) |
314 | { |
406 | { |
… | |
… | |
319 | |
411 | |
320 | linuxaio_ctx = 0; |
412 | linuxaio_ctx = 0; |
321 | if (ev_io_setup (EV_LINUXAIO_DEPTH, &linuxaio_ctx) < 0) |
413 | if (ev_io_setup (EV_LINUXAIO_DEPTH, &linuxaio_ctx) < 0) |
322 | return 0; |
414 | return 0; |
323 | |
415 | |
|
|
416 | #if EPOLL_FALLBACK |
|
|
417 | backend_fd = ev_epoll_create (); |
|
|
418 | if (backend_fd < 0) |
|
|
419 | { |
|
|
420 | ev_io_destroy (linuxaio_ctx); |
|
|
421 | return 0; |
|
|
422 | } |
|
|
423 | |
|
|
424 | ev_io_init (EV_A_ &linuxaio_epoll_w, linuxaio_epoll_cb, backend_fd, EV_READ); |
|
|
425 | ev_io_start (EV_A_ &linuxaio_epoll_w); |
|
|
426 | #endif |
|
|
427 | |
324 | backend_modify = linuxaio_modify; |
428 | backend_modify = linuxaio_modify; |
325 | backend_poll = linuxaio_poll; |
429 | backend_poll = linuxaio_poll; |
326 | |
430 | |
327 | linuxaio_iocbpmax = 0; |
431 | linuxaio_iocbpmax = 0; |
328 | linuxaio_iocbps = 0; |
432 | linuxaio_iocbps = 0; |
… | |
… | |
336 | |
440 | |
337 | inline_size |
441 | inline_size |
338 | void |
442 | void |
339 | linuxaio_destroy (EV_P) |
443 | linuxaio_destroy (EV_P) |
340 | { |
444 | { |
|
|
445 | #if EPOLL_FALLBACK |
|
|
446 | close (backend_fd); |
|
|
447 | #endif |
341 | linuxaio_free_iocbp (EV_A); |
448 | linuxaio_free_iocbp (EV_A); |
342 | ev_io_destroy (linuxaio_ctx); |
449 | ev_io_destroy (linuxaio_ctx); |
343 | } |
450 | } |
344 | |
451 | |
345 | inline_size |
452 | inline_size |
… | |
… | |
350 | linuxaio_destroy (EV_A); |
457 | linuxaio_destroy (EV_A); |
351 | linuxaio_submitcnt = 0; /* all pointers were invalidated */ |
458 | linuxaio_submitcnt = 0; /* all pointers were invalidated */ |
352 | |
459 | |
353 | linuxaio_ctx = 0; |
460 | linuxaio_ctx = 0; |
354 | while (ev_io_setup (EV_LINUXAIO_DEPTH, &linuxaio_ctx) < 0) |
461 | while (ev_io_setup (EV_LINUXAIO_DEPTH, &linuxaio_ctx) < 0) |
355 | ev_syserr ("(libev) io_setup"); |
462 | ev_syserr ("(libev) linuxaio io_setup"); |
|
|
463 | |
|
|
464 | #if EPOLL_FALLBACK |
|
|
465 | while ((backend_fd = ev_epoll_create ()) < 0) |
|
|
466 | ev_syserr ("(libev) linuxaio epoll_create"); |
|
|
467 | |
|
|
468 | ev_io_stop (EV_A_ &linuxaio_epoll_w); |
|
|
469 | ev_io_init (EV_A_ &linuxaio_epoll_w, linuxaio_epoll_cb, backend_fd, EV_READ); |
|
|
470 | ev_io_start (EV_A_ &linuxaio_epoll_w); |
|
|
471 | ev_unref (EV_A); /* watcher should not keep loop alive */ |
|
|
472 | #endif |
356 | |
473 | |
357 | fd_rearm_all (EV_A); |
474 | fd_rearm_all (EV_A); |
358 | } |
475 | } |
359 | |
476 | |