S390: Move utf8-utf32-z9.c to multiarch folder and use s390_libc_ifunc_expr macro.
[glibc.git] / stdlib / exit.c
blobc0b6d666c7be7e109165fdebb495f5e6478fb31e
1 /* Copyright (C) 1991-2017 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 <stdio.h>
19 #include <stdlib.h>
20 #include <unistd.h>
21 #include <sysdep.h>
22 #include "exit.h"
24 #include "set-hooks.h"
25 DEFINE_HOOK (__libc_atexit, (void))
28 /* Call all functions registered with `atexit' and `on_exit',
29 in the reverse of the order in which they were registered
30 perform stdio cleanup, and terminate program execution with STATUS. */
31 void
32 attribute_hidden
33 __run_exit_handlers (int status, struct exit_function_list **listp,
34 bool run_list_atexit, bool run_dtors)
36 /* First, call the TLS destructors. */
37 #ifndef SHARED
38 if (&__call_tls_dtors != NULL)
39 #endif
40 if (run_dtors)
41 __call_tls_dtors ();
43 /* We do it this way to handle recursive calls to exit () made by
44 the functions registered with `atexit' and `on_exit'. We call
45 everyone on the list and use the status value in the last
46 exit (). */
47 while (*listp != NULL)
49 struct exit_function_list *cur = *listp;
51 while (cur->idx > 0)
53 const struct exit_function *const f =
54 &cur->fns[--cur->idx];
55 switch (f->flavor)
57 void (*atfct) (void);
58 void (*onfct) (int status, void *arg);
59 void (*cxafct) (void *arg, int status);
61 case ef_free:
62 case ef_us:
63 break;
64 case ef_on:
65 onfct = f->func.on.fn;
66 #ifdef PTR_DEMANGLE
67 PTR_DEMANGLE (onfct);
68 #endif
69 onfct (status, f->func.on.arg);
70 break;
71 case ef_at:
72 atfct = f->func.at;
73 #ifdef PTR_DEMANGLE
74 PTR_DEMANGLE (atfct);
75 #endif
76 atfct ();
77 break;
78 case ef_cxa:
79 cxafct = f->func.cxa.fn;
80 #ifdef PTR_DEMANGLE
81 PTR_DEMANGLE (cxafct);
82 #endif
83 cxafct (f->func.cxa.arg, status);
84 break;
88 *listp = cur->next;
89 if (*listp != NULL)
90 /* Don't free the last element in the chain, this is the statically
91 allocate element. */
92 free (cur);
95 if (run_list_atexit)
96 RUN_HOOK (__libc_atexit, ());
98 _exit (status);
102 void
103 exit (int status)
105 __run_exit_handlers (status, &__exit_funcs, true, true);
107 libc_hidden_def (exit)