workbench/libs/icon/freefreelist.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "icon_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <proto/icon.h>
  14
  15         AROS_LH1(void, FreeFreeList,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct FreeList *, freelist, A0),
  19
  20 /*  LOCATION */
  21         struct Library *, IconBase, 9, Icon)
  22
  23 /*  FUNCTION
  24         Frees all memory chunks in the freelist (previously inserted into
  25         it via AddFreeList()).
  26
  27     INPUTS
  28         freelist  - pointer to FreeList struct. It is save to use NULL.
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39         AddFreeList()
  40
  41     INTERNALS
  42
  43     HISTORY
  44         2006-04-10 Test for NULL pointer added
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     if ( ! freelist) return;
  51
  52     struct MemList * node,
  53                    * nextnode;
  54
  55     node = (struct MemList*)freelist->fl_MemList.lh_Head;
  56
  57     while ( (nextnode = (struct MemList*)node->ml_Node.ln_Succ) )
  58     {
  59         FreeEntry (node);
  60
  61         node = nextnode;
  62     }
  63
  64     FreeMem (freelist, sizeof(struct FreeList));
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* FreeFreeList */