/* ----------------------------------------------------------------
 *	smalloc.c
 *
 *	$Header: /private/postgres/src/utils/fmgr/RCS/smalloc.c,v 1.4 1990/02/12 19:50:38 cimarron Exp $
 * ----------------------------------------------------------------
 */
static char error[] = "Out of memory\n";

int*
smalloc(size) /* "Safe" alloc */
{  int* retval = (int*)calloc(1,size);

   if (retval == 0)
	{ write(2, error, sizeof(error));
	  exitpg(-1);
	}
   else return retval;
}



sfree(ptr)
{
  if (ptr != 0) free(ptr);
}