Mercurial > hg > octave-kai > gnulib-hg
annotate lib/xmalloc.c @ 1120:982a726b793b
remove fixup_null_alloc prototype
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sat, 15 Nov 1997 17:18:01 +0000 |
| parents | 94c957144330 |
| children | 38fd8f5d359d |
| rev | line source |
|---|---|
| 9 | 1 /* xmalloc.c -- malloc with out of memory checking |
| 1071 | 2 Copyright (C) 1990, 91, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc. |
| 9 | 3 |
| 4 This program is free software; you can redistribute it and/or modify | |
| 5 it under the terms of the GNU General Public License as published by | |
| 6 the Free Software Foundation; either version 2, or (at your option) | |
| 7 any later version. | |
| 8 | |
| 9 This program is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 GNU General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU General Public License | |
|
649
89f4c1937ac7
update FSF address in copyright and remove any trailing blanks
Jim Meyering <jim@meyering.net>
parents:
399
diff
changeset
|
15 along with this program; if not, write to the Free Software Foundation, |
|
89f4c1937ac7
update FSF address in copyright and remove any trailing blanks
Jim Meyering <jim@meyering.net>
parents:
399
diff
changeset
|
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
| 9 | 17 |
| 739 | 18 #if HAVE_CONFIG_H |
| 653 | 19 # include <config.h> |
| 399 | 20 #endif |
| 21 | |
| 22 #include <sys/types.h> | |
| 23 | |
| 24 #if STDC_HEADERS | |
| 653 | 25 # include <stdlib.h> |
| 9 | 26 #else |
| 1071 | 27 void *calloc (); |
| 28 void *malloc (); | |
| 29 void *realloc (); | |
| 9 | 30 void free (); |
| 31 #endif | |
| 32 | |
| 739 | 33 #if ENABLE_NLS |
| 399 | 34 # include <libintl.h> |
| 739 | 35 # define _(Text) gettext (Text) |
| 399 | 36 #else |
| 739 | 37 # define textdomain(Domain) |
| 38 # define _(Text) Text | |
| 399 | 39 #endif |
| 1071 | 40 #define N_(Text) Text |
| 399 | 41 |
| 739 | 42 #include "error.h" |
| 1071 | 43 #include "xalloc.h" |
| 739 | 44 |
| 399 | 45 #ifndef EXIT_FAILURE |
| 653 | 46 # define EXIT_FAILURE 1 |
| 399 | 47 #endif |
| 48 | |
| 739 | 49 /* Prototypes for functions defined here. */ |
| 50 #if defined (__STDC__) && __STDC__ | |
| 1071 | 51 void *xmalloc (size_t n); |
| 52 void *xcalloc (size_t n, size_t s); | |
| 53 void *xrealloc (void *p, size_t n); | |
| 739 | 54 #endif |
| 55 | |
|
1090
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
56 #ifndef HAVE_DONE_WORKING_MALLOC_CHECK |
|
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
57 you must run the autoconf test for a properly working malloc -- see malloc.m4 |
|
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
58 #endif |
|
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
59 |
|
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
60 #ifndef HAVE_DONE_WORKING_REALLOC_CHECK |
|
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
61 you must run the autoconf test for a properly working realloc -- see realloc.m4 |
|
94c957144330
make sure autoconf tests have been run
Jim Meyering <jim@meyering.net>
parents:
1088
diff
changeset
|
62 #endif |
| 739 | 63 |
| 399 | 64 /* Exit value when the requested amount of memory is not available. |
| 65 The caller may set it to some other value. */ | |
| 1071 | 66 int xalloc_exit_failure = EXIT_FAILURE; |
| 67 | |
| 68 /* FIXME: describe */ | |
| 69 char *const xalloc_msg_memory_exhausted = N_("Memory exhausted"); | |
| 70 | |
| 71 /* FIXME: describe */ | |
|
1080
d3582c7b620d
(xalloc_fail_func): Initialize to 0, not NULL.
Jim Meyering <jim@meyering.net>
parents:
1071
diff
changeset
|
72 void (*xalloc_fail_func) () = 0; |
| 399 | 73 |
| 74 #if __STDC__ && (HAVE_VPRINTF || HAVE_DOPRNT) | |
| 75 void error (int, int, const char *, ...); | |
| 76 #else | |
| 9 | 77 void error (); |
| 399 | 78 #endif |
| 79 | |
|
1088
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
80 static void |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
81 xalloc_fail () |
| 399 | 82 { |
|
1088
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
83 if (xalloc_fail_func) |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
84 (*xalloc_fail_func) (); |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
85 error (xalloc_exit_failure, 0, xalloc_msg_memory_exhausted); |
| 399 | 86 } |
| 9 | 87 |
| 88 /* Allocate N bytes of memory dynamically, with error checking. */ | |
| 89 | |
| 1071 | 90 void * |
| 9 | 91 xmalloc (n) |
| 399 | 92 size_t n; |
| 9 | 93 { |
| 1071 | 94 void *p; |
| 9 | 95 |
| 96 p = malloc (n); | |
| 97 if (p == 0) | |
|
1088
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
98 xalloc_fail (); |
| 9 | 99 return p; |
| 100 } | |
| 101 | |
|
1088
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
102 /* Change the size of an allocated block of memory P to N bytes, |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
103 with error checking. |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
104 If P is NULL, run xmalloc. */ |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
105 |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
106 void * |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
107 xrealloc (p, n) |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
108 void *p; |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
109 size_t n; |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
110 { |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
111 p = realloc (p, n); |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
112 if (p == 0) |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
113 xalloc_fail (); |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
114 return p; |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
115 } |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
116 |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
117 #ifdef NOT_USED |
|
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
118 |
| 739 | 119 /* Allocate memory for N elements of S bytes, with error checking. */ |
| 120 | |
| 1071 | 121 void * |
| 739 | 122 xcalloc (n, s) |
| 123 size_t n, s; | |
| 124 { | |
| 1071 | 125 void *p; |
| 739 | 126 |
| 127 p = calloc (n, s); | |
| 128 if (p == 0) | |
|
1120
982a726b793b
remove fixup_null_alloc prototype
Jim Meyering <jim@meyering.net>
parents:
1090
diff
changeset
|
129 xalloc_fail (); |
| 739 | 130 return p; |
| 131 } | |
| 132 | |
|
1088
1ae95221563d
(xalloc_fail): Renamed from fixup_null_alloc.
Jim Meyering <jim@meyering.net>
parents:
1080
diff
changeset
|
133 #endif /* NOT_USED */ |