rom/intuition/allocremember.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <intuition/intuition.h>
  15 #include <proto/intuition.h>
  16
  17 AROS_LH3(APTR, AllocRemember,
  18
  19          /*  SYNOPSIS */
  20          AROS_LHA(struct Remember **, rememberKey, A0),
  21          AROS_LHA(ULONG             , size, D0),
  22          AROS_LHA(ULONG             , flags, D1),
  23
  24          /*  LOCATION */
  25          struct IntuitionBase *, IntuitionBase, 66, Intuition)
  26
  27 /*  FUNCTION
  28     Allocate some memory and remeber it in the Remember-List.
  29
  30     INPUTS
  31     rememberKey - Store information in this list
  32     size - How many bytes to allocate
  33     flags - Attributes (see AllocMem())
  34
  35     RESULT
  36     Pointer to the allocated memory or NULL.
  37
  38     NOTES
  39
  40     EXAMPLE
  41
  42     BUGS
  43
  44     SEE ALSO
  45
  46     INTERNALS
  47
  48     HISTORY
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  54
  55     struct Remember *newKey;
  56     APTR             ptr = NULL;
  57
  58     DEBUG_REMEMBER(dprintf("AllocRemember: Key 0x%lx Size 0x%lx Flags 0x%08lx\n",
  59                            rememberKey, size, flags));
  60
  61     newKey = AllocMem (sizeof (struct Remember), MEMF_ANY);
  62
  63     if (newKey)
  64     {
  65         ptr = AllocMem (size, flags);
  66
  67         if (ptr)
  68         {
  69             newKey->NextRemember = *rememberKey;
  70             newKey->Memory       = ptr;
  71             newKey->RememberSize = size;
  72
  73             *rememberKey = newKey;
  74         }
  75         else
  76         {
  77             FreeMem (newKey, sizeof (struct Remember));
  78         }
  79     }
  80
  81     DEBUG_REMEMBER(dprintf("AllocRemember: Ptr 0x%lx\n", ptr));
  82
  83     return ptr;
  84
  85     AROS_LIBFUNC_EXIT
  86 } /* AllocRemember */