/* smalloc.c - error checking malloc */

#ifndef lint
static char *rcsid = "$Header: /a/vulcan/xtel/isode/isode-master/compat/RCS/smalloc.c,v 8.0 91/07/17 12:18:12 isode Rel $";
#endif

/*
 * $Header: /a/vulcan/xtel/isode/isode-master/compat/RCS/smalloc.c,v 8.0 91/07/17 12:18:12 isode Rel $
 *
 *
 * $Log:	smalloc.c,v $
 * Revision 8.0  91/07/17  12:18:12  isode
 * Release 7.0
 * 
 * 
 */

/*
 *                                NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


/* LINTLIBRARY */

#include <stdio.h>
#include "general.h"
#include "manifest.h"
#include "tailor.h"

/*  */

char *
smalloc(size)
int	size;
{
	register char *ptr;

	if ((ptr = malloc((unsigned) size)) == NULL){
	    LLOG (compat_log,LLOG_FATAL, ("malloc() failure"));
	    abort ();
	    /* NOTREACHED */
	}

	return(ptr);
}