1/* Copyright (C) 1997-2021 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
8
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
13
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, see
16 <https://www.gnu.org/licenses/>. */
17
18#include <atomic.h>
19#include <stdlib.h>
20#include <set-hooks.h>
21#include <libc-internal.h>
22
23#include "../nss/nsswitch.h"
24#include "../libio/libioP.h"
25
26DEFINE_HOOK (__libc_subfreeres, (void));
27
28symbol_set_define (__libc_freeres_ptrs);
29
30extern __attribute__ ((weak)) void __libdl_freeres (void);
31
32extern __attribute__ ((weak)) void __libpthread_freeres (void);
33
34void __libc_freeres_fn_section
35__libc_freeres (void)
36{
37 /* This function might be called from different places. So better
38 protect for multiple executions since these are fatal. */
39 static long int already_called;
40
41 if (!atomic_compare_and_exchange_bool_acq (&already_called, 1, 0))
42 {
43 void *const *p;
44
45 call_function_static_weak (__nss_module_freeres);
46 call_function_static_weak (__nss_action_freeres);
47 call_function_static_weak (__nss_database_freeres);
48
49 _IO_cleanup ();
50
51 /* We run the resource freeing after IO cleanup. */
52 RUN_HOOK (__libc_subfreeres, ());
53
54 /* Call the libdl list of cleanup functions
55 (weak-ref-and-check). */
56 if (&__libdl_freeres != NULL)
57 __libdl_freeres ();
58
59 /* Call the libpthread list of cleanup functions
60 (weak-ref-and-check). */
61 if (&__libpthread_freeres != NULL)
62 __libpthread_freeres ();
63
64 for (p = symbol_set_first_element (__libc_freeres_ptrs);
65 !symbol_set_end_p (__libc_freeres_ptrs, p); ++p)
66 free (*p);
67 }
68}
69libc_hidden_def (__libc_freeres)
70