rom/exec/freeentry.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Free memory allocated with AllocEntry().
   6     Lang: english
   7 */
   8 #include <aros/libcall.h>
   9 #include <exec/memory.h>
  10 #include <proto/exec.h>
  11
  12 #include "exec_debug.h"
  13
  14 #ifndef DEBUG_FreeEntry
  15 #   define DEBUG_FreeEntry 0
  16 #endif
  17 #undef DEBUG
  18 #if DEBUG_FreeEntry
  19 #   define DEBUG 1
  20 #endif
  21
  22 #include "exec_intern.h"
  23
  24 /*****************************************************************************
  25
  26     NAME */
  27
  28         AROS_LH1(void, FreeEntry,
  29
  30 /*  SYNOPSIS */
  31         AROS_LHA(struct MemList *, entry,A0),
  32
  33 /*  LOCATION */
  34         struct ExecBase *, SysBase, 38, Exec)
  35
  36
  37 /*  FUNCTION
  38         Free some memory allocated with AllocEntry().
  39
  40     INPUTS
  41         entry - The MemList you got from AllocEntry().
  42
  43     RESULT
  44
  45     NOTES
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52         AllocEntry()
  53
  54     INTERNALS
  55
  56 ******************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59     ULONG i;
  60
  61     /* First free all blocks in the MemList */
  62     for(i=0;i<entry->ml_NumEntries;i++)
  63     {
  64         D(bug("[FreeEntry] Freeing size %d at 0x%p\n", entry->ml_ME[i].me_Length,entry->ml_ME[i].me_Addr));
  65         FreeMem(entry->ml_ME[i].me_Addr,entry->ml_ME[i].me_Length);
  66     }
  67
  68     /* Then free the MemList itself */
  69     FreeMem(entry,sizeof(struct MemList)-sizeof(struct MemEntry)+
  70                   sizeof(struct MemEntry)*entry->ml_NumEntries);
  71     AROS_LIBFUNC_EXIT
  72 } /* FreeEntry */
  73
  74