* trans-stmt.c (gfc_trans_simple_do): New function.
[official-gcc.git] / libiberty / xstrdup.c
blob5aa084a768791c413d9405da227fa6f317ec6524
1 /* xstrdup.c -- Duplicate a string in memory, using xmalloc.
2 This trivial function is in the public domain.
3 Ian Lance Taylor, Cygnus Support, December 1995. */
5 /*
7 @deftypefn Replacement char* xstrdup (const char *@var{s})
9 Duplicates a character string without fail, using @code{xmalloc} to
10 obtain memory.
12 @end deftypefn
16 #include <sys/types.h>
17 #ifdef HAVE_CONFIG_H
18 #include "config.h"
19 #endif
20 #ifdef HAVE_STRING_H
21 #include <string.h>
22 #endif
23 #include "ansidecl.h"
24 #include "libiberty.h"
26 char *
27 xstrdup (s)
28 const char *s;
30 register size_t len = strlen (s) + 1;
31 register char *ret = xmalloc (len);
32 memcpy (ret, s, len);
33 return ret;