1 /* memory allocation routines with error checking.
2 Copyright 1989, 90, 91, 92, 93, 94 Free Software Foundation, Inc.
4 This file is part of the libiberty library.
5 Libiberty is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public
7 License as published by the Free Software Foundation; either
8 version 2 of the License, or (at your option) any later version.
10 Libiberty 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 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with libiberty; see the file COPYING.LIB. If
17 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
22 @deftypefn Replacement void* xmalloc (size_t)
24 Allocate memory without fail. If @code{malloc} fails, this will print
25 a message to stderr (using the name set by @code{xmalloc_set_program_name},
26 if any) and then call @code{xexit}. Note that it is therefore safe for
27 a program to contain @code{#define malloc xmalloc} in its source.
31 @deftypefn Replacement void* xrealloc (void*, size_t)
32 Reallocate memory without fail. This routine functions like @code{realloc},
33 but will behave the same as @code{xmalloc} if memory cannot be found.
37 @deftypefn Replacement void* xcalloc (size_t, size_t)
39 Allocate memory without fail, and set it to zero. This routine functions
40 like @code{calloc}, but will behave the same as @code{xmalloc} if memory
45 @deftypefn Replacement void xmalloc_set_program_name (const char *@var{name})
47 You can use this to set the name of the program used by
48 @code{xmalloc_failed} when printing a failure message.
52 @deftypefn Replacement void xmalloc_failed (size_t)
54 This function is not meant to be called by client code, and is listed
55 here for completeness only. If any of the allocation routines fail, this
56 function will be called to print an error message and terminate execution.
66 #include "libiberty.h"
73 #define size_t unsigned long
74 #define ptrdiff_t long
81 /* For systems with larger pointers than ints, these must be declared. */
82 PTR malloc PARAMS ((size_t));
83 PTR realloc PARAMS ((PTR, size_t));
84 PTR calloc PARAMS ((size_t, size_t));
85 PTR sbrk PARAMS ((ptrdiff_t));
88 /* The program name if set. */
89 static const char *name = "";
92 /* The initial sbrk, set when the program name is set. Not used for win32
93 ports other than cygwin32. */
94 static char *first_break = NULL;
95 #endif /* HAVE_SBRK */
98 xmalloc_set_program_name (s)
103 /* Win32 ports other than cygwin32 don't have brk() */
104 if (first_break == NULL)
105 first_break = (char *) sbrk (0);
106 #endif /* HAVE_SBRK */
110 xmalloc_failed (size)
114 extern char **environ;
117 if (first_break != NULL)
118 allocated = (char *) sbrk (0) - first_break;
120 allocated = (char *) sbrk (0) - (char *) &environ;
122 "\n%s%sCannot allocate %lu bytes after allocating %lu bytes\n",
123 name, *name ? ": " : "",
124 (unsigned long) size, (unsigned long) allocated);
125 #else /* HAVE_SBRK */
127 "\n%s%sCannot allocate %lu bytes\n",
128 name, *name ? ": " : "",
129 (unsigned long) size);
130 #endif /* HAVE_SBRK */
142 newmem = malloc (size);
144 xmalloc_failed (size);
150 xcalloc (nelem, elsize)
151 size_t nelem, elsize;
155 if (nelem == 0 || elsize == 0)
158 newmem = calloc (nelem, elsize);
160 xmalloc_failed (nelem * elsize);
166 xrealloc (oldmem, size)
175 newmem = malloc (size);
177 newmem = realloc (oldmem, size);
179 xmalloc_failed (size);