New module 'realloc-posix'.
[pspp] / lib / realloc.c
1 /* realloc() function that is glibc compatible.
2
3    Copyright (C) 1997, 2003, 2004, 2006, 2007 Free Software Foundation, Inc.
4
5    This program is free software; you can redistribute it and/or modify
6    it under the terms of the GNU General Public License as published by
7    the Free Software Foundation; either version 2, or (at your option)
8    any later version.
9
10    This program 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
13    GNU General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software Foundation,
17    Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.  */
18
19 /* written by Jim Meyering and Bruno Haible */
20
21 #include <config.h>
22 /* Only the AC_FUNC_REALLOC macro defines 'realloc' already in config.h.  */
23 #ifdef realloc
24 # define NEED_REALLOC_GNU
25 # undef realloc
26 #endif
27
28 /* Specification.  */
29 #include <stdlib.h>
30
31 #include <errno.h>
32
33 /* Change the size of an allocated block of memory P to N bytes,
34    with error checking.  If N is zero, change it to 1.  If P is NULL,
35    use malloc.  */
36
37 void *
38 rpl_realloc (void *p, size_t n)
39 {
40   void *result;
41
42 #ifdef NEED_REALLOC_GNU
43   if (n == 0)
44     {
45       n = 1;
46
47       /* In theory realloc might fail, so don't rely on it to free.  */
48       free (p);
49       p = NULL;
50     }
51 #endif
52
53   result = (p == NULL ? malloc (n) : realloc (p, n));
54
55 #if !HAVE_REALLOC_POSIX
56   if (result == NULL)
57     errno = ENOMEM;
58 #endif
59
60   return result;
61 }