src/common/malloc.c

/* Copyright (c) 1990 Regents of the University of California */

#ifndef lint
static char SCCSid[] = "$SunId$ LBL";
#endif

/*
 * Fast malloc for memory hogs and VM environments.
 * Performs a minimum of searching through free lists.
 * bmalloc() doesn't keep track of free lists -- it's basically
 *      just a buffered call to sbrk(2).  However, bmalloc will
 *      call mscrounge() if sbrk fails.
 * bfree() puts memory from any source into malloc free lists.
 * malloc(), realloc() and free() use buckets
 *      containing blocks in powers of two, similar to CIT routines.
 * mscrounge() returns whatever memory it can find to satisfy the
 *      request along with the number of bytes (modified).
 *
 *      Greg Ward       Lawrence Berkeley Laboratory
 */

#define  NULL           0

#ifndef ALIGN
#define  ALIGN          int                     /* align type */
#endif
#define  BYTES_WORD     sizeof(ALIGN)

#define  MAXINCR        (1<<18)                 /* largest sbrk(2) increment */

#ifdef  NOVMEM
#define  getpagesize()  BYTES_WORD
#endif
                                        /* malloc free lists */
typedef union m_head {
        union m_head    *next;
        int             bucket;
        ALIGN           dummy;
} M_HEAD;

#define FIRSTBUCKET     3
#define NBUCKETS        30

static M_HEAD   *free_list[NBUCKETS];


char *
mscrounge(np)           /* search free lists trying to satisfy request */
register unsigned       *np;
{
        char    *p;
        register int    bucket;
        register unsigned       bsiz;

        for (bucket = FIRSTBUCKET, bsiz = 1<<FIRSTBUCKET;
                        bucket < NBUCKETS; bucket++, bsiz <<= 1)
                if (free_list[bucket] != NULL && bsiz+sizeof(M_HEAD) >= *np) {
                        *np = bsiz+sizeof(M_HEAD);
                        p = (char *)free_list[bucket];
                        free_list[bucket] = free_list[bucket]->next;
                        return(p);
                }
        *np = 0;
        return(NULL);
}


char *
bmalloc(n)              /* allocate a block of n bytes, sans header */
register unsigned  n;
{
        extern char  *sbrk();
        static unsigned  pagesz = 0;
        static unsigned  amnt;
        static char  *bpos;
        static unsigned  nrem;
        unsigned  thisamnt;
        register char   *p;

        if (pagesz == 0) {                              /* initialize */
                pagesz = amnt = getpagesize();
                nrem = (int)sbrk(0);                    /* page align break */
                nrem = pagesz - (nrem&(pagesz-1));
                bpos = sbrk(nrem);                      /* word aligned! */
                if ((int)bpos == -1)
                        return(NULL);
        }

        n = (n+(BYTES_WORD-1))&~(BYTES_WORD-1);         /* word align rqst. */

        if (n > nrem) {                                 /* need more core */
                if (n > amnt) {                         /* big chunk */
                        thisamnt = (n+(pagesz-1))&~(pagesz-1);
                        if (thisamnt <= MAXINCR)        /* increase amnt */
                                amnt = thisamnt;
                } else
                        thisamnt = amnt;
                p = sbrk(thisamnt);
                if ((int)p == -1) {                     /* uh-oh */
                        thisamnt = n;                   /* search free lists */
                        p = mscrounge(&thisamnt);
                        if (p == NULL)                  /* we're really out */
                                return(NULL);
                }
                if (p != bpos+nrem) {                   /* not an increment */
                        bfree(bpos, nrem);
                        bpos = p;
                        nrem = thisamnt;
                } else
                        nrem += thisamnt;
        }
        p = bpos;
        bpos += n;                                      /* advance */
        nrem -= n;
        return(p);
}


bfree(p, n)                     /* free n bytes of random memory */
register char  *p;
register unsigned  n;
{
        register int    bucket;
        register unsigned       bsiz;
                                        /* find largest bucket */
        bucket = 0;
        for (bsiz = 1; bsiz+sizeof(M_HEAD) <= n; bsiz <<= 1)
                bucket++;
        while (bucket > FIRSTBUCKET) {
                bsiz >>= 1;
                bucket--;
                if (n < bsiz+sizeof(M_HEAD))    /* nothing for this bucket */
                        continue;
                ((M_HEAD *)p)->next = free_list[bucket];
                free_list[bucket] = (M_HEAD *)p;
                p += bsiz+sizeof(M_HEAD);
                n -= bsiz+sizeof(M_HEAD);
        }
}


