mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-05 01:00:21 +02:00
Code Activity

Fix -O0 compilation in async.c

Browse source 
* libguile/async.c: Yaargh, can't have static const case labels.
This commit is contained in:
Andy Wingo 2025-07-01 16:17:17 +02:00
parent 5d17297da8
commit d07b6acd2c
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/async.c
View file

@ -155,9 +155,12 @@ scm_async_tick (void)
scm_call_0 (scm_i_async_pop (t)); scm_call_0 (scm_i_async_pop (t));
} }
static const int NOT_WAITING = 0; enum
static const int WAITING_ON_FD = 1; {
static const int WAITING_ON_COND = 2; NOT_WAITING,
WAITING_ON_FD,
WAITING_ON_COND
};
static inline void static inline void
publish_wake_data_for_thread (scm_thread *t, struct scm_thread_wake_data data) publish_wake_data_for_thread (scm_thread *t, struct scm_thread_wake_data data)