17 |
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
18 |
Boston, MA 02111-1307, USA. */ |
Boston, MA 02111-1307, USA. */ |
19 |
|
|
20 |
|
#ifdef HAVE_CONFIG_H |
21 |
|
#include "config.h" |
22 |
|
#endif |
23 |
#include "ansidecl.h" |
#include "ansidecl.h" |
24 |
#include "libiberty.h" |
#include "libiberty.h" |
25 |
|
|
64 |
#endif /* HAVE_SBRK */ |
#endif /* HAVE_SBRK */ |
65 |
} |
} |
66 |
|
|
67 |
|
void |
68 |
|
xmalloc_failed (size) |
69 |
|
size_t size; |
70 |
|
{ |
71 |
|
#ifdef HAVE_SBRK |
72 |
|
extern char **environ; |
73 |
|
size_t allocated; |
74 |
|
|
75 |
|
if (first_break != NULL) |
76 |
|
allocated = (char *) sbrk (0) - first_break; |
77 |
|
else |
78 |
|
allocated = (char *) sbrk (0) - (char *) &environ; |
79 |
|
fprintf (stderr, |
80 |
|
"\n%s%sCannot allocate %lu bytes after allocating %lu bytes\n", |
81 |
|
name, *name ? ": " : "", |
82 |
|
(unsigned long) size, (unsigned long) allocated); |
83 |
|
#else /* HAVE_SBRK */ |
84 |
|
fprintf (stderr, |
85 |
|
"\n%s%sCannot allocate %lu bytes\n", |
86 |
|
name, *name ? ": " : "", |
87 |
|
(unsigned long) size); |
88 |
|
#endif /* HAVE_SBRK */ |
89 |
|
xexit (1); |
90 |
|
} |
91 |
|
|
92 |
PTR |
PTR |
93 |
xmalloc (size) |
xmalloc (size) |
94 |
size_t size; |
size_t size; |
99 |
size = 1; |
size = 1; |
100 |
newmem = malloc (size); |
newmem = malloc (size); |
101 |
if (!newmem) |
if (!newmem) |
102 |
{ |
xmalloc_failed (size); |
|
#ifdef HAVE_SBRK |
|
|
extern char **environ; |
|
|
size_t allocated; |
|
103 |
|
|
|
if (first_break != NULL) |
|
|
allocated = (char *) sbrk (0) - first_break; |
|
|
else |
|
|
allocated = (char *) sbrk (0) - (char *) &environ; |
|
|
fprintf (stderr, |
|
|
"\n%s%sCan not allocate %lu bytes after allocating %lu bytes\n", |
|
|
name, *name ? ": " : "", |
|
|
(unsigned long) size, (unsigned long) allocated); |
|
|
#else /* HAVE_SBRK */ |
|
|
fprintf (stderr, |
|
|
"\n%s%sCan not allocate %lu bytes\n", |
|
|
name, *name ? ": " : "", |
|
|
(unsigned long) size); |
|
|
#endif /* HAVE_SBRK */ |
|
|
xexit (1); |
|
|
} |
|
104 |
return (newmem); |
return (newmem); |
105 |
} |
} |
106 |
|
|
115 |
|
|
116 |
newmem = calloc (nelem, elsize); |
newmem = calloc (nelem, elsize); |
117 |
if (!newmem) |
if (!newmem) |
118 |
{ |
xmalloc_failed (nelem * elsize); |
|
#ifdef HAVE_SBRK |
|
|
extern char **environ; |
|
|
size_t allocated; |
|
119 |
|
|
|
if (first_break != NULL) |
|
|
allocated = (char *) sbrk (0) - first_break; |
|
|
else |
|
|
allocated = (char *) sbrk (0) - (char *) &environ; |
|
|
fprintf (stderr, |
|
|
"\n%s%sCan not allocate %lu bytes after allocating %lu bytes\n", |
|
|
name, *name ? ": " : "", |
|
|
(unsigned long) (nelem * elsize), (unsigned long) allocated); |
|
|
#else /* HAVE_SBRK */ |
|
|
fprintf (stderr, |
|
|
"\n%s%sCan not allocate %lu bytes\n", |
|
|
name, *name ? ": " : "", |
|
|
(unsigned long) (nelem * elsize)); |
|
|
#endif /* HAVE_SBRK */ |
|
|
xexit (1); |
|
|
} |
|
120 |
return (newmem); |
return (newmem); |
121 |
} |
} |
122 |
|
|
134 |
else |
else |
135 |
newmem = realloc (oldmem, size); |
newmem = realloc (oldmem, size); |
136 |
if (!newmem) |
if (!newmem) |
137 |
{ |
xmalloc_failed (size); |
|
#ifdef HAVE_SBRK |
|
|
extern char **environ; |
|
|
size_t allocated; |
|
138 |
|
|
|
if (first_break != NULL) |
|
|
allocated = (char *) sbrk (0) - first_break; |
|
|
else |
|
|
allocated = (char *) sbrk (0) - (char *) &environ; |
|
|
fprintf (stderr, |
|
|
"\n%s%sCan not reallocate %lu bytes after allocating %lu bytes\n", |
|
|
name, *name ? ": " : "", |
|
|
(unsigned long) size, (unsigned long) allocated); |
|
|
#else /* HAVE_SBRK */ |
|
|
fprintf (stderr, |
|
|
"\n%s%sCan not reallocate %lu bytes\n", |
|
|
name, *name ? ": " : "", |
|
|
(unsigned long) size); |
|
|
#endif /* HAVE_SBRK */ |
|
|
xexit (1); |
|
|
} |
|
139 |
return (newmem); |
return (newmem); |
140 |
} |
} |