char *
malloc(n)                       /* allocate n bytes of memory */
unsigned        n;
{
        register M_HEAD *mp;
        register int    bucket;
        register unsigned       bsiz;

        if (n == 0)
                return(NULL);
                                        /* find first bucket that fits */
        bucket = FIRSTBUCKET;
        for (bsiz = 1<<FIRSTBUCKET; bsiz < n; bsiz <<= 1)
                bucket++;
        if (free_list[bucket] == NULL) {
                mp = (M_HEAD *)bmalloc(bsiz+sizeof(M_HEAD));
                if (mp == NULL)
                        return(NULL);
        } else {
                mp = free_list[bucket];
                free_list[bucket] = mp->next;
        }
        mp->bucket = bucket;
        return((char *)(mp+1));
}


char *
realloc(op, n)                  /* reallocate memory using malloc() */
char    *op;
unsigned        n;
{
        register char   *p;
        register unsigned       on;

        if (op != NULL)
                on = 1 << ((M_HEAD *)op-1)->bucket;
        else
                on = 0;
        if (n <= on && n > on>>1)
                return(op);             /* same bucket */
        p = malloc(n);
        if (p != NULL)
#ifdef  BSD
                bcopy(op, p, n>on ? on : n);
#else
                (void)memcpy(p, op, n>on ? on : n);
#endif
        free(op);
        return(p);
}


free(p)                 /* free memory allocated by malloc */
char    *p;
{
        register M_HEAD *mp;
        register int    bucket;

        if (p == NULL)
                return;
        mp = (M_HEAD *)p - 1;
        bucket = mp->bucket;
        mp->next = free_list[bucket];
        free_list[bucket] = mp;
}


