]> rtime.felk.cvut.cz Git - lisovros/qemu_apohw.git/blob - qemu-coroutine-sleep.c
CAN bus Kvaser PCI CAN-S (single SJA1000 channel) emulation added.
[lisovros/qemu_apohw.git] / qemu-coroutine-sleep.c
1 /*
2  * QEMU coroutine sleep
3  *
4  * Copyright IBM, Corp. 2011
5  *
6  * Authors:
7  *  Stefan Hajnoczi    <stefanha@linux.vnet.ibm.com>
8  *
9  * This work is licensed under the terms of the GNU LGPL, version 2 or later.
10  * See the COPYING.LIB file in the top-level directory.
11  *
12  */
13
14 #include "block/coroutine.h"
15 #include "qemu/timer.h"
16 #include "block/aio.h"
17
18 typedef struct CoSleepCB {
19     QEMUTimer *ts;
20     Coroutine *co;
21 } CoSleepCB;
22
23 static void co_sleep_cb(void *opaque)
24 {
25     CoSleepCB *sleep_cb = opaque;
26
27     qemu_coroutine_enter(sleep_cb->co, NULL);
28 }
29
30 void coroutine_fn co_sleep_ns(QEMUClockType type, int64_t ns)
31 {
32     CoSleepCB sleep_cb = {
33         .co = qemu_coroutine_self(),
34     };
35     sleep_cb.ts = timer_new(type, SCALE_NS, co_sleep_cb, &sleep_cb);
36     timer_mod(sleep_cb.ts, qemu_clock_get_ns(type) + ns);
37     qemu_coroutine_yield();
38     timer_del(sleep_cb.ts);
39     timer_free(sleep_cb.ts);
40 }
41
42 void coroutine_fn co_aio_sleep_ns(AioContext *ctx, QEMUClockType type,
43                                   int64_t ns)
44 {
45     CoSleepCB sleep_cb = {
46         .co = qemu_coroutine_self(),
47     };
48     sleep_cb.ts = aio_timer_new(ctx, type, SCALE_NS, co_sleep_cb, &sleep_cb);
49     timer_mod(sleep_cb.ts, qemu_clock_get_ns(type) + ns);
50     qemu_coroutine_yield();
51     timer_del(sleep_cb.ts);
52     timer_free(sleep_cb.ts);
53 }