rom/intuition/freeintuimessage.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/utility.h>
   8 #include "intuition_intern.h"
   9
  10 /*****i***********************************************************************
  11
  12     NAME */
  13 #include <proto/intuition.h>
  14
  15     AROS_LH1(void, FreeIntuiMessage,
  16
  17 /*  SYNOPSIS */
  18          AROS_LHA(struct IntuiMessage *, imsg, A0),
  19
  20 /*  LOCATION */
  21          struct IntuitionBase *, IntuitionBase, 149, Intuition)
  22
  23 /*  FUNCTION
  24     Private to AROS: free an IntuiMessage previously allocated
  25     with AllocIntuiMessage.
  26
  27     INPUTS
  28     imsg - The IntuiMessage. May be NULL.
  29
  30     RESULT
  31     none
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     DEBUG_FREEINTUIMESSAGE(dprintf("FreeIntuiMessage: Msg 0x%lx\n", imsg));
  50
  51     ASSERT_VALID_PTR_OR_NULL(imsg);
  52
  53 #define EIM(x) ((struct ExtIntuiMessage *)(x))
  54
  55     if (imsg)
  56     {
  57         if ((imsg->Class == IDCMP_IDCMPUPDATE) && (imsg->IAddress))
  58         {
  59             FreeTagItems((struct TagItem *)imsg->IAddress);
  60         }
  61
  62         if (EIM(imsg)->eim_TabletData)
  63         {
  64             if (EIM(imsg)->eim_TabletData->td_TagList) FreeTagItems(EIM(imsg)->eim_TabletData->td_TagList);
  65             FreePooled(GetPrivIBase(IntuitionBase)->IDCMPPool,EIM(imsg)->eim_TabletData,sizeof (struct TabletData));
  66         }
  67         FreePooled(GetPrivIBase(IntuitionBase)->IDCMPPool,imsg, sizeof(struct IntIntuiMessage));
  68     }
  69
  70     DEBUG_FREEINTUIMESSAGE(dprintf("FreeIntuiMessage: done\n"));
  71     AROS_LIBFUNC_EXIT
  72 }
  73