1 /* calloc() function that is glibc compatible.
2    This wrapper function is required at least on Tru64 UNIX 5.1 and mingw.
3    Copyright (C) 2004-2007, 2009-2021 Free Software Foundation, Inc.
4 
5    This file is free software: you can redistribute it and/or modify
6    it under the terms of the GNU Lesser General Public License as
7    published by the Free Software Foundation; either version 2.1 of the
8    License, or (at your option) any later version.
9 
10    This file 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 Lesser General Public License for more details.
14 
15    You should have received a copy of the GNU Lesser General Public License
16    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
17 
18 /* written by Jim Meyering and Bruno Haible */
19 
20 #include <config.h>
21 
22 /* Specification.  */
23 #include <stdlib.h>
24 
25 #include <errno.h>
26 
27 #include "xalloc-oversized.h"
28 
29 /* Call the system's calloc below.  */
30 #undef calloc
31 
32 /* Allocate and zero-fill an NxS-byte block of memory from the heap,
33    even if N or S is zero.  */
34 
35 void *
rpl_calloc(size_t n,size_t s)36 rpl_calloc (size_t n, size_t s)
37 {
38   if (n == 0 || s == 0)
39     n = s = 1;
40 
41   if (xalloc_oversized (n, s))
42     {
43       errno = ENOMEM;
44       return NULL;
45     }
46 
47   void *result = calloc (n, s);
48 
49 #if !HAVE_MALLOC_POSIX
50   if (result == NULL)
51     errno = ENOMEM;
52 #endif
53 
54   return result;
55 }
56