tzselect: stop requiring ksh
[glibc.git] / malloc / set-freeres.c
blobfdecc1c91767a640efbf9ece2463963e74601167
1 /* Copyright (C) 1997-2014 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
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.
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.
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 <http://www.gnu.org/licenses/>. */
18 #include <atomic.h>
19 #include <stdlib.h>
20 #include <set-hooks.h>
21 #include <libc-internal.h>
23 #include "../libio/libioP.h"
25 DEFINE_HOOK (__libc_subfreeres, (void));
27 symbol_set_define (__libc_freeres_ptrs);
29 void __libc_freeres_fn_section
30 __libc_freeres (void)
32 /* This function might be called from different places. So better
33 protect for multiple executions since these are fatal. */
34 static long int already_called;
36 if (!atomic_compare_and_exchange_bool_acq (&already_called, 1, 0))
38 void *const *p;
40 _IO_cleanup ();
42 RUN_HOOK (__libc_subfreeres, ());
44 for (p = symbol_set_first_element (__libc_freeres_ptrs);
45 !symbol_set_end_p (__libc_freeres_ptrs, p); ++p)
46 free (*p);
49 libc_hidden_def (__libc_freeres)