rom/intuition/freeicdata.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5
   6     Support function for icclass and gadgetclass.
   7 */
   8
   9 #include <exec/types.h>
  10 #include <proto/exec.h>
  11 #include <proto/utility.h>
  12
  13 #include "intuition_intern.h"
  14
  15 /*****i***********************************************************************
  16
  17     NAME */
  18         AROS_LH1(void, FreeICData,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct ICData *, icdata, A0),
  22
  23 /*  LOCATION */
  24         struct IntuitionBase *, IntuitionBase, 146, Intuition)
  25
  26 /*  FUNCTION
  27         This private function will free the data that belongs to an object
  28         of the type ICCLASS. It is primarily in as a private function for
  29         the benefit of intuition.library's gadgetclass implementation,
  30         which includes an icclass of its own.
  31
  32     INPUTS
  33         icdata - The address of a struct ICData
  34
  35     RESULT
  36         The data associated will have been freed (including the TagList).
  37
  38     NOTES
  39         This function is also present in MorphOS v50, however
  40         considered private.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50 ******************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  55     DEBUG_FREEICDATA(dprintf("FreeICData(icdata 0x%lx)\n",icdata));
  56
  57     SANITY_CHECK(icdata)
  58
  59     icdata->ic_LoopCounter = 0UL;
  60
  61     if(icdata->ic_CloneTags)
  62     {
  63         FreeTagItems(icdata->ic_CloneTags);
  64         icdata->ic_CloneTags = NULL;
  65     }
  66
  67     AROS_LIBFUNC_EXIT
  68
  69 } /* FreeICData() */