/* -*-c-*-
*
- * $Id: sub.c,v 1.3 1999/05/06 19:51:35 mdw Exp $
+ * $Id: sub.c,v 1.5 1999/05/19 20:27:11 mdw Exp $
*
* Allocation of known-size blocks
*
/*----- Revision history --------------------------------------------------*
*
* $Log: sub.c,v $
+ * Revision 1.5 1999/05/19 20:27:11 mdw
+ * Change naming to match newer mLib conventions.
+ *
+ * Revision 1.4 1999/05/13 22:48:55 mdw
+ * Change `-ise' to `-ize' throughout.
+ *
* Revision 1.3 1999/05/06 19:51:35 mdw
* Reformatted the LGPL notice a little bit.
*
/*----- The big idea ------------------------------------------------------*
*
* This file provides an extra layer over @malloc@. It provides fast
- * turnover for small blocks, and tries to minimise the per-block overhead.
+ * turnover for small blocks, and tries to minimize the per-block overhead.
*
* To do its job, @alloc@ must place an extra restriction on you: you must
* know the size of a block when you free it. Usually you'll have this
/*----- Static variables --------------------------------------------------*/
-static void *sub__bins[SUB_BINS];
-static size_t sub__sizes[SUB_BINS];
+static void *bins[SUB_BINS];
+static size_t sizes[SUB_BINS];
/*----- Main code ---------------------------------------------------------*/
/* --- If the bin is empty, find some memory --- */
- if (!sub__bins[bin]) {
+ if (!bins[bin]) {
char *p, *q;
- p = xmalloc(sub__sizes[bin]);
- q = p + sub__sizes[bin];
+ p = xmalloc(sizes[bin]);
+ q = p + sizes[bin];
s = SUB_BINSZ(bin);
*(void **)q = q + s;
}
- sub__bins[bin] = p;
+ bins[bin] = p;
}
/* --- Extract the first block in the list --- */
- p = sub__bins[bin];
- sub__bins[bin] = *(void **)p;
+ p = bins[bin];
+ bins[bin] = *(void **)p;
return (p);
}
if (bin >= SUB_BINS)
free(p);
else {
- *(void **)p = sub__bins[bin];
- sub__bins[bin] = p;
+ *(void **)p = bins[bin];
+ bins[bin] = p;
}
}
*
* Returns: ---
*
- * Use: Initialises the magic allocator.
+ * Use: Initializes the magic allocator.
*/
void sub_init(void)
{
int i;
- /* --- Initialise the sizes bins --- */
+ /* --- Initialize the sizes bins --- */
for (i = 1; i < SUB_BINS; i++) {
- sub__sizes[i] = ((SUB_CHUNK + SUB_BINSZ(i) - 1) /
+ sizes[i] = ((SUB_CHUNK + SUB_BINSZ(i) - 1) /
SUB_BINSZ(i) * SUB_BINSZ(i));
}
}