--- ray/src/common/malloc.c 1992/06/29 22:39:51 2.5
+++ ray/src/common/malloc.c 2003/02/22 02:07:22 2.12
@@ -1,9 +1,6 @@
-/* Copyright (c) 1992 Regents of the University of California */
-
#ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char RCSid[] = "$Id: malloc.c,v 2.12 2003/02/22 02:07:22 greg Exp $";
#endif
-
/*
* Fast malloc for memory hogs and VM environments.
* Performs a minimum of searching through free lists.
@@ -22,11 +19,73 @@ static char SCCSid[] = "$SunId$ LBL";
* Greg Ward Lawrence Berkeley Laboratory
*/
+/* ====================================================================
+ * The Radiance Software License, Version 1.0
+ *
+ * Copyright (c) 1990 - 2002 The Regents of the University of California,
+ * through Lawrence Berkeley National Laboratory. All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ *
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in
+ * the documentation and/or other materials provided with the
+ * distribution.
+ *
+ * 3. The end-user documentation included with the redistribution,
+ * if any, must include the following acknowledgment:
+ * "This product includes Radiance software
+ * (http://radsite.lbl.gov/)
+ * developed by the Lawrence Berkeley National Laboratory
+ * (http://www.lbl.gov/)."
+ * Alternately, this acknowledgment may appear in the software itself,
+ * if and wherever such third-party acknowledgments normally appear.
+ *
+ * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
+ * and "The Regents of the University of California" must
+ * not be used to endorse or promote products derived from this
+ * software without prior written permission. For written
+ * permission, please contact radiance@radsite.lbl.gov.
+ *
+ * 5. Products derived from this software may not be called "Radiance",
+ * nor may "Radiance" appear in their name, without prior written
+ * permission of Lawrence Berkeley National Laboratory.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
+ * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
+ * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+ * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+ * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
+ * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+ * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
+ * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ * ====================================================================
+ *
+ * This software consists of voluntary contributions made by many
+ * individuals on behalf of Lawrence Berkeley National Laboratory. For more
+ * information on Lawrence Berkeley National Laboratory, please see
+ * .
+ */
+
#include
+#ifndef BSD
+#define bcopy(s,d,n) (void)memcpy(d,s,n)
+#define bzero(d,n) (void)memset(d,0,n)
+#endif
+
#ifdef MSTATS
#include
-static unsigned b_nsbrked = 0;
+static unsigned b_nsbrked = 0;
static unsigned b_nalloced = 0;
static unsigned b_nfreed = 0;
static unsigned b_nscrounged = 0;
@@ -38,10 +97,10 @@ static unsigned m_nwasted = 0;
#define NULL 0
#endif
-#ifndef ALIGN
-#define ALIGN int /* align type */
+#ifndef ALIGNT
+#define ALIGNT int /* align type */
#endif
-#define BYTES_WORD sizeof(ALIGN)
+#define BYTES_WORD sizeof(ALIGNT)
#ifndef MAXINCR
#define MAXINCR (1<<16) /* largest sbrk(2) increment */
@@ -53,7 +112,7 @@ typedef union m_head {
short magic;
short bucket;
} a;
- ALIGN dummy;
+ ALIGNT dummy;
} M_HEAD;
#define MAGIC 0x1a2 /* magic number for allocated memory */
@@ -63,10 +122,14 @@ typedef union m_head {
static M_HEAD *free_list[NBUCKETS];
-static ALIGN dummy_mem;
+static ALIGNT dummy_mem;
+static char *memlim[2];
+
#define DUMMYLOC ((char *)&dummy_mem)
+#define BADPTR(p) ((p) < memlim[0] | (p) >= memlim[1])
+
#ifdef MCOMP /* memory compaction routines */
static char seedtab[1024]; /* seed for compaction table */
@@ -150,7 +213,8 @@ unsigned *np;
for ( ; ; ) {
/* compact free lists */
- compactfree();
+ while (compactfree())
+ ;
/* find largest block */
tab = mtab(&cptab); tablen = mtablen(&cptab);
big = tab;
@@ -163,7 +227,7 @@ unsigned *np;
big->siz = 0; /* remove from table */
return(big->ptr); /* return it */
}
- if (mtablen(big) < tablen+1) {
+ if (mtablen(big) <= tablen) {
*np = 0; /* cannot grow table */
return(NULL); /* report failure */
}
@@ -173,17 +237,10 @@ unsigned *np;
cptab.ptr = big->ptr;
cptab.siz = big->siz;
big->siz = 0; /* clear and copy */
-#ifdef BSD
bcopy((char *)tab, (char *)(mtab(&cptab)+1),
tablen*sizeof(struct mblk));
bzero((char *)(mtab(&cptab)+tablen+1),
(mtablen(&cptab)-tablen-1)*sizeof(struct mblk));
-#else
- (void)memcpy((char *)(mtab(&cptab)+1), (char *)tab,
- tablen*sizeof(struct mblk));
- memset((char *)(mtab(&cptab)+tablen+1), 0,
- (mtablen(&cptab)-tablen-1)*sizeof(struct mblk));
-#endif
} /* next round */
}
#endif /* MCOMP */
@@ -241,11 +298,14 @@ register unsigned n;
#endif
bpos += nrem & (BYTES_WORD-1); /* align pointer */
nrem &= ~(BYTES_WORD-1);
+ memlim[0] = bpos;
+ memlim[1] = bpos + nrem;
}
n = (n+(BYTES_WORD-1))&~(BYTES_WORD-1); /* word align rqst. */
if (n > nrem) { /* need more core */
+ tryagain:
if (n > amnt) { /* big chunk */
thisamnt = (n+(pagesz-1))&~(pagesz-1);
if (thisamnt <= MAXINCR) /* increase amnt */
@@ -254,10 +314,17 @@ register unsigned n;
thisamnt = amnt;
p = sbrk(thisamnt);
if ((int)p == -1) { /* uh-oh, ENOMEM */
- thisamnt = n; /* search free lists */
- p = mscrounge(&thisamnt);
- if (p == NULL) /* we're really out */
+ errno = 0; /* call cavalry */
+ if (thisamnt >= n+pagesz) {
+ amnt = pagesz; /* minimize request */
+ goto tryagain;
+ }
+ thisamnt = n;
+ p = mscrounge(&thisamnt); /* search free lists */
+ if (p == NULL) { /* we're really out */
+ errno = ENOMEM;
return(NULL);
+ }
}
#ifdef MSTATS
else b_nsbrked += thisamnt;
@@ -268,6 +335,10 @@ register unsigned n;
nrem = thisamnt;
} else /* otherwise tack on */
nrem += thisamnt;
+ if (bpos < memlim[0])
+ memlim[0] = bpos;
+ if (bpos + nrem > memlim[1])
+ memlim[1] = bpos + nrem;
}
p = bpos;
bpos += n; /* advance */
@@ -286,7 +357,7 @@ register unsigned n;
register int bucket;
register unsigned bsiz;
- if (n < 1< memlim[1])
+ memlim[1] = p + n;
/* fill big buckets first */
for (bucket = NBUCKETS-1, bsiz = 1<<(NBUCKETS-1);
bucket >= FIRSTBUCKET; bucket--, bsiz >>= 1)
@@ -313,7 +388,6 @@ char *
malloc(n) /* allocate n bytes of memory */
unsigned n;
{
- extern int errno;
register M_HEAD *mp;
register int bucket;
register unsigned bsiz;
@@ -355,7 +429,8 @@ unsigned n;
char *p;
register unsigned on;
/* get old size */
- if (op != NULL && op != DUMMYLOC && ((M_HEAD *)op-1)->a.magic == MAGIC)
+ if (op != DUMMYLOC && !BADPTR(op) &&
+ ((M_HEAD *)op-1)->a.magic == MAGIC)
on = 1 << ((M_HEAD *)op-1)->a.bucket;
else
on = 0;
@@ -364,11 +439,7 @@ unsigned n;
if ((p = malloc(n)) == NULL)
return(n<=on ? op : NULL);
if (on) {
-#ifdef BSD
bcopy(op, p, n>on ? on : n);
-#else
- (void)memcpy(p, op, n>on ? on : n);
-#endif
free(op);
}
return(p);
@@ -381,20 +452,25 @@ char *p;
register M_HEAD *mp;
register int bucket;
- if (p == NULL | p == DUMMYLOC)
+ if (p == DUMMYLOC)
return(1);
+ if (BADPTR(p))
+ goto invalid;
mp = (M_HEAD *)p - 1;
if (mp->a.magic != MAGIC) /* sanity check */
- return(0);
+ goto invalid;
bucket = mp->a.bucket;
if (bucket < FIRSTBUCKET | bucket >= NBUCKETS)
- return(0);
+ goto invalid;
mp->next = free_list[bucket];
free_list[bucket] = mp;
#ifdef MSTATS
m_nfreed += (1 << bucket) + sizeof(M_HEAD);
#endif
return(1);
+invalid:
+ errno = EINVAL;
+ return(0);
}