workbench/libs/icon/addfreelist.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_LH3(BOOL, AddFreeList,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct FreeList *, freelist, A0),
  19         AROS_LHA(APTR             , mem, A1),
  20         AROS_LHA(unsigned long    , size, A2),
  21
  22 /*  LOCATION */
  23         struct Library *, IconBase, 12, Icon)
  24
  25 /*  FUNCTION
  26         Adds supplied memory chunk to the supplied freelist.
  27         All memory added in to the freelist can later be deallocated through
  28         one single FreeFreeList() call.
  29
  30     INPUTS
  31         freelist - pointer to freelist struct previously allocated by
  32                 the programmer.
  33         mem - memory to add to the freelist.
  34         size - size of memory chunk to add to the frelist.
  35
  36     RESULT
  37         FALSE on failure, else TRUE.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         FreeFreeList()
  47
  48     INTERNALS
  49
  50     HISTORY
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct MemList  *memlist;
  57     struct MemEntry *mementry;
  58
  59     /* We get hold of the last memlist node inside the list */
  60     memlist = (struct MemList*)freelist->fl_MemList.lh_TailPred;
  61
  62     /* Is this memlist full ? */
  63     if (memlist->ml_NumEntries == FREELIST_MEMLISTENTRIES
  64         || freelist->fl_NumFree == 0
  65     )
  66     {
  67         /* No more room, we must allocate a new entry */
  68         if (!(memlist = AllocMem (sizeof(struct IconInternalMemList),
  69                     MEMF_ANY)
  70         ) )
  71             return FALSE;
  72
  73         memlist->ml_NumEntries = 0;
  74
  75         AddTail ((struct List*)&freelist->fl_MemList, (struct Node*)memlist);
  76     }
  77
  78     /* Insert the the supplied parameters */
  79     mementry = &memlist->ml_ME[ memlist->ml_NumEntries ];
  80
  81     mementry->me_Un.meu_Addr = mem;
  82     mementry->me_Length      = size;
  83
  84     memlist->ml_NumEntries ++;
  85
  86     freelist->fl_NumFree ++;
  87
  88     return TRUE;
  89     AROS_LIBFUNC_EXIT
  90 } /* AddFreeList */