105436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* calloc() function that is glibc compatible. 205436638acc7c010349a69c3395f1a57c642dc62Ying Wang This wrapper function is required at least on Tru64 UNIX 5.1 and mingw. 305436638acc7c010349a69c3395f1a57c642dc62Ying Wang Copyright (C) 2004-2007, 2009-2012 Free Software Foundation, Inc. 405436638acc7c010349a69c3395f1a57c642dc62Ying Wang 505436638acc7c010349a69c3395f1a57c642dc62Ying Wang This program is free software: you can redistribute it and/or modify 605436638acc7c010349a69c3395f1a57c642dc62Ying Wang it under the terms of the GNU General Public License as published by 705436638acc7c010349a69c3395f1a57c642dc62Ying Wang the Free Software Foundation; either version 3 of the License, or 805436638acc7c010349a69c3395f1a57c642dc62Ying Wang (at your option) any later version. 905436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1005436638acc7c010349a69c3395f1a57c642dc62Ying Wang This program is distributed in the hope that it will be useful, 1105436638acc7c010349a69c3395f1a57c642dc62Ying Wang but WITHOUT ANY WARRANTY; without even the implied warranty of 1205436638acc7c010349a69c3395f1a57c642dc62Ying Wang MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1305436638acc7c010349a69c3395f1a57c642dc62Ying Wang GNU General Public License for more details. 1405436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1505436638acc7c010349a69c3395f1a57c642dc62Ying Wang You should have received a copy of the GNU General Public License 1605436638acc7c010349a69c3395f1a57c642dc62Ying Wang along with this program. If not, see <http://www.gnu.org/licenses/>. */ 1705436638acc7c010349a69c3395f1a57c642dc62Ying Wang 1805436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* written by Jim Meyering and Bruno Haible */ 1905436638acc7c010349a69c3395f1a57c642dc62Ying Wang 2005436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include <config.h> 2105436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Only the AC_FUNC_CALLOC macro defines 'calloc' already in config.h. */ 2205436638acc7c010349a69c3395f1a57c642dc62Ying Wang#ifdef calloc 2305436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define NEED_CALLOC_GNU 1 2405436638acc7c010349a69c3395f1a57c642dc62Ying Wang# undef calloc 2505436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Whereas the gnulib module 'calloc-gnu' defines HAVE_CALLOC_GNU. */ 2605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#elif GNULIB_CALLOC_GNU && !HAVE_CALLOC_GNU 2705436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define NEED_CALLOC_GNU 1 2805436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif 2905436638acc7c010349a69c3395f1a57c642dc62Ying Wang 3005436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Specification. */ 3105436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include <stdlib.h> 3205436638acc7c010349a69c3395f1a57c642dc62Ying Wang 3305436638acc7c010349a69c3395f1a57c642dc62Ying Wang#include <errno.h> 3405436638acc7c010349a69c3395f1a57c642dc62Ying Wang 3505436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Call the system's calloc below. */ 3605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#undef calloc 3705436638acc7c010349a69c3395f1a57c642dc62Ying Wang 3805436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Allocate and zero-fill an NxS-byte block of memory from the heap. 3905436638acc7c010349a69c3395f1a57c642dc62Ying Wang If N or S is zero, allocate and zero-fill a 1-byte block. */ 4005436638acc7c010349a69c3395f1a57c642dc62Ying Wang 4105436638acc7c010349a69c3395f1a57c642dc62Ying Wangvoid * 4205436638acc7c010349a69c3395f1a57c642dc62Ying Wangrpl_calloc (size_t n, size_t s) 4305436638acc7c010349a69c3395f1a57c642dc62Ying Wang{ 4405436638acc7c010349a69c3395f1a57c642dc62Ying Wang void *result; 4505436638acc7c010349a69c3395f1a57c642dc62Ying Wang 4605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#if NEED_CALLOC_GNU 4705436638acc7c010349a69c3395f1a57c642dc62Ying Wang if (n == 0 || s == 0) 4805436638acc7c010349a69c3395f1a57c642dc62Ying Wang { 4905436638acc7c010349a69c3395f1a57c642dc62Ying Wang n = 1; 5005436638acc7c010349a69c3395f1a57c642dc62Ying Wang s = 1; 5105436638acc7c010349a69c3395f1a57c642dc62Ying Wang } 5205436638acc7c010349a69c3395f1a57c642dc62Ying Wang else 5305436638acc7c010349a69c3395f1a57c642dc62Ying Wang { 5405436638acc7c010349a69c3395f1a57c642dc62Ying Wang /* Defend against buggy calloc implementations that mishandle 5505436638acc7c010349a69c3395f1a57c642dc62Ying Wang size_t overflow. */ 5605436638acc7c010349a69c3395f1a57c642dc62Ying Wang size_t bytes = n * s; 5705436638acc7c010349a69c3395f1a57c642dc62Ying Wang if (bytes / s != n) 5805436638acc7c010349a69c3395f1a57c642dc62Ying Wang { 5905436638acc7c010349a69c3395f1a57c642dc62Ying Wang errno = ENOMEM; 6005436638acc7c010349a69c3395f1a57c642dc62Ying Wang return NULL; 6105436638acc7c010349a69c3395f1a57c642dc62Ying Wang } 6205436638acc7c010349a69c3395f1a57c642dc62Ying Wang } 6305436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif 6405436638acc7c010349a69c3395f1a57c642dc62Ying Wang 6505436638acc7c010349a69c3395f1a57c642dc62Ying Wang result = calloc (n, s); 6605436638acc7c010349a69c3395f1a57c642dc62Ying Wang 6705436638acc7c010349a69c3395f1a57c642dc62Ying Wang#if !HAVE_CALLOC_POSIX 6805436638acc7c010349a69c3395f1a57c642dc62Ying Wang if (result == NULL) 6905436638acc7c010349a69c3395f1a57c642dc62Ying Wang errno = ENOMEM; 7005436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif 7105436638acc7c010349a69c3395f1a57c642dc62Ying Wang 7205436638acc7c010349a69c3395f1a57c642dc62Ying Wang return result; 7305436638acc7c010349a69c3395f1a57c642dc62Ying Wang} 74