mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix cross-compilation to MinGW.

Browse source 
Fixes a regression introduced in
5a8502a494.

* libguile/scmsigs.c (scm_i_signals_post_fork): Wrap reference to ‘once’
in #ifdef.
This commit is contained in:
Ludovic Courtès 2024-01-24 15:26:57 +01:00
parent 2556b9a216
commit a702097f1c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/scmsigs.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-2002,2004,2006-2009,2011,2013-2014,2017-2018,2023
/* Copyright 1995-2002, 2004, 2006-2009, 2011, 2013-2014, 2017-2018, 2023-2024
Free Software Foundation, Inc.
This file is part of Guile.
@ -301,7 +301,9 @@ scm_i_signals_post_fork ()
}
}
#if SCM_USE_PTHREAD_THREADS
once = SCM_I_PTHREAD_ONCE_INIT;
#endif
if (active)
scm_i_ensure_signal_delivery_thread ();
}