src/xbt/mmalloc/mmemalign.c

   1 /* Copyright (C) 1991, 1992 Free Software Foundation, Inc.
   2    This file was then part of the GNU C Library. */
   3
   4 /* Copyright (c) 2010. The SimGrid Team.
   5  * All rights reserved.                                                     */
   6
   7 /* This program is free software; you can redistribute it and/or modify it
   8  * under the terms of the license (GNU LGPL) which comes with this package. */
   9
  10 #include "mmprivate.h"
  11
  12 void *
  13 mmemalign (void *md, size_t alignment, size_t size)
  14 {
  15   void* result;
  16   unsigned long int adj;
  17   struct alignlist *l;
  18   struct mdesc *mdp;
  19
  20   if ((result = mmalloc (md, size + alignment - 1)) != NULL)
  21   {
  22     adj = RESIDUAL (result, alignment);
  23     if (adj != 0)
  24     {
  25       mdp = MD_TO_MDP (md);
  26       for (l = mdp -> aligned_blocks; l != NULL; l = l -> next)
  27       {
  28         if (l -> aligned == NULL)
  29         {
  30           /* This slot is free.  Use it.  */
  31           break;
  32         }
  33       }
  34       if (l == NULL)
  35       {
  36         l = (struct alignlist *) mmalloc (md, sizeof (struct alignlist));
  37         if (l == NULL)
  38         {
  39           mfree (md, result);
  40           return (NULL);
  41         }
  42         l -> next = mdp -> aligned_blocks;
  43         mdp -> aligned_blocks = l;
  44       }
  45       l -> exact = result;
  46       result = l -> aligned = (char*) result + alignment - adj;
  47     }
  48   }
  49   return (result);
  50 }