openldap/contrib/tweb/ch_malloc.c
1999-09-10 17:33:39 +00:00

86 lines
2.8 KiB
C

/*_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
* *
* ch_malloc.c *
* *
* Function:..Alloc-Functions with Error-Handling *
* *
* from LDAP3.2 University of Michigan *
* *
* Patch: unsigned long --> size_t fuer size-Parameter *
* *
* *
* Authors:...Dr. Kurt Spanier & Bernhard Winkler, *
* Zentrum fuer Datenverarbeitung, Bereich Entwicklung *
* neuer Dienste, Universitaet Tuebingen, GERMANY *
* *
* ZZZZZ DDD V V *
* Creation date: Z D D V V *
* April 16 1996 Z D D V V *
* Last modification: Z D D V V *
* December 31 1998 ZZZZ DDD V *
* *
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_*/
/*
* $Id: ch_malloc.c,v 1.6 1999/09/10 15:01:16 zrnsk01 Exp $
*
*/
#include "tgeneral.h"
#include "tglobal.h"
#include "ch_malloc_exp.h"
#include "support_exp.h"
/* ch_malloc.c - malloc routines that test returns from malloc and friends */
PUBLIC char * ch_malloc( size )
size_t size;
{
char *new;
if ( (new = (char *) calloc(1, size )) == NULL ) {
if (dosyslog) syslog( LOG_INFO, "malloc of %d bytes failed\n", size );
exit_tweb( 1 );
}
return( new );
}
/* end of function: ch_malloc */
PUBLIC char * ch_realloc( block, size )
char *block;
size_t size;
{
char *new;
if ( block == NULL ) {
return( ch_malloc( size ) );
}
if ( (new = (char *) realloc( block, size )) == NULL ) {
if (dosyslog) syslog( LOG_INFO, "realloc of %d bytes failed\n", size );
exit_tweb( 1 );
}
return( new );
}
/* end of function: ch_realloc */
PUBLIC char * ch_calloc( nelem, size )
size_t nelem;
size_t size;
{
char *new;
if ( (new = (char *) calloc( nelem, size )) == NULL ) {
if (dosyslog) syslog( LOG_INFO, "calloc of %d elems of %d bytes failed\n",
nelem, size );
exit_tweb( 1 );
}
return( new );
}
/* end of function: ch_calloc */