include:
[external/binutils.git] / include / libiberty.h
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
39 extern "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
55 extern 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
61 extern 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
67 extern FILE *fopen_unlocked (const char *, const char *);
68 extern FILE *fdopen_unlocked (int, const char *);
69 extern 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
74 extern char **buildargv (const char *) ATTRIBUTE_MALLOC;
75
76 /* Free a vector returned by buildargv.  */
77
78 extern void freeargv (char **);
79
80 /* Duplicate an argument vector. Allocates memory using malloc.  Use
81    freeargv to free the vector.  */
82
83 extern char **dupargv (char **) ATTRIBUTE_MALLOC;
84
85 /* Expand "@file" arguments in argv.  */
86
87 extern 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)
101 extern 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
112 extern const char *lbasename (const char *);
113
114 /* A well-defined realpath () that is always compiled in.  */
115
116 extern 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
122 extern 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
131 extern 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
137 extern 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
144 extern 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
151 extern char *concat_copy2 (const char *, ...) ATTRIBUTE_SENTINEL;
152
153 /* This is the global area used by concat_copy2.  */
154
155 extern 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
167 extern 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
173 extern 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
179 extern 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>.   */
186 struct timeval;
187 extern int gettimeofday (struct timeval *, void *); 
188 #endif
189
190 /* Get the amount of time the process has run, in microseconds.  */
191
192 extern long get_run_time (void);
193
194 /* Generate a relocated path to some installation directory.  Allocates
195    return value using malloc.  */
196
197 extern 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
204 extern 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
209 extern char *choose_temp_base (void) ATTRIBUTE_MALLOC;
210
211 /* Return a temporary file name or NULL if unable to create one.  */
212
213 extern char *make_temp_file (const char *) ATTRIBUTE_MALLOC;
214
215 /* Remove a link to a file unless it is special. */
216
217 extern int unlink_if_ordinary (const char *);
218
219 /* Allocate memory filled with spaces.  Allocates using malloc.  */
220
221 extern const char *spaces (int count);
222
223 /* Return the maximum error number for which strerror will return a
224    string.  */
225
226 extern int errno_max (void);
227
228 /* Return the name of an errno value (e.g., strerrno (EINVAL) returns
229    "EINVAL").  */
230
231 extern const char *strerrno (int);
232
233 /* Given the name of an errno value, return the value.  */
234
235 extern int strtoerrno (const char *);
236
237 /* ANSI's strerror(), but more robust.  */
238
239 extern char *xstrerror (int);
240
241 /* Return the maximum signal number for which strsignal will return a
242    string.  */
243
244 extern 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
256 extern const char *strsigno (int);
257
258 /* Given the name of a signal, return its number.  */
259
260 extern int strtosigno (const char *);
261
262 /* Register a function to be run by xexit.  Returns 0 on success.  */
263
264 extern int xatexit (void (*fn) (void));
265
266 /* Exit, calling all the functions registered with xatexit.  */
267
268 extern void xexit (int status) ATTRIBUTE_NORETURN;
269
270 /* Set the program name used by xmalloc.  */
271
272 extern void xmalloc_set_program_name (const char *);
273
274 /* Report an allocation failure.  */
275 extern 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
281 extern 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
287 extern void *xrealloc (void *, size_t);
288
289 /* Allocate memory without fail and set it to zero.  This works like
290    xmalloc.  */
291
292 extern void *xcalloc (size_t, size_t) ATTRIBUTE_MALLOC;
293
294 /* Copy a string into a memory buffer without fail.  */
295
296 extern char *xstrdup (const char *) ATTRIBUTE_MALLOC;
297
298 /* Copy at most N characters from string into a buffer without fail.  */
299
300 extern char *xstrndup (const char *, size_t) ATTRIBUTE_MALLOC;
301
302 /* Copy an existing memory buffer to a new memory buffer without fail.  */
303
304 extern void *xmemdup (const void *, size_t, size_t) ATTRIBUTE_MALLOC;
305
306 /* Physical memory routines.  Return values are in BYTES.  */
307 extern double physmem_total (void);
308 extern 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
345 extern const unsigned char _hex_value[_hex_array_size];
346 extern 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
371 extern 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 /* Execute one program.  Returns NULL on success.  On error returns an
404    error string (typically just the name of a system call); the error
405    string is statically allocated.
406
407    OBJ          Returned by pex_init.
408
409    FLAGS        As above.
410
411    EXECUTABLE   The program to execute.
412
413    ARGV         NULL terminated array of arguments to pass to the program.
414
415    OUTNAME      Sets the output file name as follows:
416
417                 PEX_SUFFIX set (OUTNAME may not be NULL):
418                   TEMPBASE parameter to pex_init not NULL:
419                     Output file name is the concatenation of TEMPBASE
420                     and OUTNAME.
421                   TEMPBASE is NULL:
422                     Output file name is a random file name ending in
423                     OUTNAME.
424                 PEX_SUFFIX not set:
425                   OUTNAME not NULL:
426                     Output file name is OUTNAME.
427                   OUTNAME NULL, TEMPBASE not NULL:
428                     Output file name is randomly chosen using
429                     TEMPBASE.
430                   OUTNAME NULL, TEMPBASE NULL:
431                     Output file name is randomly chosen.
432
433                 If PEX_LAST is not set, the output file name is the
434                 name to use for a temporary file holding stdout, if
435                 any (there will not be a file if PEX_USE_PIPES is set
436                 and the system supports pipes).  If a file is used, it
437                 will be removed when no longer needed unless
438                 PEX_SAVE_TEMPS is set.
439
440                 If PEX_LAST is set, and OUTNAME is not NULL, standard
441                 output is written to the output file name.  The file
442                 will not be removed.  If PEX_LAST and PEX_SUFFIX are
443                 both set, TEMPBASE may not be NULL.
444
445    ERRNAME      If not NULL, this is the name of a file to which
446                 standard error is written.  If NULL, standard error of
447                 the program is standard error of the caller.
448
449    ERR          On an error return, *ERR is set to an errno value, or
450                 to 0 if there is no relevant errno.
451 */
452
453 extern const char *pex_run (struct pex_obj *obj, int flags,
454                             const char *executable, char * const *argv,
455                             const char *outname, const char *errname,
456                             int *err);
457
458 /* As for pex_run (), but takes an extra parameter to enable the
459    environment for the child process to be specified.
460
461    ENV          The environment for the child process, specified as
462                 an array of character pointers.  Each element of the
463                 array should point to a string of the form VAR=VALUE,
464                 with the exception of the last element which must be
465                 a null pointer.
466 */
467
468 extern const char *pex_run_in_environment (struct pex_obj *obj, int flags,
469                                            const char *executable,
470                                            char * const *argv,
471                                            char * const *env,
472                                            const char *outname,
473                                            const char *errname, int *err);
474
475 /* Return a `FILE' pointer FP for the standard input of the first
476    program in the pipeline; FP is opened for writing.  You must have
477    passed `PEX_USE_PIPES' to the `pex_init' call that returned OBJ.
478    You must close FP yourself with `fclose' to indicate that the
479    pipeline's input is complete.
480
481    The file descriptor underlying FP is marked not to be inherited by
482    child processes.
483
484    This call is not supported on systems which do not support pipes;
485    it returns with an error.  (We could implement it by writing a
486    temporary file, but then you would need to write all your data and
487    close FP before your first call to `pex_run' -- and that wouldn't
488    work on systems that do support pipes: the pipe would fill up, and
489    you would block.  So there isn't any easy way to conceal the
490    differences between the two types of systems.)
491
492    If you call both `pex_write_input' and `pex_read_output', be
493    careful to avoid deadlock.  If the output pipe fills up, so that
494    each program in the pipeline is waiting for the next to read more
495    data, and you fill the input pipe by writing more data to FP, then
496    there is no way to make progress: the only process that could read
497    data from the output pipe is you, but you are blocked on the input
498    pipe.  */
499
500 extern FILE *pex_write_input (struct pex_obj *obj, int binary);
501
502 /* Return a stream for a temporary file to pass to the first program
503    in the pipeline as input.  The file name is chosen as for pex_run.
504    pex_run closes the file automatically; don't close it yourself.  */
505
506 extern FILE *pex_input_file (struct pex_obj *obj, int flags,
507                              const char *in_name);
508
509 /* Return a stream for a pipe connected to the standard input of the
510    first program in the pipeline.  You must have passed
511    `PEX_USE_PIPES' to `pex_init'.  Close the returned stream
512    yourself.  */
513
514 extern FILE *pex_input_pipe (struct pex_obj *obj, int binary);
515
516 /* Read the standard output of the last program to be executed.
517    pex_run can not be called after this.  BINARY should be non-zero if
518    the file should be opened in binary mode; this is ignored on Unix.
519    Returns NULL on error.  Don't call fclose on the returned FILE; it
520    will be closed by pex_free.  */
521
522 extern FILE *pex_read_output (struct pex_obj *, int binary);
523
524 /* Return exit status of all programs in VECTOR.  COUNT indicates the
525    size of VECTOR.  The status codes in the vector are in the order of
526    the calls to pex_run.  Returns 0 on error, 1 on success.  */
527
528 extern int pex_get_status (struct pex_obj *, int count, int *vector);
529
530 /* Return times of all programs in VECTOR.  COUNT indicates the size
531    of VECTOR.  struct pex_time is really just struct timeval, but that
532    is not portable to all systems.  Returns 0 on error, 1 on
533    success.  */
534
535 struct pex_time
536 {
537   unsigned long user_seconds;
538   unsigned long user_microseconds;
539   unsigned long system_seconds;
540   unsigned long system_microseconds;
541 };
542
543 extern int pex_get_times (struct pex_obj *, int count,
544                           struct pex_time *vector);
545
546 /* Clean up a pex_obj.  */
547
548 extern void pex_free (struct pex_obj *);
549
550 /* Just execute one program.  Return value is as for pex_run.
551    FLAGS        Combination of PEX_SEARCH and PEX_STDERR_TO_STDOUT.
552    EXECUTABLE   As for pex_run.
553    ARGV         As for pex_run.
554    PNAME        As for pex_init.
555    OUTNAME      As for pex_run when PEX_LAST is set.
556    ERRNAME      As for pex_run.
557    STATUS       Set to exit status on success.
558    ERR          As for pex_run.
559 */
560
561 extern const char *pex_one (int flags, const char *executable,
562                             char * const *argv, const char *pname,
563                             const char *outname, const char *errname,
564                             int *status, int *err);
565
566 /* pexecute and pwait are the old pexecute interface, still here for
567    backward compatibility.  Don't use these for new code.  Instead,
568    use pex_init/pex_run/pex_get_status/pex_free, or pex_one.  */
569
570 /* Definitions used by the pexecute routine.  */
571
572 #define PEXECUTE_FIRST   1
573 #define PEXECUTE_LAST    2
574 #define PEXECUTE_ONE     (PEXECUTE_FIRST + PEXECUTE_LAST)
575 #define PEXECUTE_SEARCH  4
576 #define PEXECUTE_VERBOSE 8
577
578 /* Execute a program.  */
579
580 extern int pexecute (const char *, char * const *, const char *,
581                      const char *, char **, char **, int);
582
583 /* Wait for pexecute to finish.  */
584
585 extern int pwait (int, int *, int);
586
587 #if !HAVE_DECL_ASPRINTF
588 /* Like sprintf but provides a pointer to malloc'd storage, which must
589    be freed by the caller.  */
590
591 extern int asprintf (char **, const char *, ...) ATTRIBUTE_PRINTF_2;
592 #endif
593
594 #if !HAVE_DECL_VASPRINTF
595 /* Like vsprintf but provides a pointer to malloc'd storage, which
596    must be freed by the caller.  */
597
598 extern int vasprintf (char **, const char *, va_list) ATTRIBUTE_PRINTF(2,0);
599 #endif
600
601 #if defined(HAVE_DECL_SNPRINTF) && !HAVE_DECL_SNPRINTF
602 /* Like sprintf but prints at most N characters.  */
603 extern int snprintf (char *, size_t, const char *, ...) ATTRIBUTE_PRINTF_3;
604 #endif
605
606 #if defined(HAVE_DECL_VSNPRINTF) && !HAVE_DECL_VSNPRINTF
607 /* Like vsprintf but prints at most N characters.  */
608 extern int vsnprintf (char *, size_t, const char *, va_list) ATTRIBUTE_PRINTF(3,0);
609 #endif
610
611 #if defined(HAVE_DECL_STRVERSCMP) && !HAVE_DECL_STRVERSCMP
612 /* Compare version strings.  */
613 extern int strverscmp (const char *, const char *);
614 #endif
615
616 #define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
617
618 /* Drastically simplified alloca configurator.  If we're using GCC,
619    we use __builtin_alloca; otherwise we use the C alloca.  The C
620    alloca is always available.  You can override GCC by defining
621    USE_C_ALLOCA yourself.  The canonical autoconf macro C_ALLOCA is
622    also set/unset as it is often used to indicate whether code needs
623    to call alloca(0).  */
624 extern void *C_alloca (size_t) ATTRIBUTE_MALLOC;
625 #undef alloca
626 #if GCC_VERSION >= 2000 && !defined USE_C_ALLOCA
627 # define alloca(x) __builtin_alloca(x)
628 # undef C_ALLOCA
629 # define ASTRDUP(X) \
630   (__extension__ ({ const char *const libiberty_optr = (X); \
631    const unsigned long libiberty_len = strlen (libiberty_optr) + 1; \
632    char *const libiberty_nptr = (char *const) alloca (libiberty_len); \
633    (char *) memcpy (libiberty_nptr, libiberty_optr, libiberty_len); }))
634 #else
635 # define alloca(x) C_alloca(x)
636 # undef USE_C_ALLOCA
637 # define USE_C_ALLOCA 1
638 # undef C_ALLOCA
639 # define C_ALLOCA 1
640 extern const char *libiberty_optr;
641 extern char *libiberty_nptr;
642 extern unsigned long libiberty_len;
643 # define ASTRDUP(X) \
644   (libiberty_optr = (X), \
645    libiberty_len = strlen (libiberty_optr) + 1, \
646    libiberty_nptr = (char *) alloca (libiberty_len), \
647    (char *) memcpy (libiberty_nptr, libiberty_optr, libiberty_len))
648 #endif
649
650 #ifdef __cplusplus
651 }
652 #endif
653
654
655 #endif /* ! defined (LIBIBERTY_H) */