1/* Function declarations for libiberty.
2
3   Copyright 2001, 2002, 2005 Free Software Foundation, Inc.
4
5   Note - certain prototypes declared in this header file are for
6   functions whoes implementation copyright does not belong to the
7   FSF.  Those prototypes are present in this file for reference
8   purposes only and their presence in this file should not construed
9   as an indication of ownership by the FSF of the implementation of
10   those functions in any way or form whatsoever.
11
12   This program is free software; you can redistribute it and/or modify
13   it under the terms of the GNU General Public License as published by
14   the Free Software Foundation; either version 2, or (at your option)
15   any later version.
16
17   This program is distributed in the hope that it will be useful,
18   but WITHOUT ANY WARRANTY; without even the implied warranty of
19   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20   GNU General Public License for more details.
21
22   You should have received a copy of the GNU General Public License
23   along with this program; if not, write to the Free Software
24   Foundation, Inc., 51 Franklin Street - Fifth Floor,
25   Boston, MA 02110-1301, USA.
26
27   Written by Cygnus Support, 1994.
28
29   The libiberty library provides a number of functions which are
30   missing on some operating systems.  We do not declare those here,
31   to avoid conflicts with the system header files on operating
32   systems that do support those functions.  In this file we only
33   declare those functions which are specific to libiberty.  */
34
35#ifndef LIBIBERTY_H
36#define LIBIBERTY_H
37
38#ifdef __cplusplus
39extern "C" {
40#endif
41
42#include "ansidecl.h"
43
44/* Get a definition for size_t.  */
45#include <stddef.h>
46/* Get a definition for va_list.  */
47#include <stdarg.h>
48
49#include <stdio.h>
50
51/* If the OS supports it, ensure that the supplied stream is setup to
52   avoid any multi-threaded locking.  Otherwise leave the FILE pointer
53   unchanged.  If the stream is NULL do nothing.  */
54
55extern void unlock_stream (FILE *);
56
57/* If the OS supports it, ensure that the standard I/O streams, stdin,
58   stdout and stderr are setup to avoid any multi-threaded locking.
59   Otherwise do nothing.  */
60
61extern void unlock_std_streams (void);
62
63/* Open and return a FILE pointer.  If the OS supports it, ensure that
64   the stream is setup to avoid any multi-threaded locking.  Otherwise
65   return the FILE pointer unchanged.  */
66
67extern FILE *fopen_unlocked (const char *, const char *);
68extern FILE *fdopen_unlocked (int, const char *);
69extern FILE *freopen_unlocked (const char *, const char *, FILE *);
70
71/* Build an argument vector from a string.  Allocates memory using
72   malloc.  Use freeargv to free the vector.  */
73
74extern char **buildargv (const char *) ATTRIBUTE_MALLOC;
75
76/* Free a vector returned by buildargv.  */
77
78extern void freeargv (char **);
79
80/* Duplicate an argument vector. Allocates memory using malloc.  Use
81   freeargv to free the vector.  */
82
83extern char **dupargv (char **) ATTRIBUTE_MALLOC;
84
85/* Expand "@file" arguments in argv.  */
86
87extern void expandargv PARAMS ((int *, char ***));
88
89/* Return the last component of a path name.  Note that we can't use a
90   prototype here because the parameter is declared inconsistently
91   across different systems, sometimes as "char *" and sometimes as
92   "const char *" */
93
94/* HAVE_DECL_* is a three-state macro: undefined, 0 or 1.  If it is
95   undefined, we haven't run the autoconf check so provide the
96   declaration without arguments.  If it is 0, we checked and failed
97   to find the declaration so provide a fully prototyped one.  If it
98   is 1, we found it so don't provide any declaration at all.  */
99#if !HAVE_DECL_BASENAME
100#if defined (__GNU_LIBRARY__ ) || defined (__linux__) || defined (__FreeBSD__) || defined (__OpenBSD__) || defined(__NetBSD__) || defined (__CYGWIN__) || defined (__CYGWIN32__) || defined (__MINGW32__) || defined (HAVE_DECL_BASENAME)
101extern char *basename (const char *);
102#else
103/* Do not allow basename to be used if there is no prototype seen.  We
104   either need to use the above prototype or have one from
105   autoconf which would result in HAVE_DECL_BASENAME being set.  */
106#define basename basename_cannot_be_used_without_a_prototype
107#endif
108#endif
109
110/* A well-defined basename () that is always compiled in.  */
111
112extern const char *lbasename (const char *);
113
114/* A well-defined realpath () that is always compiled in.  */
115
116extern char *lrealpath (const char *);
117
118/* Concatenate an arbitrary number of strings.  You must pass NULL as
119   the last argument of this function, to terminate the list of
120   strings.  Allocates memory using xmalloc.  */
121
122extern char *concat (const char *, ...) ATTRIBUTE_MALLOC ATTRIBUTE_SENTINEL;
123
124/* Concatenate an arbitrary number of strings.  You must pass NULL as
125   the last argument of this function, to terminate the list of
126   strings.  Allocates memory using xmalloc.  The first argument is
127   not one of the strings to be concatenated, but if not NULL is a
128   pointer to be freed after the new string is created, similar to the
129   way xrealloc works.  */
130
131extern char *reconcat (char *, const char *, ...) ATTRIBUTE_MALLOC ATTRIBUTE_SENTINEL;
132
133/* Determine the length of concatenating an arbitrary number of
134   strings.  You must pass NULL as the last argument of this function,
135   to terminate the list of strings.  */
136
137extern unsigned long concat_length (const char *, ...) ATTRIBUTE_SENTINEL;
138
139/* Concatenate an arbitrary number of strings into a SUPPLIED area of
140   memory.  You must pass NULL as the last argument of this function,
141   to terminate the list of strings.  The supplied memory is assumed
142   to be large enough.  */
143
144extern char *concat_copy (char *, const char *, ...) ATTRIBUTE_SENTINEL;
145
146/* Concatenate an arbitrary number of strings into a GLOBAL area of
147   memory.  You must pass NULL as the last argument of this function,
148   to terminate the list of strings.  The supplied memory is assumed
149   to be large enough.  */
150
151extern char *concat_copy2 (const char *, ...) ATTRIBUTE_SENTINEL;
152
153/* This is the global area used by concat_copy2.  */
154
155extern char *libiberty_concat_ptr;
156
157/* Concatenate an arbitrary number of strings.  You must pass NULL as
158   the last argument of this function, to terminate the list of
159   strings.  Allocates memory using alloca.  The arguments are
160   evaluated twice!  */
161#define ACONCAT(ACONCAT_PARAMS) \
162  (libiberty_concat_ptr = (char *) alloca (concat_length ACONCAT_PARAMS + 1), \
163   concat_copy2 ACONCAT_PARAMS)
164
165/* Check whether two file descriptors refer to the same file.  */
166
167extern int fdmatch (int fd1, int fd2);
168
169/* Return the position of the first bit set in the argument.  */
170/* Prototypes vary from system to system, so we only provide a
171   prototype on systems where we know that we need it.  */
172#if defined (HAVE_DECL_FFS) && !HAVE_DECL_FFS
173extern int ffs(int);
174#endif
175
176/* Get the working directory.  The result is cached, so don't call
177   chdir() between calls to getpwd().  */
178
179extern char * getpwd (void);
180
181/* Get the current time.  */
182/* Prototypes vary from system to system, so we only provide a
183   prototype on systems where we know that we need it.  */
184#ifdef __MINGW32__
185/* Forward declaration to avoid #include <sys/time.h>.   */
186struct timeval;
187extern int gettimeofday (struct timeval *, void *);
188#endif
189
190/* Get the amount of time the process has run, in microseconds.  */
191
192extern long get_run_time (void);
193
194/* Generate a relocated path to some installation directory.  Allocates
195   return value using malloc.  */
196
197extern char *make_relative_prefix (const char *, const char *,
198                                   const char *) ATTRIBUTE_MALLOC;
199
200/* Generate a relocated path to some installation directory without
201   attempting to follow any soft links.  Allocates
202   return value using malloc.  */
203
204extern char *make_relative_prefix_ignore_links (const char *, const char *,
205						const char *) ATTRIBUTE_MALLOC;
206
207/* Choose a temporary directory to use for scratch files.  */
208
209extern char *choose_temp_base (void) ATTRIBUTE_MALLOC;
210
211/* Return a temporary file name or NULL if unable to create one.  */
212
213extern char *make_temp_file (const char *) ATTRIBUTE_MALLOC;
214
215/* Remove a link to a file unless it is special. */
216
217extern int unlink_if_ordinary (const char *);
218
219/* Allocate memory filled with spaces.  Allocates using malloc.  */
220
221extern const char *spaces (int count);
222
223/* Return the maximum error number for which strerror will return a
224   string.  */
225
226extern int errno_max (void);
227
228/* Return the name of an errno value (e.g., strerrno (EINVAL) returns
229   "EINVAL").  */
230
231extern const char *strerrno (int);
232
233/* Given the name of an errno value, return the value.  */
234
235extern int strtoerrno (const char *);
236
237/* ANSI's strerror(), but more robust.  */
238
239extern char *xstrerror (int);
240
241/* Return the maximum signal number for which strsignal will return a
242   string.  */
243
244extern int signo_max (void);
245
246/* Return a signal message string for a signal number
247   (e.g., strsignal (SIGHUP) returns something like "Hangup").  */
248/* This is commented out as it can conflict with one in system headers.
249   We still document its existence though.  */
250
251/*extern const char *strsignal (int);*/
252
253/* Return the name of a signal number (e.g., strsigno (SIGHUP) returns
254   "SIGHUP").  */
255
256extern const char *strsigno (int);
257
258/* Given the name of a signal, return its number.  */
259
260extern int strtosigno (const char *);
261
262/* Register a function to be run by xexit.  Returns 0 on success.  */
263
264extern int xatexit (void (*fn) (void));
265
266/* Exit, calling all the functions registered with xatexit.  */
267
268extern void xexit (int status) ATTRIBUTE_NORETURN;
269
270/* Set the program name used by xmalloc.  */
271
272extern void xmalloc_set_program_name (const char *);
273
274/* Report an allocation failure.  */
275extern void xmalloc_failed (size_t) ATTRIBUTE_NORETURN;
276
277/* Allocate memory without fail.  If malloc fails, this will print a
278   message to stderr (using the name set by xmalloc_set_program_name,
279   if any) and then call xexit.  */
280
281extern void *xmalloc (size_t) ATTRIBUTE_MALLOC;
282
283/* Reallocate memory without fail.  This works like xmalloc.  Note,
284   realloc type functions are not suitable for attribute malloc since
285   they may return the same address across multiple calls. */
286
287extern void *xrealloc (void *, size_t);
288
289/* Allocate memory without fail and set it to zero.  This works like
290   xmalloc.  */
291
292extern void *xcalloc (size_t, size_t) ATTRIBUTE_MALLOC;
293
294/* Copy a string into a memory buffer without fail.  */
295
296extern char *xstrdup (const char *) ATTRIBUTE_MALLOC;
297
298/* Copy at most N characters from string into a buffer without fail.  */
299
300extern char *xstrndup (const char *, size_t) ATTRIBUTE_MALLOC;
301
302/* Copy an existing memory buffer to a new memory buffer without fail.  */
303
304extern void *xmemdup (const void *, size_t, size_t) ATTRIBUTE_MALLOC;
305
306/* Physical memory routines.  Return values are in BYTES.  */
307extern double physmem_total (void);
308extern double physmem_available (void);
309
310
311/* These macros provide a K&R/C89/C++-friendly way of allocating structures
312   with nice encapsulation.  The XDELETE*() macros are technically
313   superfluous, but provided here for symmetry.  Using them consistently
314   makes it easier to update client code to use different allocators such
315   as new/delete and new[]/delete[].  */
316
317/* Scalar allocators.  */
318
319#define XNEW(T)			((T *) xmalloc (sizeof (T)))
320#define XCNEW(T)		((T *) xcalloc (1, sizeof (T)))
321#define XDELETE(P)		free ((void*) (P))
322
323/* Array allocators.  */
324
325#define XNEWVEC(T, N)		((T *) xmalloc (sizeof (T) * (N)))
326#define XCNEWVEC(T, N)		((T *) xcalloc ((N), sizeof (T)))
327#define XRESIZEVEC(T, P, N)	((T *) xrealloc ((void *) (P), sizeof (T) * (N)))
328#define XDELETEVEC(P)		free ((void*) (P))
329
330/* Allocators for variable-sized structures and raw buffers.  */
331
332#define XNEWVAR(T, S)		((T *) xmalloc ((S)))
333#define XCNEWVAR(T, S)		((T *) xcalloc (1, (S)))
334#define XRESIZEVAR(T, P, S)	((T *) xrealloc ((P), (S)))
335
336/* Type-safe obstack allocator.  */
337
338#define XOBNEW(O, T)		((T *) obstack_alloc ((O), sizeof (T)))
339#define XOBFINISH(O, T)         ((T) obstack_finish ((O)))
340
341/* hex character manipulation routines */
342
343#define _hex_array_size 256
344#define _hex_bad	99
345extern const unsigned char _hex_value[_hex_array_size];
346extern void hex_init (void);
347#define hex_p(c)	(hex_value (c) != _hex_bad)
348/* If you change this, note well: Some code relies on side effects in
349   the argument being performed exactly once.  */
350#define hex_value(c)	((unsigned int) _hex_value[(unsigned char) (c)])
351
352/* Flags for pex_init.  These are bits to be or'ed together.  */
353
354/* Record subprocess times, if possible.  */
355#define PEX_RECORD_TIMES	0x1
356
357/* Use pipes for communication between processes, if possible.  */
358#define PEX_USE_PIPES		0x2
359
360/* Save files used for communication between processes.  */
361#define PEX_SAVE_TEMPS		0x4
362
363/* Prepare to execute one or more programs, with standard output of
364   each program fed to standard input of the next.
365   FLAGS	As above.
366   PNAME	The name of the program to report in error messages.
367   TEMPBASE	A base name to use for temporary files; may be NULL to
368   		use a random name.
369   Returns NULL on error.  */
370
371extern struct pex_obj *pex_init (int flags, const char *pname,
372				 const char *tempbase);
373
374/* Flags for pex_run.  These are bits to be or'ed together.  */
375
376/* Last program in pipeline.  Standard output of program goes to
377   OUTNAME, or, if OUTNAME is NULL, to standard output of caller.  Do
378   not set this if you want to call pex_read_output.  After this is
379   set, pex_run may no longer be called with the same struct
380   pex_obj.  */
381#define PEX_LAST		0x1
382
383/* Search for program in executable search path.  */
384#define PEX_SEARCH		0x2
385
386/* OUTNAME is a suffix.  */
387#define PEX_SUFFIX		0x4
388
389/* Send program's standard error to standard output.  */
390#define PEX_STDERR_TO_STDOUT	0x8
391
392/* Input file should be opened in binary mode.  This flag is ignored
393   on Unix.  */
394#define PEX_BINARY_INPUT	0x10
395
396/* Output file should be opened in binary mode.  This flag is ignored
397   on Unix.  For proper behaviour PEX_BINARY_INPUT and
398   PEX_BINARY_OUTPUT have to match appropriately--i.e., a call using
399   PEX_BINARY_OUTPUT should be followed by a call using
400   PEX_BINARY_INPUT.  */
401#define PEX_BINARY_OUTPUT	0x20
402
403/* Capture stderr to a pipe.  The output can be read by
404   calling pex_read_err and reading from the returned
405   FILE object.  This flag may be specified only for
406   the last program in a pipeline.
407
408   This flag is supported only on Unix and Windows.  */
409#define PEX_STDERR_TO_PIPE	0x40
410
411/* Capture stderr in binary mode.  This flag is ignored
412   on Unix.  */
413#define PEX_BINARY_ERROR	0x80
414
415
416/* Execute one program.  Returns NULL on success.  On error returns an
417   error string (typically just the name of a system call); the error
418   string is statically allocated.
419
420   OBJ		Returned by pex_init.
421
422   FLAGS	As above.
423
424   EXECUTABLE	The program to execute.
425
426   ARGV		NULL terminated array of arguments to pass to the program.
427
428   OUTNAME	Sets the output file name as follows:
429
430		PEX_SUFFIX set (OUTNAME may not be NULL):
431		  TEMPBASE parameter to pex_init not NULL:
432		    Output file name is the concatenation of TEMPBASE
433		    and OUTNAME.
434		  TEMPBASE is NULL:
435		    Output file name is a random file name ending in
436		    OUTNAME.
437		PEX_SUFFIX not set:
438		  OUTNAME not NULL:
439		    Output file name is OUTNAME.
440		  OUTNAME NULL, TEMPBASE not NULL:
441		    Output file name is randomly chosen using
442		    TEMPBASE.
443		  OUTNAME NULL, TEMPBASE NULL:
444		    Output file name is randomly chosen.
445
446		If PEX_LAST is not set, the output file name is the
447   		name to use for a temporary file holding stdout, if
448   		any (there will not be a file if PEX_USE_PIPES is set
449   		and the system supports pipes).  If a file is used, it
450   		will be removed when no longer needed unless
451   		PEX_SAVE_TEMPS is set.
452
453		If PEX_LAST is set, and OUTNAME is not NULL, standard
454   		output is written to the output file name.  The file
455   		will not be removed.  If PEX_LAST and PEX_SUFFIX are
456   		both set, TEMPBASE may not be NULL.
457
458   ERRNAME	If not NULL, this is the name of a file to which
459		standard error is written.  If NULL, standard error of
460		the program is standard error of the caller.
461
462   ERR		On an error return, *ERR is set to an errno value, or
463   		to 0 if there is no relevant errno.
464*/
465
466extern const char *pex_run (struct pex_obj *obj, int flags,
467			    const char *executable, char * const *argv,
468			    const char *outname, const char *errname,
469			    int *err);
470
471/* As for pex_run (), but takes an extra parameter to enable the
472   environment for the child process to be specified.
473
474   ENV		The environment for the child process, specified as
475		an array of character pointers.  Each element of the
476		array should point to a string of the form VAR=VALUE,
477                with the exception of the last element which must be
478                a null pointer.
479*/
480
481extern const char *pex_run_in_environment (struct pex_obj *obj, int flags,
482			                   const char *executable,
483                                           char * const *argv,
484                                           char * const *env,
485              	          		   const char *outname,
486					   const char *errname, int *err);
487
488/* Return a `FILE' pointer FP for the standard input of the first
489   program in the pipeline; FP is opened for writing.  You must have
490   passed `PEX_USE_PIPES' to the `pex_init' call that returned OBJ.
491   You must close FP yourself with `fclose' to indicate that the
492   pipeline's input is complete.
493
494   The file descriptor underlying FP is marked not to be inherited by
495   child processes.
496
497   This call is not supported on systems which do not support pipes;
498   it returns with an error.  (We could implement it by writing a
499   temporary file, but then you would need to write all your data and
500   close FP before your first call to `pex_run' -- and that wouldn't
501   work on systems that do support pipes: the pipe would fill up, and
502   you would block.  So there isn't any easy way to conceal the
503   differences between the two types of systems.)
504
505   If you call both `pex_write_input' and `pex_read_output', be
506   careful to avoid deadlock.  If the output pipe fills up, so that
507   each program in the pipeline is waiting for the next to read more
508   data, and you fill the input pipe by writing more data to FP, then
509   there is no way to make progress: the only process that could read
510   data from the output pipe is you, but you are blocked on the input
511   pipe.  */
512
513extern FILE *pex_write_input (struct pex_obj *obj, int binary);
514
515/* Return a stream for a temporary file to pass to the first program
516   in the pipeline as input.  The file name is chosen as for pex_run.
517   pex_run closes the file automatically; don't close it yourself.  */
518
519extern FILE *pex_input_file (struct pex_obj *obj, int flags,
520                             const char *in_name);
521
522/* Return a stream for a pipe connected to the standard input of the
523   first program in the pipeline.  You must have passed
524   `PEX_USE_PIPES' to `pex_init'.  Close the returned stream
525   yourself.  */
526
527extern FILE *pex_input_pipe (struct pex_obj *obj, int binary);
528
529/* Read the standard output of the last program to be executed.
530   pex_run can not be called after this.  BINARY should be non-zero if
531   the file should be opened in binary mode; this is ignored on Unix.
532   Returns NULL on error.  Don't call fclose on the returned FILE; it
533   will be closed by pex_free.  */
534
535extern FILE *pex_read_output (struct pex_obj *, int binary);
536
537/* Read the standard error of the last program to be executed.
538   pex_run can not be called after this.  BINARY should be non-zero if
539   the file should be opened in binary mode; this is ignored on Unix.
540   Returns NULL on error.  Don't call fclose on the returned FILE; it
541   will be closed by pex_free.  */
542
543extern FILE *pex_read_err (struct pex_obj *, int binary);
544
545/* Return exit status of all programs in VECTOR.  COUNT indicates the
546   size of VECTOR.  The status codes in the vector are in the order of
547   the calls to pex_run.  Returns 0 on error, 1 on success.  */
548
549extern int pex_get_status (struct pex_obj *, int count, int *vector);
550
551/* Return times of all programs in VECTOR.  COUNT indicates the size
552   of VECTOR.  struct pex_time is really just struct timeval, but that
553   is not portable to all systems.  Returns 0 on error, 1 on
554   success.  */
555
556struct pex_time
557{
558  unsigned long user_seconds;
559  unsigned long user_microseconds;
560  unsigned long system_seconds;
561  unsigned long system_microseconds;
562};
563
564extern int pex_get_times (struct pex_obj *, int count,
565			  struct pex_time *vector);
566
567/* Clean up a pex_obj.  */
568
569extern void pex_free (struct pex_obj *);
570
571/* Just execute one program.  Return value is as for pex_run.
572   FLAGS	Combination of PEX_SEARCH and PEX_STDERR_TO_STDOUT.
573   EXECUTABLE	As for pex_run.
574   ARGV		As for pex_run.
575   PNAME	As for pex_init.
576   OUTNAME	As for pex_run when PEX_LAST is set.
577   ERRNAME	As for pex_run.
578   STATUS	Set to exit status on success.
579   ERR		As for pex_run.
580*/
581
582extern const char *pex_one (int flags, const char *executable,
583			    char * const *argv, const char *pname,
584			    const char *outname, const char *errname,
585			    int *status, int *err);
586
587/* pexecute and pwait are the old pexecute interface, still here for
588   backward compatibility.  Don't use these for new code.  Instead,
589   use pex_init/pex_run/pex_get_status/pex_free, or pex_one.  */
590
591/* Definitions used by the pexecute routine.  */
592
593#define PEXECUTE_FIRST   1
594#define PEXECUTE_LAST    2
595#define PEXECUTE_ONE     (PEXECUTE_FIRST + PEXECUTE_LAST)
596#define PEXECUTE_SEARCH  4
597#define PEXECUTE_VERBOSE 8
598
599/* Execute a program.  */
600
601extern int pexecute (const char *, char * const *, const char *,
602                     const char *, char **, char **, int);
603
604/* Wait for pexecute to finish.  */
605
606extern int pwait (int, int *, int);
607
608#if !HAVE_DECL_ASPRINTF
609/* Like sprintf but provides a pointer to malloc'd storage, which must
610   be freed by the caller.  */
611
612extern int asprintf (char **, const char *, ...) ATTRIBUTE_PRINTF_2;
613#endif
614
615#if !HAVE_DECL_VASPRINTF
616/* Like vsprintf but provides a pointer to malloc'd storage, which
617   must be freed by the caller.  */
618
619extern int vasprintf (char **, const char *, va_list) ATTRIBUTE_PRINTF(2,0);
620#endif
621
622#if defined(HAVE_DECL_SNPRINTF) && !HAVE_DECL_SNPRINTF
623/* Like sprintf but prints at most N characters.  */
624extern int snprintf (char *, size_t, const char *, ...) ATTRIBUTE_PRINTF_3;
625#endif
626
627#if defined(HAVE_DECL_VSNPRINTF) && !HAVE_DECL_VSNPRINTF
628/* Like vsprintf but prints at most N characters.  */
629extern int vsnprintf (char *, size_t, const char *, va_list) ATTRIBUTE_PRINTF(3,0);
630#endif
631
632#if defined(HAVE_DECL_STRVERSCMP) && !HAVE_DECL_STRVERSCMP
633/* Compare version strings.  */
634extern int strverscmp (const char *, const char *);
635#endif
636
637#define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
638
639/* Drastically simplified alloca configurator.  If we're using GCC,
640   we use __builtin_alloca; otherwise we use the C alloca.  The C
641   alloca is always available.  You can override GCC by defining
642   USE_C_ALLOCA yourself.  The canonical autoconf macro C_ALLOCA is
643   also set/unset as it is often used to indicate whether code needs
644   to call alloca(0).  */
645extern void *C_alloca (size_t) ATTRIBUTE_MALLOC;
646#undef alloca
647#if GCC_VERSION >= 2000 && !defined USE_C_ALLOCA
648# define alloca(x) __builtin_alloca(x)
649# undef C_ALLOCA
650# define ASTRDUP(X) \
651  (__extension__ ({ const char *const libiberty_optr = (X); \
652   const unsigned long libiberty_len = strlen (libiberty_optr) + 1; \
653   char *const libiberty_nptr = (char *const) alloca (libiberty_len); \
654   (char *) memcpy (libiberty_nptr, libiberty_optr, libiberty_len); }))
655#else
656# define alloca(x) C_alloca(x)
657# undef USE_C_ALLOCA
658# define USE_C_ALLOCA 1
659# undef C_ALLOCA
660# define C_ALLOCA 1
661extern const char *libiberty_optr;
662extern char *libiberty_nptr;
663extern unsigned long libiberty_len;
664# define ASTRDUP(X) \
665  (libiberty_optr = (X), \
666   libiberty_len = strlen (libiberty_optr) + 1, \
667   libiberty_nptr = (char *) alloca (libiberty_len), \
668   (char *) memcpy (libiberty_nptr, libiberty_optr, libiberty_len))
669#endif
670
671#ifdef __cplusplus
672}
673#endif
674
675
676#endif /* ! defined (LIBIBERTY_H) */
677