src/meta/ealloc.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  ealloc.c - memory routines which call quit on error.
 */


#include  <stdio.h>


char  *malloc(), *realloc(), *emalloc(), *ecalloc(), *erealloc();


char *
emalloc(n)                      /* return pointer to n uninitialized bytes */
unsigned  n;
{
        register char  *cp;
        
        if (n == 0)
                return(NULL);

        if ((cp = malloc(n)) != NULL)
                return(cp);

        eputs("Out of memory in emalloc\n");
        quit(1);
}


char *
ecalloc(ne, es)                 /* return pointer to initialized memory */
register unsigned  ne;
unsigned  es;
{
        register char  *cp;
        
        ne *= es;
        if (ne == 0)
                return(NULL);

        if ((cp = malloc(ne)) == NULL) {
                eputs("Out of memory in ecalloc\n");
                quit(1);
        }
        cp += ne;
        while (ne--)
                *--cp = 0;
        return(cp);
}


char *
erealloc(cp, n)                 /* reallocate cp to size n */
register char  *cp;
unsigned  n;
{
        if (n == 0) {
                if (cp != NULL)
                        free(cp);
                return(NULL);
        }

        if (cp == NULL)
                cp = malloc(n);
        else 
                cp = realloc(cp, n);

        if (cp != NULL)
                return(cp);

        eputs("Out of memory in erealloc\n");
        quit(1);
}


efree(cp)                       /* free memory allocated by above */
char  *cp;
{
        free(cp);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (21 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* ealloc.c - memory routines which call quit on error.
6			*/
7
8
9			#include <stdio.h>
10
11
12			char malloc(), realloc(), emalloc(), ecalloc(), *erealloc();
13
14
15			char *
16			emalloc(n) /* return pointer to n uninitialized bytes */
17			unsigned n;
18			{
19			register char *cp;
20
21			if (n == 0)
22			return(NULL);
23
24			if ((cp = malloc(n)) != NULL)
25			return(cp);
26
27			eputs("Out of memory in emalloc\n");
28			quit(1);
29			}
30
31
32			char *
33			ecalloc(ne, es) /* return pointer to initialized memory */
34			register unsigned ne;
35			unsigned es;
36			{
37			register char *cp;
38
39			ne *= es;
40			if (ne == 0)
41			return(NULL);
42
43			if ((cp = malloc(ne)) == NULL) {
44			eputs("Out of memory in ecalloc\n");
45			quit(1);
46			}
47			cp += ne;
48			while (ne--)
49			*--cp = 0;
50			return(cp);
51			}
52
53
54			char *
55			erealloc(cp, n) /* reallocate cp to size n */
56			register char *cp;
57			unsigned n;
58			{
59			if (n == 0) {
60			if (cp != NULL)
61			free(cp);
62			return(NULL);
63			}
64
65			if (cp == NULL)
66			cp = malloc(n);
67			else
68			cp = realloc(cp, n);
69
70			if (cp != NULL)
71			return(cp);
72
73			eputs("Out of memory in erealloc\n");
74			quit(1);
75			}
76
77
78			efree(cp) /* free memory allocated by above */
79			char *cp;
80			{
81			free(cp);
82			}