/* obstack.c - subroutines used implicitly by object stack macros   Copyright (C) 1988-1994,96,97,98,99,2000,2001 Free Software Foundation, Inc.   This file is part of the GNU C Library.  Its master source is NOT part of   the C library, however.  The master source lives in /gd/gnu/lib.   The GNU C Library is free software; you can redistribute it and/or   modify it under the terms of the GNU Lesser General Public   License as published by the Free Software Foundation; either   version 2.1 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   Lesser General Public License for more details.   You should have received a copy of the GNU Lesser General Public   License along with the GNU C Library; if not, write to the Free   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA   02111-1307 USA.  */#ifdef HAVE_CONFIG_H# include <config.h>#endif#include "obstack.h"/* NOTE BEFORE MODIFYING THIS FILE: This version number must be   incremented whenever callers compiled using an old obstack.h can no   longer properly call the functions in this obstack.c.  */#define OBSTACK_INTERFACE_VERSION 1/* Comment out all this code if we are using the GNU C Library, and are not   actually compiling the library itself, and the installed library   supports the same library interface we do.  This code is part of the GNU   C Library, but also included in many other GNU distributions.  Compiling   and linking in this code is a waste when using the GNU C library   (especially if it is a shared library).  Rather than having every GNU   program understand `configure --with-gnu-libc' and omit the object   files, it is simpler to just do this in the source for each such file.  */#include <stdio.h>		/* Random thing to get __GNU_LIBRARY__.  */#if !defined _LIBC && defined __GNU_LIBRARY__ && __GNU_LIBRARY__ > 1# include <gnu-versions.h># if _GNU_OBSTACK_INTERFACE_VERSION == OBSTACK_INTERFACE_VERSION#  define ELIDE_CODE# endif#endif#if defined _LIBC && defined USE_IN_LIBIO# include <wchar.h>#endif#ifndef ELIDE_CODE# if defined __STDC__ && __STDC__#  define POINTER void *# else#  define POINTER char *# endif/* Determine default alignment.  */struct fooalign {char x; double d;};# define DEFAULT_ALIGNMENT  \  ((PTR_INT_TYPE) ((char *) &((struct fooalign *) 0)->d - (char *) 0))/* If malloc were really smart, it would round addresses to DEFAULT_ALIGNMENT.   But in fact it might be less smart and round addresses to as much as   DEFAULT_ROUNDING.  So we prepare for it to do that.  */union fooround {long x; double d;};# define DEFAULT_ROUNDING (sizeof (union fooround))/* When we copy a long block of data, this is the unit to do it with.   On some machines, copying successive ints does not work;   in such a case, redefine COPYING_UNIT to `long' (if that works)   or `char' as a last resort.  */# ifndef COPYING_UNIT#  define COPYING_UNIT int# endif/* The functions allocating more room by calling `obstack_chunk_alloc'   jump to the handler pointed to by `obstack_alloc_failed_handler'.   This can be set to a user defined function which should either   abort gracefully or use longjump - but shouldn't return.  This   variable by default points to the internal function   `print_and_abort'.  */# if defined __STDC__ && __STDC__static void print_and_abort (void);void (*obstack_alloc_failed_handler) (void) = print_and_abort;# elsestatic void print_and_abort ();void (*obstack_alloc_failed_handler) () = print_and_abort;# endif/* Exit value used when `print_and_abort' is used.  */# if defined __GNU_LIBRARY__ || defined HAVE_STDLIB_H#  include <stdlib.h># endif# ifndef EXIT_FAILURE#  define EXIT_FAILURE 1# endifint obstack_exit_failure = EXIT_FAILURE;/* The non-GNU-C macros copy the obstack into this global variable   to avoid multiple evaluation.  */struct obstack *_obstack;/* Define a macro that either calls functions with the traditional malloc/free   calling interface, or calls functions with the mmalloc/mfree interface   (that adds an extra first argument), based on the state of use_extra_arg.   For free, do not use ?:, since some compilers, like the MIPS compilers,   do not allow (expr) ? void : void.  */# if defined __STDC__ && __STDC__#  define CALL_CHUNKFUN(h, size) \  (((h) -> use_extra_arg) \   ? (*(h)->chunkfun) ((h)->extra_arg, (size)) \   : (*(struct _obstack_chunk *(*) (long)) (h)->chunkfun) ((size)))#  define CALL_FREEFUN(h, old_chunk) \  do { \    if ((h) -> use_extra_arg) \      (*(h)->freefun) ((h)->extra_arg, (old_chunk)); \    else \      (*(void (*) (void *)) (h)->freefun) ((old_chunk)); \  } while (0)# else#  define CALL_CHUNKFUN(h, size) \  (((h) -> use_extra_arg) \   ? (*(h)->chunkfun) ((h)->extra_arg, (size)) \   : (*(struct _obstack_chunk *(*) ()) (h)->chunkfun) ((size)))#  define CALL_FREEFUN(h, old_chunk) \  do { \    if ((h) -> use_extra_arg) \      (*(h)->freefun) ((h)->extra_arg, (old_chunk)); \    else \      (*(void (*) ()) (h)->freefun) ((old_chunk)); \  } while (0)# endif/* Initialize an obstack H for use.  Specify chunk size SIZE (0 means default).   Objects start on multiples of ALIGNMENT (0 means use default).   CHUNKFUN is the function to use to allocate chunks,   and FREEFUN the function to free them.   Return nonzero if successful, calls obstack_alloc_failed_handler if   allocation fails.  */int_obstack_begin (h, size, alignment, chunkfun, freefun)     struct obstack *h;     int size;     int alignment;# if defined __STDC__ && __STDC__     POINTER (*chunkfun) (long);     void (*freefun) (void *);# else     POINTER (*chunkfun) ();     void (*freefun) ();# endif{  register struct _obstack_chunk *chunk; /* points to new chunk */  if (alignment == 0)    alignment = (int) DEFAULT_ALIGNMENT;  if (size == 0)    /* Default size is what GNU malloc can fit in a 4096-byte block.  */    {      /* 12 is sizeof (mhead) and 4 is EXTRA from GNU malloc.	 Use the values for range checking, because if range checking is off,	 the extra bytes won't be missed terribly, but if range checking is on	 and we used a larger request, a whole extra 4096 bytes would be	 allocated.	 These number are irrelevant to the new GNU malloc.  I suspect it is	 less sensitive to the size of the request.  */      int extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1))		    + 4 + DEFAULT_ROUNDING - 1)		   & ~(DEFAULT_ROUNDING - 1));      size = 4096 - extra;    }# if defined __STDC__ && __STDC__  h->chunkfun = (struct _obstack_chunk * (*)(void *, long)) chunkfun;  h->freefun = (void (*) (void *, struct _obstack_chunk *)) freefun;# else  h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun;  h->freefun = freefun;# endif  h->chunk_size = size;  h->alignment_mask = alignment - 1;  h->use_extra_arg = 0;  chunk = h->chunk = CALL_CHUNKFUN (h, h -> chunk_size);  if (!chunk)    (*obstack_alloc_failed_handler) ();  h->next_free = h->object_base = chunk->contents;  h->chunk_limit = chunk->limit    = (char *) chunk + h->chunk_size;  chunk->prev = 0;  /* The initial chunk now contains no empty object.  */  h->maybe_empty_object = 0;  h->alloc_failed = 0;  return 1;}int_obstack_begin_1 (h, size, alignment, chunkfun, freefun, arg)     struct obstack *h;     int size;     int alignment;# if defined __STDC__ && __STDC__     POINTER (*chunkfun) (POINTER, long);     void (*freefun) (POINTER, POINTER);# else     POINTER (*chunkfun) ();     void (*freefun) ();# endif     POINTER arg;{  register struct _obstack_chunk *chunk; /* points to new chunk */  if (alignment == 0)    alignment = (int) DEFAULT_ALIGNMENT;  if (size == 0)    /* Default size is what GNU malloc can fit in a 4096-byte block.  */    {      /* 12 is sizeof (mhead) and 4 is EXTRA from GNU malloc.	 Use the values for range checking, because if range checking is off,	 the extra bytes won't be missed terribly, but if range checking is on	 and we used a larger request, a whole extra 4096 bytes would be	 allocated.	 These number are irrelevant to the new GNU malloc.  I suspect it is	 less sensitive to the size of the request.  */      int extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1))		    + 4 + DEFAULT_ROUNDING - 1)		   & ~(DEFAULT_ROUNDING - 1));      size = 4096 - extra;    }# if defined __STDC__ && __STDC__  h->chunkfun = (struct _obstack_chunk * (*)(void *,long)) chunkfun;  h->freefun = (void (*) (void *, struct _obstack_chunk *)) freefun;# else  h->chunkfun = (struct _obstack_chunk * (*)()) chunkfun;  h->freefun = freefun;# endif  h->chunk_size = size;  h->alignment_mask = alignment - 1;  h->extra_arg = arg;  h->use_extra_arg = 1;  chunk = h->chunk = CALL_CHUNKFUN (h, h -> chunk_size);  if (!chunk)    (*obstack_alloc_failed_handler) ();  h->next_free = h->object_base = chunk->contents;  h->chunk_limit = chunk->limit    = (char *) chunk + h->chunk_size;  chunk->prev = 0;  /* The initial chunk now contains no empty object.  */  h->maybe_empty_object = 0;  h->alloc_failed = 0;  return 1;}/* Allocate a new current chunk for the obstack *H   on the assumption that LENGTH bytes need to be added   to the current object, or a new object of length LENGTH allocated.   Copies any partial object from the end of the old chunk   to the beginning of the new one.  */void_obstack_newchunk (h, length)     struct obstack *h;     int length;{  register struct _obstack_chunk *old_chunk = h->chunk;  register struct _obstack_chunk *new_chunk;  register long	new_size;  register long obj_size = h->next_free - h->object_base;  register long i;  long already;  char *object_base;  /* Compute size for new chunk.  */  new_size = (obj_size + length) + (obj_size >> 3) + h->alignment_mask + 100;  if (new_size < h->chunk_size)    new_size = h->chunk_size;  /* Allocate and initialize the new chunk.  */  new_chunk = CALL_CHUNKFUN (h, new_size);  if (!new_chunk)    (*obstack_alloc_failed_handler) ();  h->chunk = new_chunk;  new_chunk->prev = old_chunk;  new_chunk->limit = h->chunk_limit = (char *) new_chunk + new_size;  /* Compute an aligned object_base in the new chunk */  object_base =    __INT_TO_PTR ((__PTR_TO_INT (new_chunk->contents) + h->alignment_mask)		  & ~ (h->alignment_mask));  /* Move the existing object to the new chunk.     Word at a time is fast and is safe if the object     is sufficiently aligned.  */  if (h->alignment_mask + 1 >= DEFAULT_ALIGNMENT)    {      for (i = obj_size / sizeof (COPYING_UNIT) - 1;