rom/intuition/freeintuimessage.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
   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         This private function is also present in MorphOS v50.
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     struct Library *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
  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