octave-jordi/gnulib-hg: lib/obstack.c annotate

annotate lib/obstack.c @ 18065:fd4663ad7454

time_rz: port to Solaris etc. Works around a tzname problem on platforms like Solaris that have tzname but not tm_zone, by setting tzname at the appropriate time and restoring it later. * lib/time_rz.c (tzname_address, tzname_value) [HAVE_TZNAME]: New static vars. (save_abbr) [HAVE_TZNAME]: Set them. (revert_tz) [HAVE_TZNAME]: Clear or use them. (restore_tzname): New function. (localtime_rz, mktime_z): Use it.

author	Paul Eggert <eggert@cs.ucla.edu>
date	Sat, 25 Jul 2015 15:20:10 -0700
parents	ab58d4870664
children

rev	line source
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	1 /* obstack.c - subroutines used implicitly by object stack macros
17848 ab58d4870664 version-etc: new year Paul Eggert <eggert@cs.ucla.edu> parents: 17792 diff changeset	2 Copyright (C) 1988-2015 Free Software Foundation, Inc.
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	3 This file is part of the GNU C Library.
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	4
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	5 The GNU C Library is free software; you can redistribute it and/or
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	6 modify it under the terms of the GNU Lesser General Public
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	7 License as published by the Free Software Foundation; either
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	8 version 2.1 of the License, or (at your option) any later version.
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	9
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	10 The GNU C Library is distributed in the hope that it will be useful,
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	11 but WITHOUT ANY WARRANTY; without even the implied warranty of
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	13 Lesser General Public License for more details.
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	14
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	15 You should have received a copy of the GNU Lesser General Public
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	16 License along with the GNU C Library; if not, see
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	17 <http://www.gnu.org/licenses/>. */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	18
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	19
4805 8f430f14ff21 Merge changes from glibc obstack; minor cleanups to make it easier to Paul Eggert <eggert@cs.ucla.edu> parents: 4696 diff changeset	20 #ifdef _LIBC
4934 0ffd1692e066 Exit-status fixes from coreutils. Paul Eggert <eggert@cs.ucla.edu> parents: 4805 diff changeset	21 # include <obstack.h>
4805 8f430f14ff21 Merge changes from glibc obstack; minor cleanups to make it easier to Paul Eggert <eggert@cs.ucla.edu> parents: 4696 diff changeset	22 #else
7302 8a1a9361108c * _fpending.c: Include <config.h> unconditionally, since we no Paul Eggert <eggert@cs.ucla.edu> parents: 7162 diff changeset	23 # include <config.h>
4934 0ffd1692e066 Exit-status fixes from coreutils. Paul Eggert <eggert@cs.ucla.edu> parents: 4805 diff changeset	24 # include "obstack.h"
4805 8f430f14ff21 Merge changes from glibc obstack; minor cleanups to make it easier to Paul Eggert <eggert@cs.ucla.edu> parents: 4696 diff changeset	25 #endif
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	26
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	27 /* NOTE BEFORE MODIFYING THIS FILE: _OBSTACK_INTERFACE_VERSION in
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	28 obstack.h must be incremented whenever callers compiled using an old
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	29 obstack.h can no longer properly call the functions in this file. */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	30
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	31 /* Comment out all this code if we are using the GNU C Library, and are not
779 d183d24934d4 from franc,ois Jim Meyering <jim@meyering.net> parents: 650 diff changeset	32 actually compiling the library itself, and the installed library
d183d24934d4 from franc,ois Jim Meyering <jim@meyering.net> parents: 650 diff changeset	33 supports the same library interface we do. This code is part of the GNU
d183d24934d4 from franc,ois Jim Meyering <jim@meyering.net> parents: 650 diff changeset	34 C Library, but also included in many other GNU distributions. Compiling
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	35 and linking in this code is a waste when using the GNU C library
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	36 (especially if it is a shared library). Rather than having every GNU
16235 18a38c9615f0 In commentary, do not use ` to quote. Paul Eggert <eggert@cs.ucla.edu> parents: 16201 diff changeset	37 program understand 'configure --with-gnu-libc' and omit the object
779 d183d24934d4 from franc,ois Jim Meyering <jim@meyering.net> parents: 650 diff changeset	38 files, it is simpler to just do this in the source for each such file. */
3362 cb3db42cafb9 update from libc Jim Meyering <jim@meyering.net> parents: 3361 diff changeset	39 #if !defined _LIBC && defined __GNU_LIBRARY__ && __GNU_LIBRARY__ > 1
2475 a76f490708a7 filter through cppi Jim Meyering <jim@meyering.net> parents: 995 diff changeset	40 # include <gnu-versions.h>
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	41 # if (_GNU_OBSTACK_INTERFACE_VERSION == _OBSTACK_INTERFACE_VERSION \
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	42 \|\| (_GNU_OBSTACK_INTERFACE_VERSION == 1 \
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	43 && _OBSTACK_INTERFACE_VERSION == 2 \
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	44 && defined SIZEOF_INT && defined SIZEOF_SIZE_T \
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	45 && SIZEOF_INT == SIZEOF_SIZE_T))
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	46 # define _OBSTACK_ELIDE_CODE
2475 a76f490708a7 filter through cppi Jim Meyering <jim@meyering.net> parents: 995 diff changeset	47 # endif
779 d183d24934d4 from franc,ois Jim Meyering <jim@meyering.net> parents: 650 diff changeset	48 #endif
d183d24934d4 from franc,ois Jim Meyering <jim@meyering.net> parents: 650 diff changeset	49
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	50 #ifndef _OBSTACK_ELIDE_CODE
17789 47c2be5d17f0 obstack: port to platforms that #define __alignof__ Paul Eggert <eggert@cs.ucla.edu> parents: 17782 diff changeset	51 /* If GCC, or if an oddball (testing?) host that #defines __alignof__,
47c2be5d17f0 obstack: port to platforms that #define __alignof__ Paul Eggert <eggert@cs.ucla.edu> parents: 17782 diff changeset	52 use the already-supplied __alignof__. Otherwise, this must be Gnulib
47c2be5d17f0 obstack: port to platforms that #define __alignof__ Paul Eggert <eggert@cs.ucla.edu> parents: 17782 diff changeset	53 (as glibc assumes GCC); defer to Gnulib's alignof_type. */
47c2be5d17f0 obstack: port to platforms that #define __alignof__ Paul Eggert <eggert@cs.ucla.edu> parents: 17782 diff changeset	54 # if !defined __GNUC__ && !defined __alignof__
17782 f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	55 # include <alignof.h>
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	56 # define __alignof__(type) alignof_type (type)
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	57 # endif
17775 742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	58 # include <stdlib.h>
7162 19c2e5121b2f Add and change modules to make it easier for coreutils to use Paul Eggert <eggert@cs.ucla.edu> parents: 6376 diff changeset	59 # include <stdint.h>
5178 0804f69d0572 Include <inttypes.h> and <stdint.h> if available. Paul Eggert <eggert@cs.ucla.edu> parents: 5174 diff changeset	60
17782 f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	61 # ifndef MAX
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	62 # define MAX(a,b) ((a) > (b) ? (a) : (b))
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	63 # endif
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	64
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	65 /* Determine default alignment. */
17782 f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	66
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	67 /* If malloc were really smart, it would round addresses to DEFAULT_ALIGNMENT.
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	68 But in fact it might be less smart and round addresses to as much as
17782 f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	69 DEFAULT_ROUNDING. So we prepare for it to do that.
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	70
17782 f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	71 DEFAULT_ALIGNMENT cannot be an enum constant; see gnulib's alignof.h. */
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	72 #define DEFAULT_ALIGNMENT MAX (__alignof__ (long double), \
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	73 MAX (__alignof__ (uintmax_t), \
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	74 __alignof__ (void *)))
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	75 #define DEFAULT_ROUNDING MAX (sizeof (long double), \
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	76 MAX (sizeof (uintmax_t), \
f6c039e09a3b obstack: prefer __alignof__ to alignof Paul Eggert <eggert@cs.ucla.edu> parents: 17781 diff changeset	77 sizeof (void *)))
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	78
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	79 /* Call functions with either the traditional malloc/free calling
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	80 interface, or the mmalloc/mfree interface (that adds an extra first
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	81 argument), based on the value of use_extra_arg. */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	82
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	83 static void *
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	84 call_chunkfun (struct obstack *h, size_t size)
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	85 {
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	86 if (h->use_extra_arg)
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	87 return h->chunkfun.extra (h->extra_arg, size);
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	88 else
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	89 return h->chunkfun.plain (size);
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	90 }
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	91
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	92 static void
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	93 call_freefun (struct obstack h, void old_chunk)
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	94 {
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	95 if (h->use_extra_arg)
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	96 h->freefun.extra (h->extra_arg, old_chunk);
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	97 else
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	98 h->freefun.plain (old_chunk);
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	99 }
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	100
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	101
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	102 /* Initialize an obstack H for use. Specify chunk size SIZE (0 means default).
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	103 Objects start on multiples of ALIGNMENT (0 means use default).
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	104
2475 a76f490708a7 filter through cppi Jim Meyering <jim@meyering.net> parents: 995 diff changeset	105 Return nonzero if successful, calls obstack_alloc_failed_handler if
a76f490708a7 filter through cppi Jim Meyering <jim@meyering.net> parents: 995 diff changeset	106 allocation fails. */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	107
17777 d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	108 static int
d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	109 _obstack_begin_worker (struct obstack *h,
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	110 _OBSTACK_SIZE_T size, _OBSTACK_SIZE_T alignment)
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	111 {
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	112 struct _obstack_chunk chunk; / points to new chunk */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	113
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	114 if (alignment == 0)
5065 4ce8ff7e5f06 Port obstack to the AS/400. Paul Eggert <eggert@cs.ucla.edu> parents: 5057 diff changeset	115 alignment = DEFAULT_ALIGNMENT;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	116 if (size == 0)
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	117 /* Default size is what GNU malloc can fit in a 4096-byte block. */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	118 {
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	119 /* 12 is sizeof (mhead) and 4 is EXTRA from GNU malloc.
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	120 Use the values for range checking, because if range checking is off,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	121 the extra bytes won't be missed terribly, but if range checking is on
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	122 and we used a larger request, a whole extra 4096 bytes would be
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	123 allocated.
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	124
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	125 These number are irrelevant to the new GNU malloc. I suspect it is
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	126 less sensitive to the size of the request. */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	127 int extra = ((((12 + DEFAULT_ROUNDING - 1) & ~(DEFAULT_ROUNDING - 1))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	128 + 4 + DEFAULT_ROUNDING - 1)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	129 & ~(DEFAULT_ROUNDING - 1));
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	130 size = 4096 - extra;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	131 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	132
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	133 h->chunk_size = size;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	134 h->alignment_mask = alignment - 1;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	135
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	136 chunk = h->chunk = call_chunkfun (h, h->chunk_size);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	137 if (!chunk)
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	138 (*obstack_alloc_failed_handler) ();
5174 7beb82c9f4d7 (_obstack_begin, _obstack_begin_1, _obstack_newchunk): Paul Eggert <eggert@cs.ucla.edu> parents: 5071 diff changeset	139 h->next_free = h->object_base = __PTR_ALIGN ((char *) chunk, chunk->contents,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	140 alignment - 1);
17776 4c0240f82735 obstack: tidy part 2 Alan Modra <amodra@gmail.com> parents: 17775 diff changeset	141 h->chunk_limit = chunk->limit = (char *) chunk + h->chunk_size;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	142 chunk->prev = 0;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	143 /* The initial chunk now contains no empty object. */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	144 h->maybe_empty_object = 0;
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	145 h->alloc_failed = 0;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	146 return 1;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	147 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	148
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	149 int
17777 d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	150 _obstack_begin (struct obstack *h,
17780 4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	151 _OBSTACK_SIZE_T size, _OBSTACK_SIZE_T alignment,
17777 d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	152 void (chunkfun) (size_t),
d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	153 void (freefun) (void ))
d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	154 {
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	155 h->chunkfun.plain = chunkfun;
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	156 h->freefun.plain = freefun;
17777 d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	157 h->use_extra_arg = 0;
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	158 return _obstack_begin_worker (h, size, alignment);
17777 d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	159 }
d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	160
d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	161 int
d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	162 _obstack_begin_1 (struct obstack *h,
17780 4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	163 _OBSTACK_SIZE_T size, _OBSTACK_SIZE_T alignment,
17777 d05e1a039ad3 obstack: 64-bit obstack support, part 1 Alan Modra <amodra@gmail.com> parents: 17776 diff changeset	164 void (chunkfun) (void *, size_t),
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	165 void (freefun) (void , void *),
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	166 void *arg)
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	167 {
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	168 h->chunkfun.extra = chunkfun;
7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	169 h->freefun.extra = freefun;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	170 h->extra_arg = arg;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	171 h->use_extra_arg = 1;
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	172 return _obstack_begin_worker (h, size, alignment);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	173 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	174
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	175 /* Allocate a new current chunk for the obstack *H
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	176 on the assumption that LENGTH bytes need to be added
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	177 to the current object, or a new object of length LENGTH allocated.
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	178 Copies any partial object from the end of the old chunk
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	179 to the beginning of the new one. */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	180
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	181 void
17778 589ffca43f9b obstack: 64-bit obstack support, part 2 Alan Modra <amodra@gmail.com> parents: 17777 diff changeset	182 _obstack_newchunk (struct obstack *h, _OBSTACK_SIZE_T length)
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	183 {
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	184 struct _obstack_chunk *old_chunk = h->chunk;
17780 4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	185 struct _obstack_chunk *new_chunk = 0;
17778 589ffca43f9b obstack: 64-bit obstack support, part 2 Alan Modra <amodra@gmail.com> parents: 17777 diff changeset	186 size_t obj_size = h->next_free - h->object_base;
2915 5690d50326cb Update from libc. Jim Meyering <jim@meyering.net> parents: 2813 diff changeset	187 char *object_base;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	188
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	189 /* Compute size for new chunk. */
17780 4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	190 size_t sum1 = obj_size + length;
4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	191 size_t sum2 = sum1 + h->alignment_mask;
4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	192 size_t new_size = sum2 + (obj_size >> 3) + 100;
4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	193 if (new_size < sum2)
4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	194 new_size = sum2;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	195 if (new_size < h->chunk_size)
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	196 new_size = h->chunk_size;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	197
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	198 /* Allocate and initialize the new chunk. */
17780 4fbd46593c56 obstack: use size_t alignments and check for overflow Paul Eggert <eggert@cs.ucla.edu> parents: 17779 diff changeset	199 if (obj_size <= sum1 && sum1 <= sum2)
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	200 new_chunk = call_chunkfun (h, new_size);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	201 if (!new_chunk)
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	202 (*obstack_alloc_failed_handler)();
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	203 h->chunk = new_chunk;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	204 new_chunk->prev = old_chunk;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	205 new_chunk->limit = h->chunk_limit = (char *) new_chunk + new_size;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	206
2915 5690d50326cb Update from libc. Jim Meyering <jim@meyering.net> parents: 2813 diff changeset	207 /* Compute an aligned object_base in the new chunk */
5690d50326cb Update from libc. Jim Meyering <jim@meyering.net> parents: 2813 diff changeset	208 object_base =
5065 4ce8ff7e5f06 Port obstack to the AS/400. Paul Eggert <eggert@cs.ucla.edu> parents: 5057 diff changeset	209 __PTR_ALIGN ((char *) new_chunk, new_chunk->contents, h->alignment_mask);
2915 5690d50326cb Update from libc. Jim Meyering <jim@meyering.net> parents: 2813 diff changeset	210
17776 4c0240f82735 obstack: tidy part 2 Alan Modra <amodra@gmail.com> parents: 17775 diff changeset	211 /* Move the existing object to the new chunk. */
4c0240f82735 obstack: tidy part 2 Alan Modra <amodra@gmail.com> parents: 17775 diff changeset	212 memcpy (object_base, h->object_base, obj_size);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	213
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	214 /* If the object just copied was the only data in OLD_CHUNK,
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	215 free that chunk and remove it from the chain.
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	216 But not if that chunk might contain an empty object. */
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	217 if (!h->maybe_empty_object
5174 7beb82c9f4d7 (_obstack_begin, _obstack_begin_1, _obstack_newchunk): Paul Eggert <eggert@cs.ucla.edu> parents: 5071 diff changeset	218 && (h->object_base
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	219 == __PTR_ALIGN ((char *) old_chunk, old_chunk->contents,
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	220 h->alignment_mask)))
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	221 {
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	222 new_chunk->prev = old_chunk->prev;
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	223 call_freefun (h, old_chunk);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	224 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	225
2915 5690d50326cb Update from libc. Jim Meyering <jim@meyering.net> parents: 2813 diff changeset	226 h->object_base = object_base;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	227 h->next_free = h->object_base + obj_size;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	228 /* The new chunk certainly contains no empty object yet. */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	229 h->maybe_empty_object = 0;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	230 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	231
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	232 /* Return nonzero if object OBJ has been allocated from obstack H.
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	233 This is here for debugging.
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	234 If you use it in a program, you are probably losing. */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	235
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	236 /* Suppress -Wmissing-prototypes warning. We don't want to declare this in
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	237 obstack.h because it is just for debugging. */
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	238 int _obstack_allocated_p (struct obstack h, void obj) __attribute_pure__;
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	239
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	240 int
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	241 _obstack_allocated_p (struct obstack h, void obj)
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	242 {
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	243 struct _obstack_chunk lp; / below addr of any objects in this chunk */
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	244 struct _obstack_chunk plp; / point to previous chunk if any */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	245
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	246 lp = (h)->chunk;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	247 /* We use >= rather than > since the object cannot be exactly at
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	248 the beginning of the chunk but might be an empty object exactly
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	249 at the end of an adjacent chunk. */
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	250 while (lp != 0 && ((void ) lp >= obj \|\| (void ) (lp)->limit < obj))
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	251 {
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	252 plp = lp->prev;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	253 lp = plp;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	254 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	255 return lp != 0;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	256 }
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	257
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	258 /* Free objects in obstack H, including OBJ and everything allocate
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	259 more recently than OBJ. If OBJ is zero, free everything in H. */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	260
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	261 void
17776 4c0240f82735 obstack: tidy part 2 Alan Modra <amodra@gmail.com> parents: 17775 diff changeset	262 _obstack_free (struct obstack h, void obj)
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	263 {
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	264 struct _obstack_chunk lp; / below addr of any objects in this chunk */
ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	265 struct _obstack_chunk plp; / point to previous chunk if any */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	266
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	267 lp = h->chunk;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	268 /* We use >= because there cannot be an object at the beginning of a chunk.
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	269 But there can be an empty object at that address
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	270 at the end of another chunk. */
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	271 while (lp != 0 && ((void ) lp >= obj \|\| (void ) (lp)->limit < obj))
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	272 {
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	273 plp = lp->prev;
17792 7497a1d1d497 obstack: avoid potentially-nonportable function casts Paul Eggert <eggert@cs.ucla.edu> parents: 17789 diff changeset	274 call_freefun (h, lp);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	275 lp = plp;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	276 /* If we switch chunks, we can't tell whether the new current
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	277 chunk contains an empty object, so assume that it may. */
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	278 h->maybe_empty_object = 1;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	279 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	280 if (lp)
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	281 {
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	282 h->object_base = h->next_free = (char *) (obj);
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	283 h->chunk_limit = lp->limit;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	284 h->chunk = lp;
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	285 }
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	286 else if (obj != 0)
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	287 /* obj is not in any of the chunks! */
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	288 abort ();
0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	289 }
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	290
17778 589ffca43f9b obstack: 64-bit obstack support, part 2 Alan Modra <amodra@gmail.com> parents: 17777 diff changeset	291 _OBSTACK_SIZE_T
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	292 _obstack_memory_used (struct obstack *h)
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	293 {
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	294 struct _obstack_chunk *lp;
17778 589ffca43f9b obstack: 64-bit obstack support, part 2 Alan Modra <amodra@gmail.com> parents: 17777 diff changeset	295 _OBSTACK_SIZE_T nbytes = 0;
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	296
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	297 for (lp = h->chunk; lp != 0; lp = lp->prev)
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	298 {
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	299 nbytes += lp->limit - (char *) lp;
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	300 }
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	301 return nbytes;
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	302 }
17647 ae63f4dd18f3 obstack: merge with glibc changes Paul Eggert <eggert@cs.ucla.edu> parents: 17587 diff changeset	303
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	304 # ifndef _OBSTACK_NO_ERROR_HANDLER
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	305 /* Define the error handler. */
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	306 # include <stdio.h>
17775 742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	307
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	308 /* Exit value used when 'print_and_abort' is used. */
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	309 # ifdef _LIBC
17775 742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	310 int obstack_exit_failure = EXIT_FAILURE;
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	311 # else
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	312 # include "exitfail.h"
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	313 # define obstack_exit_failure exit_failure
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	314 # endif
17775 742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	315
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	316 # ifdef _LIBC
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	317 # include <libintl.h>
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	318 # else
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	319 # include "gettext.h"
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	320 # endif
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	321 # ifndef _
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	322 # define _(msgid) gettext (msgid)
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	323 # endif
3966 22d3032f0239 Include gettext.h instead of <libintl.h> with #ifdefs. Bruno Haible <bruno@clisp.org> parents: 3552 diff changeset	324
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	325 # ifdef _LIBC
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	326 # include <libio/iolibio.h>
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	327 # endif
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	328
15400 786020647d93 obstack: use _Noreturn Paul Eggert <eggert@cs.ucla.edu> parents: 14079 diff changeset	329 static _Noreturn void
4667 117a6d2af03b Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 4020 diff changeset	330 print_and_abort (void)
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	331 {
3361 9594c5ad3ab8 update from glibc Jim Meyering <jim@meyering.net> parents: 3293 diff changeset	332 /* Don't change any of these strings. Yes, it would be possible to add
9594c5ad3ab8 update from glibc Jim Meyering <jim@meyering.net> parents: 3293 diff changeset	333 the newline to the string and use fputs or so. But this must not
9594c5ad3ab8 update from glibc Jim Meyering <jim@meyering.net> parents: 3293 diff changeset	334 happen because the "memory exhausted" message appears in other places
9594c5ad3ab8 update from glibc Jim Meyering <jim@meyering.net> parents: 3293 diff changeset	335 like this and the translation should be reused instead of creating
9594c5ad3ab8 update from glibc Jim Meyering <jim@meyering.net> parents: 3293 diff changeset	336 a very similar string which requires a separate translation. */
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	337 # ifdef _LIBC
6376 56829cd68e67 * config/srclist.txt: Add glibc bug 321 for obstack.c, obstack.h. Paul Eggert <eggert@cs.ucla.edu> parents: 5848 diff changeset	338 (void) __fxprintf (NULL, "%s\n", _("memory exhausted"));
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	339 # else
6376 56829cd68e67 * config/srclist.txt: Add glibc bug 321 for obstack.c, obstack.h. Paul Eggert <eggert@cs.ucla.edu> parents: 5848 diff changeset	340 fprintf (stderr, "%s\n", _("memory exhausted"));
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	341 # endif
881 bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	342 exit (obstack_exit_failure);
bdd51dfe45e2 new obstack from libc Jim Meyering <jim@meyering.net> parents: 779 diff changeset	343 }
334 0f8efd187be0 Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	344
17775 742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	345 /* The functions allocating more room by calling 'obstack_chunk_alloc'
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	346 jump to the handler pointed to by 'obstack_alloc_failed_handler'.
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	347 This can be set to a user defined function which should either
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	348 abort gracefully or use longjump - but shouldn't return. This
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	349 variable by default points to the internal function
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	350 'print_and_abort'. */
742b00324c9b obstack: tidy part 1 Alan Modra <amodra@gmail.com> parents: 17647 diff changeset	351 void (*obstack_alloc_failed_handler) (void) = print_and_abort;
17779 8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	352 # endif /* !_OBSTACK_NO_ERROR_HANDLER */
8ba63d29429e obstack: 64-bit obstack support, part 3 Alan Modra <amodra@gmail.com> parents: 17778 diff changeset	353 #endif /* !_OBSTACK_ELIDE_CODE */

Mercurial > hg > octave-jordi > gnulib-hg

annotate lib/obstack.c @ 18065:fd4663ad7454