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 "exec_intern.h"
   9 #include <aros/libcall.h>
  10 #include <exec/memory.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, FreeEntry,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct MemList *, entry,A0),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 38, Exec)
  24
  25
  26 /*  FUNCTION
  27         Free some memory allocated with AllocEntry().
  28
  29     INPUTS
  30         entry - The MemList you got from AllocEntry().
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41         AllocEntry()
  42
  43     INTERNALS
  44
  45 ******************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48     ULONG i;
  49
  50     /* First free all blocks in the MemList */
  51     for(i=0;i<entry->ml_NumEntries;i++)
  52         FreeMem(entry->ml_ME[i].me_Addr,entry->ml_ME[i].me_Length);
  53
  54     /* Then free the MemList itself */
  55     FreeMem(entry,sizeof(struct MemList)-sizeof(struct MemEntry)+
  56                   sizeof(struct MemEntry)*entry->ml_NumEntries);
  57     AROS_LIBFUNC_EXIT
  58 } /* FreeEntry */
  59
  60