rom/intuition/freeicdata.c

   1 /*
   2     Copyright © 1995-2011, 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
  19     AROS_LH1(void, FreeICData,
  20
  21 /*  SYNOPSIS */
  22          AROS_LHA(struct ICData *, icdata, A0),
  23
  24 /*  LOCATION */
  25          struct IntuitionBase *, IntuitionBase, 146, Intuition)
  26
  27 /*  FUNCTION
  28     This private function will free the data that belongs to an object
  29     of the type ICCLASS. It is primarily in as a private function for
  30     the benefit of intuition.library's gadgetclass implementation,
  31     which includes an icclass of its own.
  32
  33     INPUTS
  34         icdata  -   The address of a struct ICData
  35
  36     RESULT
  37         The data associated will have been freed (including the TagList).
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 ******************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  54     DEBUG_FREEICDATA(dprintf("FreeICData(icdata 0x%lx)\n",icdata));
  55
  56     SANITY_CHECK(icdata)
  57
  58     icdata->ic_LoopCounter = 0UL;
  59
  60     if(icdata->ic_CloneTags)
  61     {
  62         FreeTagItems(icdata->ic_CloneTags);
  63         icdata->ic_CloneTags = NULL;
  64     }
  65
  66     AROS_LIBFUNC_EXIT
  67
  68 } /* FreeICData() */