1/*********************************************************************
2 *   Copyright 1993, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *   $Header: /upc/share/CVS/netcdf-3/nctest/emalloc.c,v 1.11 2006/10/31 16:21:56 ed Exp $
5 *********************************************************************/
6
7/*LINTLIBRARY*/
8#include <config.h>
9#include <stdio.h>
10#include <stdlib.h>
11#include "error.h"
12#include "emalloc.h"
13
14void *
15emalloc (size) /* check return from malloc */
16     size_t size;
17{
18    void   *p;
19
20    if (size > (unsigned long)32767) {
21        error ("absurd arg to emalloc: %lu", (unsigned long) size);
22 return 0;
23    }
24    if (size == 0)
25      return 0;
26    p = (void *) malloc (size);
27    if (p == 0) {
28 error ("out of memory\n");
29 exit (1);
30    }
31    return p;
32}
33
34void *
35erealloc (ptrsize) /* check return from realloc */
36     void *ptr;
37     size_t size;
38{
39    void *p;
40
41    if (size >  (unsigned long)32767) {
42        error ("absurd arg to erealloc %lu", (unsigned long) size);
43 return 0;
44    }
45    p = (void *) realloc (ptrsize);
46
47    if (p == 0) {
48  error ("out of memory");
49 exit(1);
50    }
51    return p;
52}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed