git.gag.com Git - debian/cc1111/blob - device/lib/pic16/libc/stdlib/realloc.c

   1 /*
   2  * realloc.c - dynamic memory allocation
   3  *
   4  * written by Vangelis Rokas, 2004 (vrokas@otenet.gr)
   5  *
   6  * This program is free software; you can redistribute it and/or modify it
   7  * under the terms of the GNU General Public License as published by the
   8  * Free Software Foundation; either version 2, or (at your option) any
   9  * later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU General Public License
  17  * along with this program; if not, write to the Free Software
  18  * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  19  *
  20  * In other words, you are welcome to use, share and improve this program.
  21  * You are forbidden to forbid anyone else to use, share and improve
  22  * what you give them.   Help stamp out software-hoarding!
  23  *
  24  * $Id: realloc.c 3835 2005-08-07 20:09:11Z tecodev $
  25  */
  26
  27 #include <malloc.h>
  28
  29 extern unsigned char _MALLOC_SPEC *heap;
  30
  31 unsigned char _MALLOC_SPEC *realloc(unsigned char _MALLOC_SPEC *mblock, unsigned char len)
  32 {
  33   _malloc_rec _MALLOC_SPEC *pHeap;                      /* pointer to block header */
  34   _malloc_rec _MALLOC_SPEC *temp;
  35   unsigned char bLen;                   /* size of block  */
  36
  37   if(len >= MAX_BLOCK_SIZE)
  38     return ((unsigned char _MALLOC_SPEC *)0);
  39
  40   /* if mblock is NULL, then same as malloc */
  41   if(!mblock)
  42     return (malloc(len));
  43
  44   /* if len is 0 */
  45   if(len == 0) {
  46     free(mblock);
  47     return ((unsigned char _MALLOC_SPEC *)0);
  48   }
  49
  50   pHeap = (_malloc_rec _MALLOC_SPEC *)((unsigned int)mblock - 1);
  51   bLen = pHeap->bits.count;
  52
  53   /* block too small for len bytes + 1 byte header <===> bLen < len + 1 <===> blen <= len */
  54   if (bLen <= len) {
  55     /* so, new segment has size bigger than the old one, we can return a
  56      * valid pointer only when after the block there is an empty block that
  57      * can be merged to produce a new block of the requested size, otherwise
  58      * we return NULL */
  59     temp = _mergeHeapBlock(pHeap, len);
  60
  61     if(!temp) {
  62       /* no could not find a valid block, return NULL */
  63       return ((unsigned char _MALLOC_SPEC *)0);
  64     }
  65
  66     //pHeap = temp; /* temp == pHeap */
  67     bLen = pHeap->bits.count;
  68   }
  69
  70   len++; /* increase to also count the header */
  71
  72   if(bLen > len) {
  73     /* new segment is smaller than the old one (or the merged one), that's easy! */
  74     pHeap->bits.count = len;
  75     temp = (_malloc_rec _MALLOC_SPEC *)((unsigned int)pHeap + len);
  76     temp->bits.alloc = 0;
  77     temp->bits.count = bLen - len;
  78   }
  79
  80   return (mblock);
  81 }