/* -*-c-*-
*
- * $Id: alloc.c,v 1.4 2000/06/17 10:35:51 mdw Exp $
+ * $Id: alloc.c,v 1.5 2000/07/16 12:29:16 mdw Exp $
*
* Memory allocation functions
*
/*----- Revision history --------------------------------------------------*
*
* $Log: alloc.c,v $
+ * Revision 1.5 2000/07/16 12:29:16 mdw
+ * Change to arena `realloc' interface, to fix a design bug.
+ *
* Revision 1.4 2000/06/17 10:35:51 mdw
* Major overhaul for arena support.
*
* Arguments: @arena *a@ = pointer to underlying arena
* @void *p@ = pointer to a block of memory
* @size_t sz@ = new size desired for the block
+ * @size_t osz@ = size of the old block
*
* Returns: Pointer to the resized memory block (which is almost
* certainly not in the same place any more).
* exception @EXC_NOMEM@ is thrown.
*/
-void *x_realloc(arena *a, void *p, size_t sz)
+void *x_realloc(arena *a, void *p, size_t sz, size_t osz)
{
- p = A_REALLOC(a, p, sz);
+ p = A_REALLOC(a, p, sz, osz);
if (!p)
THROW(EXC_NOMEM);
return (p);
*
* Arguments: @void *p@ = pointer to a block of memory
* @size_t sz@ = new size desired for the block
+ * @size_t osz@ = size of the old block
*
* Returns: Pointer to the resized memory block (which is almost
* certainly not in the same place any more).
* exception @EXC_NOMEM@ is thrown.
*/
-void *(xrealloc)(void *p, size_t sz) { return xrealloc(p, sz); }
+void *(xrealloc)(void *p, size_t sz, size_t osz)
+{ return xrealloc(p, sz, osz); }
/* --- @xfree@ --- *
*