#ifndef NOVMEM
#ifndef BSD
#include <sys/var.h>
int
getpagesize()                   /* use SYSV var structure to get page size */
{
        static int  pagesz = 0;
        struct var  v;

        if (pagesz == 0) {
                uvar(&v);
                pagesz = 1 << v.v_pageshift;
        }
        return(pagesz);
}
#endif
#endif
Revision:	1.3
Committed:	Wed Sep 26 06:23:10 1990 UTC (33 years, 7 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+48 -14 lines
Log Message:	added mscrounge()
#	User	Rev	Content
1	greg	1.1	/* Copyright (c) 1990 Regents of the University of California */
2
3			#ifndef lint
4			static char SCCSid[] = "$SunId$ LBL";
5			#endif
6
7			/*
8			* Fast malloc for memory hogs and VM environments.
9			* Performs a minimum of searching through free lists.
10			* bmalloc() doesn't keep track of free lists -- it's basically
11	greg	1.3	* just a buffered call to sbrk(2). However, bmalloc will
12			* call mscrounge() if sbrk fails.
13			* bfree() puts memory from any source into malloc free lists.
14	greg	1.1	* malloc(), realloc() and free() use buckets
15			* containing blocks in powers of two, similar to CIT routines.
16	greg	1.3	* mscrounge() returns whatever memory it can find to satisfy the
17			* request along with the number of bytes (modified).
18	greg	1.1	*
19			* Greg Ward Lawrence Berkeley Laboratory
20			*/
21
22			#define NULL 0
23
24			#ifndef ALIGN
25			#define ALIGN int /* align type */
26			#endif
27			#define BYTES_WORD sizeof(ALIGN)
28
29	greg	1.3	#define MAXINCR (1<<18) /* largest sbrk(2) increment */
30
31	greg	1.1	#ifdef NOVMEM
32			#define getpagesize() BYTES_WORD
33			#endif
34			/* malloc free lists */
35			typedef union m_head {
36			union m_head *next;
37			int bucket;
38			ALIGN dummy;
39			} M_HEAD;
40
41			#define FIRSTBUCKET 3
42			#define NBUCKETS 30
43
44			static M_HEAD *free_list[NBUCKETS];
45
46
47			char *
48	greg	1.3	mscrounge(np) /* search free lists trying to satisfy request */
49			register unsigned *np;
50			{
51			char *p;
52			register int bucket;
53			register unsigned bsiz;
54
55			for (bucket = FIRSTBUCKET, bsiz = 1<<FIRSTBUCKET;
56			bucket < NBUCKETS; bucket++, bsiz <<= 1)
57			if (free_list[bucket] != NULL && bsiz+sizeof(M_HEAD) >= *np) {
58			*np = bsiz+sizeof(M_HEAD);
59			p = (char *)free_list[bucket];
60			free_list[bucket] = free_list[bucket]->next;
61			return(p);
62			}
63			*np = 0;
64			return(NULL);
65			}
66
67
68			char *
69	greg	1.1	bmalloc(n) /* allocate a block of n bytes, sans header */
70			register unsigned n;
71			{
72			extern char *sbrk();
73	greg	1.3	static unsigned pagesz = 0;
74			static unsigned amnt;
75	greg	1.1	static char *bpos;
76	greg	1.3	static unsigned nrem;
77			unsigned thisamnt;
78	greg	1.1	register char *p;
79
80			if (pagesz == 0) { /* initialize */
81	greg	1.2	pagesz = amnt = getpagesize();
82	greg	1.1	nrem = (int)sbrk(0); /* page align break */
83			nrem = pagesz - (nrem&(pagesz-1));
84			bpos = sbrk(nrem); /* word aligned! */
85			if ((int)bpos == -1)
86			return(NULL);
87			}
88
89			n = (n+(BYTES_WORD-1))&~(BYTES_WORD-1); /* word align rqst. */
90
91			if (n > nrem) { /* need more core */
92	greg	1.3	if (n > amnt) { /* big chunk */
93			thisamnt = (n+(pagesz-1))&~(pagesz-1);
94			if (thisamnt <= MAXINCR) /* increase amnt */
95			amnt = thisamnt;
96			} else
97			thisamnt = amnt;
98			p = sbrk(thisamnt);
99			if ((int)p == -1) { /* uh-oh */
100			thisamnt = n; /* search free lists */
101			p = mscrounge(&thisamnt);
102			if (p == NULL) /* we're really out */
103			return(NULL);
104			}
105			if (p != bpos+nrem) { /* not an increment */
106	greg	1.1	bfree(bpos, nrem);
107			bpos = p;
108	greg	1.3	nrem = thisamnt;
109	greg	1.1	} else
110	greg	1.3	nrem += thisamnt;
111	greg	1.1	}
112			p = bpos;
113			bpos += n; /* advance */
114			nrem -= n;
115			return(p);
116			}
117
118
119			bfree(p, n) /* free n bytes of random memory */
120	greg	1.2	register char *p;
121			register unsigned n;
122	greg	1.1	{
123			register int bucket;
124			register unsigned bsiz;
125			/* find largest bucket */
126			bucket = 0;
127			for (bsiz = 1; bsiz+sizeof(M_HEAD) <= n; bsiz <<= 1)
128			bucket++;
129			while (bucket > FIRSTBUCKET) {
130			bsiz >>= 1;
131			bucket--;
132			if (n < bsiz+sizeof(M_HEAD)) /* nothing for this bucket */
133			continue;
134	greg	1.2	((M_HEAD *)p)->next = free_list[bucket];
135			free_list[bucket] = (M_HEAD *)p;
136			p += bsiz+sizeof(M_HEAD);
137	greg	1.1	n -= bsiz+sizeof(M_HEAD);
138			}
139			}
140
141
142			char *
143			malloc(n) /* allocate n bytes of memory */
144			unsigned n;
145			{
146			register M_HEAD *mp;
147			register int bucket;
148			register unsigned bsiz;
149
150	greg	1.2	if (n == 0)
151			return(NULL);
152			/* find first bucket that fits */
153	greg	1.1	bucket = FIRSTBUCKET;
154			for (bsiz = 1<<FIRSTBUCKET; bsiz < n; bsiz <<= 1)
155			bucket++;
156			if (free_list[bucket] == NULL) {
157			mp = (M_HEAD *)bmalloc(bsiz+sizeof(M_HEAD));
158			if (mp == NULL)
159			return(NULL);
160			} else {
161			mp = free_list[bucket];
162			free_list[bucket] = mp->next;
163			}
164			mp->bucket = bucket;
165			return((char *)(mp+1));
166			}
167
168
169			char *
170			realloc(op, n) /* reallocate memory using malloc() */
171			char *op;
172			unsigned n;
173			{
174			register char *p;
175			register unsigned on;
176
177			if (op != NULL)
178			on = 1 << ((M_HEAD *)op-1)->bucket;
179			else
180			on = 0;
181			if (n <= on && n > on>>1)
182			return(op); /* same bucket */
183			p = malloc(n);
184	greg	1.2	if (p != NULL)
185	greg	1.1	#ifdef BSD
186	greg	1.2	bcopy(op, p, n>on ? on : n);
187	greg	1.1	#else
188	greg	1.2	(void)memcpy(p, op, n>on ? on : n);
189	greg	1.1	#endif
190			free(op);
191			return(p);
192			}
193
194
195			free(p) /* free memory allocated by malloc */
196			char *p;
197			{
198			register M_HEAD *mp;
199			register int bucket;
200
201	greg	1.2	if (p == NULL)
202			return;
203	greg	1.1	mp = (M_HEAD *)p - 1;
204			bucket = mp->bucket;
205			mp->next = free_list[bucket];
206			free_list[bucket] = mp;
207			}
208
209
210			#ifndef NOVMEM
211			#ifndef BSD
212			#include <sys/var.h>
213			int
214			getpagesize() /* use SYSV var structure to get page size */
215			{
216			static int pagesz = 0;
217			struct var v;
218
219			if (pagesz == 0) {
220			uvar(&v);
221			pagesz = 1 << v.v_pageshift;
222			}
223			return(pagesz);
224			}
225			#endif
226			#endif