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
#	Content
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	}