rom/exec/deallocate.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Free memory allocated by Allocate().
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/execbase.h>
  11 #include <exec/alerts.h>
  12 #include <aros/libcall.h>
  13 #include <exec/memory.h>
  14 #include <exec/memheaderext.h>
  15 #include <proto/exec.h>
  16
  17 #include "exec_util.h"
  18 #include "memory.h"
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23
  24         AROS_LH3(void, Deallocate,
  25
  26 /*  SYNOPSIS */
  27         AROS_LHA(struct MemHeader *, freeList,    A0),
  28         AROS_LHA(APTR,               memoryBlock, A1),
  29         AROS_LHA(IPTR,               byteSize,    D0),
  30
  31 /*  LOCATION */
  32         struct ExecBase *, SysBase, 32, Exec)
  33
  34 /*  FUNCTION
  35         Free block of memory associated with a given MemHandler structure.
  36
  37     INPUTS
  38         freeList    - Pointer to the MemHeader structure
  39         memoryBlock - Pointer to the memory to be freed
  40         byteSize    - Size of the block
  41
  42     RESULT
  43
  44     NOTES
  45         The start and end borders of the block are aligned to
  46         a multiple of sizeof(struct MemChunk) and to include the block.
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53         Allocate()
  54
  55     INTERNALS
  56
  57 ******************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     if ((freeList->mh_Node.ln_Type == NT_MEMORY) && IsManagedMem(freeList))
  62     {
  63         struct MemHeaderExt *mhe = (struct MemHeaderExt *)freeList;
  64
  65         if (mhe->mhe_Free)
  66             mhe->mhe_Free(mhe, memoryBlock, byteSize);
  67     }
  68     else
  69     {
  70         struct TraceLocation tp = CURRENT_LOCATION("Deallocate");
  71
  72         /* If there is no memory free nothing */
  73         if(!byteSize || !memoryBlock)
  74             return;
  75
  76 #if !defined(NO_CONSISTENCY_CHECKS)
  77         /* Test if our block really fits into this MemHeader. */
  78         if ((memoryBlock < freeList->mh_Lower) || (memoryBlock + byteSize > freeList->mh_Upper + 1))
  79         {
  80             /* Something is completely wrong. */
  81             bug("[MM] Memory allocator error\n");
  82             bug("[MM] Attempt to free %u bytes at 0x%p from MemHeader 0x%p\n", byteSize, memoryBlock, freeList);
  83             bug("[MM] Block does not fit into MemHeader (0x%p - 0x%p)\n", freeList->mh_Lower, freeList->mh_Upper);
  84
  85             Alert(AN_BadFreeAddr);
  86             return;
  87         }
  88 #endif
  89
  90         stdDealloc(freeList, NULL /* by design */, memoryBlock, byteSize, &tp, SysBase);
  91
  92     }
  93
  94     AROS_LIBFUNC_EXIT
  95 } /* Deallocate */