compiler/alib/libcreatepool.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     Original version from libnix
   4     $Id$
   5 */
   6
   7 #include "pool.h"
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/alib.h>
  13
  14         APTR LibCreatePool (
  15
  16 /*  SYNOPSIS */
  17         ULONG requirements,
  18         ULONG puddleSize,
  19         ULONG threshSize)
  20
  21 /*  FUNCTION
  22
  23     INPUTS
  24
  25     RESULT
  26
  27     NOTES
  28
  29     EXAMPLE
  30
  31     BUGS
  32
  33     SEE ALSO
  34
  35     INTERNALS
  36
  37     HISTORY
  38         06.12.96 digulla Created after original from libnix
  39
  40 ******************************************************************************/
  41 {
  42     AROS_GET_SYSBASE_OK
  43     if (SysBase->LibNode.lib_Version >= 39)
  44         return (CreatePool (requirements, puddleSize, threshSize));
  45
  46     {
  47         POOL * pool = NULL;
  48
  49         if (threshSize <= puddleSize)
  50         {
  51             if ((pool = (POOL *)AllocMem (sizeof (POOL), MEMF_ANY)) != NULL)
  52             {
  53                 NEWLIST (&pool->PuddleList);
  54
  55                 puddleSize = ((puddleSize + 7) & ~7);
  56
  57                 pool->MemoryFlags = requirements;
  58                 pool->PuddleSize  = puddleSize;
  59                 pool->ThreshSize  = threshSize;
  60             }
  61         }
  62
  63         return (APTR)pool;
  64     }
  65 } /* LibCreatePool */
  66