workbench/libs/icon/freediskobject.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/arossupport.h>
   9 #include "icon_intern.h"
  10 #include <stddef.h>
  11
  12 extern const IPTR IconDesc[];
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <clib/icon_protos.h>
  18
  19         AROS_LH1(void, FreeDiskObject,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct DiskObject *, diskobj, A0),
  23
  24 /*  LOCATION */
  25         struct Library *, IconBase, 15, Icon)
  26
  27 /*  FUNCTION
  28         Frees all memory for a DiskObject structure.
  29
  30     INPUTS
  31         diskobj --  a pointer to a DiskObject structure. A NULL pointer will be
  32                     ignored.
  33
  34     RESULT
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         GetDiskObject()
  44
  45     INTERNALS
  46
  47     HISTORY
  48         2006-04-09 Test for NULL pointer added
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     if ( ! diskobj) return;
  55
  56     struct NativeIcon *nativeicon;
  57
  58     nativeicon = NATIVEICON(diskobj);
  59
  60     RemoveIconFromList(nativeicon, LB(IconBase));
  61
  62     /* It's enough to free our pool */
  63     DeletePool(nativeicon->pool);
  64
  65     AROS_LIBFUNC_EXIT
  66
  67 } /* FreeDiskObject */