1 /* $NetBSD: xmalloc.c,v 1.1.1.1 2016/01/10 21:36:19 christos Exp $ */
2
3 /* xmalloc.c -- malloc with out of memory checking
4 Copyright (C) 1990-1999, 2000 Free Software Foundation, Inc.
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software Foundation,
18 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
19
20 #if HAVE_CONFIG_H
21 # include <config.h>
22 #endif
23
24 #include <sys/types.h>
25
26 #if STDC_HEADERS
27 # include <stdlib.h>
28 #else
29 void *calloc ();
30 void *malloc ();
31 void *realloc ();
32 void free ();
33 #endif
34
35 #if ENABLE_NLS
36 # include <libintl.h>
37 # define _(Text) gettext (Text)
38 #else
39 # define textdomain(Domain)
40 # define _(Text) Text
41 #endif
42 #define N_(Text) Text
43
44 #include "error.h"
45 #include "xalloc.h"
46
47 #ifndef EXIT_FAILURE
48 # define EXIT_FAILURE 1
49 #endif
50
51 #ifndef HAVE_DONE_WORKING_MALLOC_CHECK
52 "you must run the autoconf test for a properly working malloc -- see malloc.m4"
53 #endif
54
55 #ifndef HAVE_DONE_WORKING_REALLOC_CHECK
56 "you must run the autoconf test for a properly working realloc --see realloc.m4"
57 #endif
58
59 /* Exit value when the requested amount of memory is not available.
60 The caller may set it to some other value. */
61 int xalloc_exit_failure = EXIT_FAILURE;
62
63 /* If non NULL, call this function when memory is exhausted. */
64 void (*xalloc_fail_func) PARAMS ((void)) = 0;
65
66 /* If XALLOC_FAIL_FUNC is NULL, or does return, display this message
67 before exiting when memory is exhausted. Goes through gettext. */
68 char const xalloc_msg_memory_exhausted[] = N_("memory exhausted");
69
70 void
xalloc_die(void)71 xalloc_die (void)
72 {
73 if (xalloc_fail_func)
74 (*xalloc_fail_func) ();
75 error (xalloc_exit_failure, 0, "%s", _(xalloc_msg_memory_exhausted));
76 /* The `noreturn' cannot be given to error, since it may return if
77 its first argument is 0. To help compilers understand the
78 xalloc_die does terminate, call exit. */
79 exit (EXIT_FAILURE);
80 }
81
82 /* Allocate N bytes of memory dynamically, with error checking. */
83
84 void *
xmalloc(size_t n)85 xmalloc (size_t n)
86 {
87 void *p;
88
89 p = malloc (n);
90 if (p == 0)
91 xalloc_die ();
92 return p;
93 }
94
95 /* Change the size of an allocated block of memory P to N bytes,
96 with error checking. */
97
98 void *
xrealloc(void * p,size_t n)99 xrealloc (void *p, size_t n)
100 {
101 p = realloc (p, n);
102 if (p == 0)
103 xalloc_die ();
104 return p;
105 }
106
107 /* Allocate memory for N elements of S bytes, with error checking. */
108
109 void *
xcalloc(size_t n,size_t s)110 xcalloc (size_t n, size_t s)
111 {
112 void *p;
113
114 p = calloc (n, s);
115 if (p == 0)
116 xalloc_die ();
117 return p;
118 }
119