1 /* Copyright (C) 1993-1995,1997,2000,2002-2005,2009,2011
2 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
32 #include <sys/syslog.h>
35 /* Abort with an error message. */
36 #include <not-cancel.h>
38 #ifdef FATAL_PREPARE_INCLUDE
39 #include FATAL_PREPARE_INCLUDE
46 struct str_list
*next
;
50 /* Abort with an error message. */
52 __libc_message (int do_abort
, const char *fmt
, ...)
59 va_copy (ap_copy
, ap
);
65 /* Open a descriptor for /dev/tty unless the user explicitly
66 requests errors on standard error. */
67 const char *on_2
= __secure_getenv ("LIBC_FATAL_STDERR_");
68 if (on_2
== NULL
|| *on_2
== '\0')
69 fd
= open_not_cancel_2 (_PATH_TTY
, O_RDWR
| O_NOCTTY
| O_NDELAY
);
74 struct str_list
*list
= NULL
;
80 /* Find the next "%s" or the end of the string. */
81 const char *next
= cp
;
82 while (next
[0] != '%' || next
[1] != 's')
84 next
= __strchrnul (next
+ 1, '%');
90 /* Determine what to print. */
93 if (cp
[0] == '%' && cp
[1] == 's')
95 str
= va_arg (ap
, const char *);
106 struct str_list
*newp
= alloca (sizeof (struct str_list
));
114 bool written
= false;
117 struct iovec
*iov
= alloca (nlist
* sizeof (struct iovec
));
120 for (int cnt
= nlist
- 1; cnt
>= 0; --cnt
)
122 iov
[cnt
].iov_base
= (void *) list
->str
;
123 iov
[cnt
].iov_len
= list
->len
;
128 INTERNAL_SYSCALL_DECL (err
);
131 cnt
= INTERNAL_SYSCALL (writev
, err
, 3, fd
, iov
, nlist
);
132 while (INTERNAL_SYSCALL_ERROR_P (cnt
, err
)
133 && INTERNAL_SYSCALL_ERRNO (cnt
, err
) == EINTR
);
140 total
= ((total
+ 1 + GLRO(dl_pagesize
) - 1)
141 & ~(GLRO(dl_pagesize
) - 1));
142 struct abort_msg_s
*buf
= __mmap (NULL
, total
,
143 PROT_READ
| PROT_WRITE
,
144 MAP_ANON
| MAP_PRIVATE
, -1, 0);
145 if (__builtin_expect (buf
!= MAP_FAILED
, 1))
149 for (int cnt
= 0; cnt
< nlist
; ++cnt
)
150 wp
= mempcpy (wp
, iov
[cnt
].iov_base
, iov
[cnt
].iov_len
);
153 /* We have to free the old buffer since the application might
154 catch the SIGABRT signal. */
155 struct abort_msg_s
*old
= atomic_exchange_acq (&__abort_msg
,
158 __munmap (old
, old
->size
);
165 /* If we had no success writing the message, use syslog. */
167 vsyslog (LOG_ERR
, fmt
, ap_copy
);
173 if (do_abort
> 1 && written
)
176 #define naddrs (sizeof (addrs) / sizeof (addrs[0]))
177 int n
= __backtrace (addrs
, naddrs
);
180 #define strnsize(str) str, strlen (str)
181 #define writestr(str) write_not_cancel (fd, str)
182 writestr (strnsize ("======= Backtrace: =========\n"));
183 __backtrace_symbols_fd (addrs
+ 1, n
- 1, fd
);
185 writestr (strnsize ("======= Memory map: ========\n"));
186 int fd2
= open_not_cancel_2 ("/proc/self/maps", O_RDONLY
);
189 while ((n2
= read_not_cancel (fd2
, buf
, sizeof (buf
))) > 0)
190 if (write_not_cancel (fd
, buf
, n2
) != n2
)
192 close_not_cancel_no_status (fd2
);
196 /* Terminate the process. */
203 __libc_fatal (message
)
206 /* The loop is added only to keep gcc happy. */
208 __libc_message (1, "%s", message
);
210 libc_hidden_def (__libc_fatal
)