freebsd-skq/gnu/usr.bin/gdb/mmalloc/mmemalign.c
paul 38cc378c61 GDB-4.12 from ports with support for shlibs but not the kernel.
This is a greatly pared down version of the full gdb-4.12, all the
config stuff has been removed and the supporting libraries have
been stripped to a minimum. This is a 1.1.5 only port, I'll do a
more complete port for 2.0 which will have all the config stuff
and will install the gnu support libraries as system libraries like
we do for readline.

There wasn't much point for 1.1.5 since only gdb would use them so I
went for saving space instead. For 2.0 I'll config all the
other gnu tools to use them as well.
1994-06-10 13:42:18 +00:00

65 lines
1.7 KiB
C

/* Copyright (C) 1991, 1992 Free Software Foundation, Inc.
This file is part of the GNU C Library.
The GNU C Library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
The GNU C Library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include "mmalloc.h"
PTR
mmemalign (md, alignment, size)
PTR md;
size_t alignment;
size_t size;
{
PTR result;
unsigned long int adj;
struct alignlist *l;
struct mdesc *mdp;
size = ((size + alignment - 1) / alignment) * alignment;
if ((result = mmalloc (md, size)) != NULL)
{
adj = RESIDUAL (result, alignment);
if (adj != 0)
{
mdp = MD_TO_MDP (md);
for (l = mdp -> aligned_blocks; l != NULL; l = l -> next)
{
if (l -> aligned == NULL)
{
/* This slot is free. Use it. */
break;
}
}
if (l == NULL)
{
l = (struct alignlist *) mmalloc (md, sizeof (struct alignlist));
if (l == NULL)
{
mfree (md, result);
return (NULL);
}
}
l -> exact = result;
result = l -> aligned = (char *) result + alignment - adj;
l -> next = mdp -> aligned_blocks;
mdp -> aligned_blocks = l;
}
}
return (result);
}