mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Exclude the finalizer thread from the ‘all-threads’ result.

Browse source 
Fixes <https://bugs.gnu.org/76343>.

Fixes a bug whereby “echo '(environ)' | guile” would wrongfully trigger
the multiple-thread warning.

* libguile/finalizers.c (finalizer_thread): New variable.
(finalization_thread_proc): Set it.
(scm_i_is_finalizer_thread): New function.
(run_finalization_thread): Clear FINALIZER_THREAD.
* libguile/finalizers.h (scm_i_is_finalizer_thread): New declaration.
* libguile/threads.c (scm_all_threads): Use it.
* NEWS: Update.

Reported-by: Simon Josefsson <simon@josefsson.org>
This commit is contained in:
Ludovic Courtès 2025-02-26 15:48:41 +01:00
parent 75fd1d6434
commit b8031fc965
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
4 changed files with 34 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

21
libguile/finalizers.c
View file

@ -1,4 +1,4 @@
/* Copyright 2012-2014,2018-2020,2022
/* Copyright 2012-2014,2018-2020,2022,2025
Free Software Foundation, Inc.
This file is part of Guile.
@ -37,6 +37,7 @@
#include "gsubr.h"
#include "init.h"
#include "threads.h"
#include "atomics-internal.h"
#include "finalizers.h"
@ -217,10 +218,14 @@ read_finalization_pipe_data (void *data)
return NULL;
}
static scm_i_pthread_t finalizer_thread;
static void*
finalization_thread_proc (void *unused)
{
scm_atomic_set_pointer ((void **) &finalizer_thread,
(void *) pthread_self ());
while (1)
{
struct finalization_pipe_data data;
@ -255,10 +260,20 @@ finalization_thread_proc (void *unused)
}
}
int
scm_i_is_finalizer_thread (struct scm_thread *t)
{
scm_i_pthread_t us =
(scm_i_pthread_t) scm_atomic_ref_pointer ((void **) &finalizer_thread);
return pthread_equal (t->pthread, us);
}
static void*
run_finalization_thread (void *arg)
{
return scm_with_guile (finalization_thread_proc, arg);
void *res = scm_with_guile (finalization_thread_proc, arg);
scm_atomic_set_pointer ((void **) &finalizer_thread, NULL);
return res;
}
static void