uclibc-ng/libc/stdlib/malloc/realloc.c

/*
 * libc/stdlib/malloc/realloc.c -- realloc function
 *
 *  Copyright (C) 2002  NEC Corporation
 *  Copyright (C) 2002  Miles Bader <miles@gnu.org>
 *
 * This file is subject to the terms and conditions of the GNU Lesser
 * General Public License.  See the file COPYING.LIB in the main
 * directory of this archive for more details.
 * 
 * Written by Miles Bader <miles@gnu.org>
 */

#include <stdlib.h>
#include <string.h>

#include "malloc.h"
#include "heap.h"


void *
realloc (void *mem, size_t new_size)
{
  if (! mem)
    return malloc (new_size);
  else
    {
      char *base_mem = MALLOC_BASE (mem);
      size_t size = MALLOC_SIZE (mem);

      /* Make sure that we're dealing in a multiple of the heap allocation
	 unit (SIZE is already guaranteed to be so).  */
      // new_size = HEAP_ADJUST_SIZE (new_size);

      MALLOC_DEBUG ("realloc: 0x%lx, %d (base = 0x%lx, total_size = %d)\n",
		    (long)mem, new_size, (long)base_mem, size);

      if (new_size > size)
	/* Grow the block.  */
	{
	  void *new_mem = 0;
	  size_t ext_size = new_size - size;
	  void *ext_addr = base_mem + size;

	  __malloc_lock ();
	  ext_size = __heap_alloc_at (&__malloc_heap, ext_addr, ext_size);
	  __malloc_unlock ();

	  if (! ext_size)
	    /* Our attempts to extend MEM in place failed, just
	       allocate-and-copy.  */
	    {
	      new_mem = malloc (new_size);
	      if (new_mem)
		{
		  memcpy (new_mem, mem, size);
		  free (mem);
		}
	    }

	  if (new_mem)
	    MALLOC_DEBUG ("  realloc: returning 0x%lx"
			  " (base:0x%lx, total_size:%d)\n",
			  (long)new_mem, (long)new_mem - sizeof(size_t), size);

	  return new_mem;
	}
      else if (new_size + HEAP_MIN_FREE_AREA_SIZE <= size)
	/* Shrink the block.  */
	{
	  __malloc_lock ();
	  __heap_free (&__malloc_heap, base_mem + new_size, new_size - size);
	  __malloc_unlock ();
	}
      else
	/* Do nothing.  */
	return mem;
    }
}