re PR middle-end/70643 (broken openacc reduction inside a fortran module)
[official-gcc.git] / libiberty / xasprintf.c
blob4f72bb2665554acba04241c9b508fd13b725bbc0
1 /* Implement the xasprintf function.
2 Copyright (C) 2014 Free Software Foundation, Inc.
3 Contributed by Manuel Lopez-Ibanez.
5 This file is part of the libiberty library.
6 Libiberty is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public
8 License as published by the Free Software Foundation; either
9 version 2 of the License, or (at your option) any later version.
11 Libiberty is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with libiberty; see the file COPYING.LIB. If not, write
18 to the Free Software Foundation, Inc., 51 Franklin Street - Fifth
19 Floor, Boston, MA 02110-1301, USA. */
21 #ifdef HAVE_CONFIG_H
22 #include "config.h"
23 #endif
24 #include "ansidecl.h"
25 #include "libiberty.h"
27 #include <stdarg.h>
31 @deftypefn Replacement char* xasprintf (const char *@var{format}, ...)
33 Print to allocated string without fail. If @code{xasprintf} fails,
34 this will print a message to @code{stderr} (using the name set by
35 @code{xmalloc_set_program_name}, if any) and then call @code{xexit}.
37 @end deftypefn
41 char *
42 xasprintf (const char *fmt, ...)
44 char *buf;
45 va_list ap;
46 va_start (ap, fmt);
47 buf = xvasprintf (fmt, ap);
48 va_end (ap);
49 return buf;