|
0
|
1 /* obstack.h - object stack macros
|
|
145
|
2 Copyright (C) 1988-2020 Free Software Foundation, Inc.
|
|
111
|
3 This file is part of the GNU C Library.
|
|
0
|
4
|
|
111
|
5 The GNU C Library is free software; you can redistribute it and/or
|
|
|
6 modify it under the terms of the GNU Lesser General Public
|
|
|
7 License as published by the Free Software Foundation; either
|
|
|
8 version 2.1 of the License, or (at your option) any later version.
|
|
0
|
9
|
|
111
|
10 The GNU C Library is distributed in the hope that it will be useful,
|
|
0
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
111
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
13 Lesser General Public License for more details.
|
|
0
|
14
|
|
111
|
15 You should have received a copy of the GNU Lesser General Public
|
|
|
16 License along with the GNU C Library; if not, see
|
|
|
17 <http://www.gnu.org/licenses/>. */
|
|
0
|
18
|
|
|
19 /* Summary:
|
|
|
20
|
|
111
|
21 All the apparent functions defined here are macros. The idea
|
|
|
22 is that you would use these pre-tested macros to solve a
|
|
|
23 very specific set of problems, and they would run fast.
|
|
|
24 Caution: no side-effects in arguments please!! They may be
|
|
|
25 evaluated MANY times!!
|
|
0
|
26
|
|
111
|
27 These macros operate a stack of objects. Each object starts life
|
|
|
28 small, and may grow to maturity. (Consider building a word syllable
|
|
|
29 by syllable.) An object can move while it is growing. Once it has
|
|
|
30 been "finished" it never changes address again. So the "top of the
|
|
|
31 stack" is typically an immature growing object, while the rest of the
|
|
|
32 stack is of mature, fixed size and fixed address objects.
|
|
0
|
33
|
|
111
|
34 These routines grab large chunks of memory, using a function you
|
|
|
35 supply, called 'obstack_chunk_alloc'. On occasion, they free chunks,
|
|
|
36 by calling 'obstack_chunk_free'. You must define them and declare
|
|
|
37 them before using any obstack macros.
|
|
0
|
38
|
|
111
|
39 Each independent stack is represented by a 'struct obstack'.
|
|
|
40 Each of the obstack macros expects a pointer to such a structure
|
|
|
41 as the first argument.
|
|
0
|
42
|
|
111
|
43 One motivation for this package is the problem of growing char strings
|
|
|
44 in symbol tables. Unless you are "fascist pig with a read-only mind"
|
|
|
45 --Gosper's immortal quote from HAKMEM item 154, out of context--you
|
|
|
46 would not like to put any arbitrary upper limit on the length of your
|
|
|
47 symbols.
|
|
0
|
48
|
|
111
|
49 In practice this often means you will build many short symbols and a
|
|
|
50 few long symbols. At the time you are reading a symbol you don't know
|
|
|
51 how long it is. One traditional method is to read a symbol into a
|
|
|
52 buffer, realloc()ating the buffer every time you try to read a symbol
|
|
|
53 that is longer than the buffer. This is beaut, but you still will
|
|
|
54 want to copy the symbol from the buffer to a more permanent
|
|
|
55 symbol-table entry say about half the time.
|
|
0
|
56
|
|
111
|
57 With obstacks, you can work differently. Use one obstack for all symbol
|
|
|
58 names. As you read a symbol, grow the name in the obstack gradually.
|
|
|
59 When the name is complete, finalize it. Then, if the symbol exists already,
|
|
|
60 free the newly read name.
|
|
0
|
61
|
|
111
|
62 The way we do this is to take a large chunk, allocating memory from
|
|
|
63 low addresses. When you want to build a symbol in the chunk you just
|
|
|
64 add chars above the current "high water mark" in the chunk. When you
|
|
|
65 have finished adding chars, because you got to the end of the symbol,
|
|
|
66 you know how long the chars are, and you can create a new object.
|
|
|
67 Mostly the chars will not burst over the highest address of the chunk,
|
|
|
68 because you would typically expect a chunk to be (say) 100 times as
|
|
|
69 long as an average object.
|
|
0
|
70
|
|
111
|
71 In case that isn't clear, when we have enough chars to make up
|
|
|
72 the object, THEY ARE ALREADY CONTIGUOUS IN THE CHUNK (guaranteed)
|
|
|
73 so we just point to it where it lies. No moving of chars is
|
|
|
74 needed and this is the second win: potentially long strings need
|
|
|
75 never be explicitly shuffled. Once an object is formed, it does not
|
|
|
76 change its address during its lifetime.
|
|
0
|
77
|
|
111
|
78 When the chars burst over a chunk boundary, we allocate a larger
|
|
|
79 chunk, and then copy the partly formed object from the end of the old
|
|
|
80 chunk to the beginning of the new larger chunk. We then carry on
|
|
|
81 accreting characters to the end of the object as we normally would.
|
|
0
|
82
|
|
111
|
83 A special macro is provided to add a single char at a time to a
|
|
|
84 growing object. This allows the use of register variables, which
|
|
|
85 break the ordinary 'growth' macro.
|
|
0
|
86
|
|
111
|
87 Summary:
|
|
|
88 We allocate large chunks.
|
|
|
89 We carve out one object at a time from the current chunk.
|
|
|
90 Once carved, an object never moves.
|
|
|
91 We are free to append data of any size to the currently
|
|
|
92 growing object.
|
|
|
93 Exactly one object is growing in an obstack at any one time.
|
|
|
94 You can run one obstack per control block.
|
|
|
95 You may have as many control blocks as you dare.
|
|
|
96 Because of the way we do it, you can "unwind" an obstack
|
|
|
97 back to a previous state. (You may remove objects much
|
|
|
98 as you would with a stack.)
|
|
|
99 */
|
|
0
|
100
|
|
|
101
|
|
|
102 /* Don't do the contents of this file more than once. */
|
|
|
103
|
|
|
104 #ifndef _OBSTACK_H
|
|
|
105 #define _OBSTACK_H 1
|
|
|
106
|
|
111
|
107 #ifndef _OBSTACK_INTERFACE_VERSION
|
|
|
108 # define _OBSTACK_INTERFACE_VERSION 2
|
|
0
|
109 #endif
|
|
111
|
110
|
|
|
111 #include <stddef.h> /* For size_t and ptrdiff_t. */
|
|
|
112 #include <string.h> /* For __GNU_LIBRARY__, and memcpy. */
|
|
0
|
113
|
|
111
|
114 #if _OBSTACK_INTERFACE_VERSION == 1
|
|
|
115 /* For binary compatibility with obstack version 1, which used "int"
|
|
|
116 and "long" for these two types. */
|
|
|
117 # define _OBSTACK_SIZE_T unsigned int
|
|
|
118 # define _CHUNK_SIZE_T unsigned long
|
|
|
119 # define _OBSTACK_CAST(type, expr) ((type) (expr))
|
|
|
120 #else
|
|
|
121 /* Version 2 with sane types, especially for 64-bit hosts. */
|
|
|
122 # define _OBSTACK_SIZE_T size_t
|
|
|
123 # define _CHUNK_SIZE_T size_t
|
|
|
124 # define _OBSTACK_CAST(type, expr) (expr)
|
|
0
|
125 #endif
|
|
|
126
|
|
111
|
127 /* If B is the base of an object addressed by P, return the result of
|
|
|
128 aligning P to the next multiple of A + 1. B and P must be of type
|
|
|
129 char *. A + 1 must be a power of 2. */
|
|
|
130
|
|
|
131 #define __BPTR_ALIGN(B, P, A) ((B) + (((P) - (B) + (A)) & ~(A)))
|
|
0
|
132
|
|
111
|
133 /* Similar to __BPTR_ALIGN (B, P, A), except optimize the common case
|
|
|
134 where pointers can be converted to integers, aligned as integers,
|
|
|
135 and converted back again. If ptrdiff_t is narrower than a
|
|
|
136 pointer (e.g., the AS/400), play it safe and compute the alignment
|
|
|
137 relative to B. Otherwise, use the faster strategy of computing the
|
|
|
138 alignment relative to 0. */
|
|
0
|
139
|
|
111
|
140 #define __PTR_ALIGN(B, P, A) \
|
|
|
141 __BPTR_ALIGN (sizeof (ptrdiff_t) < sizeof (void *) ? (B) : (char *) 0, \
|
|
|
142 P, A)
|
|
|
143
|
|
|
144 #ifndef __attribute_pure__
|
|
|
145 # if defined __GNUC_MINOR__ && __GNUC__ * 1000 + __GNUC_MINOR__ >= 2096
|
|
|
146 # define __attribute_pure__ __attribute__ ((__pure__))
|
|
0
|
147 # else
|
|
111
|
148 # define __attribute_pure__
|
|
0
|
149 # endif
|
|
|
150 #endif
|
|
|
151
|
|
111
|
152 #ifdef __cplusplus
|
|
|
153 extern "C" {
|
|
0
|
154 #endif
|
|
|
155
|
|
111
|
156 struct _obstack_chunk /* Lives at front of each chunk. */
|
|
0
|
157 {
|
|
111
|
158 char *limit; /* 1 past end of this chunk */
|
|
|
159 struct _obstack_chunk *prev; /* address of prior chunk or NULL */
|
|
|
160 char contents[4]; /* objects begin here */
|
|
0
|
161 };
|
|
|
162
|
|
111
|
163 struct obstack /* control current object in current chunk */
|
|
0
|
164 {
|
|
111
|
165 _CHUNK_SIZE_T chunk_size; /* preferred size to allocate chunks in */
|
|
|
166 struct _obstack_chunk *chunk; /* address of current struct obstack_chunk */
|
|
|
167 char *object_base; /* address of object we are building */
|
|
|
168 char *next_free; /* where to add next char to current object */
|
|
|
169 char *chunk_limit; /* address of char after current chunk */
|
|
|
170 union
|
|
|
171 {
|
|
|
172 _OBSTACK_SIZE_T i;
|
|
|
173 void *p;
|
|
|
174 } temp; /* Temporary for some macros. */
|
|
|
175 _OBSTACK_SIZE_T alignment_mask; /* Mask of alignment for each object. */
|
|
|
176
|
|
|
177 /* These prototypes vary based on 'use_extra_arg'. */
|
|
|
178 union
|
|
|
179 {
|
|
|
180 void *(*plain) (size_t);
|
|
|
181 void *(*extra) (void *, size_t);
|
|
|
182 } chunkfun;
|
|
|
183 union
|
|
|
184 {
|
|
|
185 void (*plain) (void *);
|
|
|
186 void (*extra) (void *, void *);
|
|
|
187 } freefun;
|
|
|
188
|
|
|
189 void *extra_arg; /* first arg for chunk alloc/dealloc funcs */
|
|
|
190 unsigned use_extra_arg : 1; /* chunk alloc/dealloc funcs take extra arg */
|
|
|
191 unsigned maybe_empty_object : 1; /* There is a possibility that the current
|
|
|
192 chunk contains a zero-length object. This
|
|
|
193 prevents freeing the chunk if we allocate
|
|
|
194 a bigger chunk to replace it. */
|
|
|
195 unsigned alloc_failed : 1; /* No longer used, as we now call the failed
|
|
|
196 handler on error, but retained for binary
|
|
|
197 compatibility. */
|
|
0
|
198 };
|
|
|
199
|
|
|
200 /* Declare the external functions we use; they are in obstack.c. */
|
|
|
201
|
|
111
|
202 extern void _obstack_newchunk (struct obstack *, _OBSTACK_SIZE_T);
|
|
0
|
203 extern void _obstack_free (struct obstack *, void *);
|
|
111
|
204 extern int _obstack_begin (struct obstack *,
|
|
|
205 _OBSTACK_SIZE_T, _OBSTACK_SIZE_T,
|
|
|
206 void *(*) (size_t), void (*) (void *));
|
|
|
207 extern int _obstack_begin_1 (struct obstack *,
|
|
|
208 _OBSTACK_SIZE_T, _OBSTACK_SIZE_T,
|
|
|
209 void *(*) (void *, size_t),
|
|
|
210 void (*) (void *, void *), void *);
|
|
|
211 extern _OBSTACK_SIZE_T _obstack_memory_used (struct obstack *)
|
|
|
212 __attribute_pure__;
|
|
0
|
213
|
|
|
214
|
|
111
|
215 /* Error handler called when 'obstack_chunk_alloc' failed to allocate
|
|
|
216 more memory. This can be set to a user defined function which
|
|
|
217 should either abort gracefully or use longjump - but shouldn't
|
|
|
218 return. The default action is to print a message and abort. */
|
|
0
|
219 extern void (*obstack_alloc_failed_handler) (void);
|
|
|
220
|
|
111
|
221 /* Exit value used when 'print_and_abort' is used. */
|
|
0
|
222 extern int obstack_exit_failure;
|
|
111
|
223
|
|
0
|
224 /* Pointer to beginning of object being allocated or to be allocated next.
|
|
|
225 Note that this might not be the final address of the object
|
|
|
226 because a new chunk might be needed to hold the final size. */
|
|
|
227
|
|
111
|
228 #define obstack_base(h) ((void *) (h)->object_base)
|
|
0
|
229
|
|
|
230 /* Size for allocating ordinary chunks. */
|
|
|
231
|
|
|
232 #define obstack_chunk_size(h) ((h)->chunk_size)
|
|
|
233
|
|
|
234 /* Pointer to next byte not yet allocated in current chunk. */
|
|
|
235
|
|
111
|
236 #define obstack_next_free(h) ((void *) (h)->next_free)
|
|
0
|
237
|
|
|
238 /* Mask specifying low bits that should be clear in address of an object. */
|
|
|
239
|
|
|
240 #define obstack_alignment_mask(h) ((h)->alignment_mask)
|
|
|
241
|
|
111
|
242 /* To prevent prototype warnings provide complete argument list. */
|
|
|
243 #define obstack_init(h) \
|
|
|
244 _obstack_begin ((h), 0, 0, \
|
|
|
245 _OBSTACK_CAST (void *(*) (size_t), obstack_chunk_alloc), \
|
|
|
246 _OBSTACK_CAST (void (*) (void *), obstack_chunk_free))
|
|
0
|
247
|
|
111
|
248 #define obstack_begin(h, size) \
|
|
|
249 _obstack_begin ((h), (size), 0, \
|
|
|
250 _OBSTACK_CAST (void *(*) (size_t), obstack_chunk_alloc), \
|
|
|
251 _OBSTACK_CAST (void (*) (void *), obstack_chunk_free))
|
|
0
|
252
|
|
111
|
253 #define obstack_specify_allocation(h, size, alignment, chunkfun, freefun) \
|
|
|
254 _obstack_begin ((h), (size), (alignment), \
|
|
|
255 _OBSTACK_CAST (void *(*) (size_t), chunkfun), \
|
|
|
256 _OBSTACK_CAST (void (*) (void *), freefun))
|
|
|
257
|
|
|
258 #define obstack_specify_allocation_with_arg(h, size, alignment, chunkfun, freefun, arg) \
|
|
|
259 _obstack_begin_1 ((h), (size), (alignment), \
|
|
|
260 _OBSTACK_CAST (void *(*) (void *, size_t), chunkfun), \
|
|
|
261 _OBSTACK_CAST (void (*) (void *, void *), freefun), arg)
|
|
0
|
262
|
|
111
|
263 #define obstack_chunkfun(h, newchunkfun) \
|
|
|
264 ((void) ((h)->chunkfun.extra = (void *(*) (void *, size_t)) (newchunkfun)))
|
|
0
|
265
|
|
111
|
266 #define obstack_freefun(h, newfreefun) \
|
|
|
267 ((void) ((h)->freefun.extra = (void *(*) (void *, void *)) (newfreefun)))
|
|
0
|
268
|
|
111
|
269 #define obstack_1grow_fast(h, achar) ((void) (*((h)->next_free)++ = (achar)))
|
|
0
|
270
|
|
111
|
271 #define obstack_blank_fast(h, n) ((void) ((h)->next_free += (n)))
|
|
0
|
272
|
|
|
273 #define obstack_memory_used(h) _obstack_memory_used (h)
|
|
111
|
274
|
|
|
275 #if defined __GNUC__
|
|
|
276 # if !defined __GNUC_MINOR__ || __GNUC__ * 1000 + __GNUC_MINOR__ < 2008
|
|
0
|
277 # define __extension__
|
|
|
278 # endif
|
|
|
279
|
|
|
280 /* For GNU C, if not -traditional,
|
|
|
281 we can define these macros to compute all args only once
|
|
|
282 without using a global variable.
|
|
111
|
283 Also, we can avoid using the 'temp' slot, to make faster code. */
|
|
|
284
|
|
|
285 # define obstack_object_size(OBSTACK) \
|
|
|
286 __extension__ \
|
|
|
287 ({ struct obstack const *__o = (OBSTACK); \
|
|
|
288 (_OBSTACK_SIZE_T) (__o->next_free - __o->object_base); })
|
|
0
|
289
|
|
111
|
290 /* The local variable is named __o1 to avoid a shadowed variable
|
|
|
291 warning when invoked from other obstack macros. */
|
|
|
292 # define obstack_room(OBSTACK) \
|
|
|
293 __extension__ \
|
|
|
294 ({ struct obstack const *__o1 = (OBSTACK); \
|
|
|
295 (_OBSTACK_SIZE_T) (__o1->chunk_limit - __o1->next_free); })
|
|
0
|
296
|
|
111
|
297 # define obstack_make_room(OBSTACK, length) \
|
|
|
298 __extension__ \
|
|
|
299 ({ struct obstack *__o = (OBSTACK); \
|
|
|
300 _OBSTACK_SIZE_T __len = (length); \
|
|
|
301 if (obstack_room (__o) < __len) \
|
|
|
302 _obstack_newchunk (__o, __len); \
|
|
|
303 (void) 0; })
|
|
0
|
304
|
|
111
|
305 # define obstack_empty_p(OBSTACK) \
|
|
|
306 __extension__ \
|
|
|
307 ({ struct obstack const *__o = (OBSTACK); \
|
|
|
308 (__o->chunk->prev == 0 \
|
|
|
309 && __o->next_free == __PTR_ALIGN ((char *) __o->chunk, \
|
|
|
310 __o->chunk->contents, \
|
|
|
311 __o->alignment_mask)); })
|
|
0
|
312
|
|
111
|
313 # define obstack_grow(OBSTACK, where, length) \
|
|
|
314 __extension__ \
|
|
|
315 ({ struct obstack *__o = (OBSTACK); \
|
|
|
316 _OBSTACK_SIZE_T __len = (length); \
|
|
|
317 if (obstack_room (__o) < __len) \
|
|
|
318 _obstack_newchunk (__o, __len); \
|
|
|
319 memcpy (__o->next_free, where, __len); \
|
|
|
320 __o->next_free += __len; \
|
|
|
321 (void) 0; })
|
|
0
|
322
|
|
111
|
323 # define obstack_grow0(OBSTACK, where, length) \
|
|
|
324 __extension__ \
|
|
|
325 ({ struct obstack *__o = (OBSTACK); \
|
|
|
326 _OBSTACK_SIZE_T __len = (length); \
|
|
|
327 if (obstack_room (__o) < __len + 1) \
|
|
|
328 _obstack_newchunk (__o, __len + 1); \
|
|
|
329 memcpy (__o->next_free, where, __len); \
|
|
|
330 __o->next_free += __len; \
|
|
|
331 *(__o->next_free)++ = 0; \
|
|
|
332 (void) 0; })
|
|
0
|
333
|
|
111
|
334 # define obstack_1grow(OBSTACK, datum) \
|
|
|
335 __extension__ \
|
|
|
336 ({ struct obstack *__o = (OBSTACK); \
|
|
|
337 if (obstack_room (__o) < 1) \
|
|
|
338 _obstack_newchunk (__o, 1); \
|
|
|
339 obstack_1grow_fast (__o, datum); })
|
|
0
|
340
|
|
111
|
341 /* These assume that the obstack alignment is good enough for pointers
|
|
|
342 or ints, and that the data added so far to the current object
|
|
0
|
343 shares that much alignment. */
|
|
|
344
|
|
111
|
345 # define obstack_ptr_grow(OBSTACK, datum) \
|
|
|
346 __extension__ \
|
|
|
347 ({ struct obstack *__o = (OBSTACK); \
|
|
|
348 if (obstack_room (__o) < sizeof (void *)) \
|
|
|
349 _obstack_newchunk (__o, sizeof (void *)); \
|
|
|
350 obstack_ptr_grow_fast (__o, datum); })
|
|
0
|
351
|
|
111
|
352 # define obstack_int_grow(OBSTACK, datum) \
|
|
|
353 __extension__ \
|
|
|
354 ({ struct obstack *__o = (OBSTACK); \
|
|
|
355 if (obstack_room (__o) < sizeof (int)) \
|
|
|
356 _obstack_newchunk (__o, sizeof (int)); \
|
|
|
357 obstack_int_grow_fast (__o, datum); })
|
|
0
|
358
|
|
111
|
359 # define obstack_ptr_grow_fast(OBSTACK, aptr) \
|
|
|
360 __extension__ \
|
|
|
361 ({ struct obstack *__o1 = (OBSTACK); \
|
|
|
362 void *__p1 = __o1->next_free; \
|
|
|
363 *(const void **) __p1 = (aptr); \
|
|
|
364 __o1->next_free += sizeof (const void *); \
|
|
|
365 (void) 0; })
|
|
0
|
366
|
|
111
|
367 # define obstack_int_grow_fast(OBSTACK, aint) \
|
|
|
368 __extension__ \
|
|
|
369 ({ struct obstack *__o1 = (OBSTACK); \
|
|
|
370 void *__p1 = __o1->next_free; \
|
|
|
371 *(int *) __p1 = (aint); \
|
|
|
372 __o1->next_free += sizeof (int); \
|
|
|
373 (void) 0; })
|
|
0
|
374
|
|
111
|
375 # define obstack_blank(OBSTACK, length) \
|
|
|
376 __extension__ \
|
|
|
377 ({ struct obstack *__o = (OBSTACK); \
|
|
|
378 _OBSTACK_SIZE_T __len = (length); \
|
|
|
379 if (obstack_room (__o) < __len) \
|
|
|
380 _obstack_newchunk (__o, __len); \
|
|
|
381 obstack_blank_fast (__o, __len); })
|
|
0
|
382
|
|
111
|
383 # define obstack_alloc(OBSTACK, length) \
|
|
|
384 __extension__ \
|
|
|
385 ({ struct obstack *__h = (OBSTACK); \
|
|
|
386 obstack_blank (__h, (length)); \
|
|
|
387 obstack_finish (__h); })
|
|
0
|
388
|
|
111
|
389 # define obstack_copy(OBSTACK, where, length) \
|
|
|
390 __extension__ \
|
|
|
391 ({ struct obstack *__h = (OBSTACK); \
|
|
|
392 obstack_grow (__h, (where), (length)); \
|
|
|
393 obstack_finish (__h); })
|
|
0
|
394
|
|
111
|
395 # define obstack_copy0(OBSTACK, where, length) \
|
|
|
396 __extension__ \
|
|
|
397 ({ struct obstack *__h = (OBSTACK); \
|
|
|
398 obstack_grow0 (__h, (where), (length)); \
|
|
|
399 obstack_finish (__h); })
|
|
0
|
400
|
|
111
|
401 /* The local variable is named __o1 to avoid a shadowed variable
|
|
|
402 warning when invoked from other obstack macros, typically obstack_free. */
|
|
|
403 # define obstack_finish(OBSTACK) \
|
|
|
404 __extension__ \
|
|
|
405 ({ struct obstack *__o1 = (OBSTACK); \
|
|
|
406 void *__value = (void *) __o1->object_base; \
|
|
|
407 if (__o1->next_free == __value) \
|
|
|
408 __o1->maybe_empty_object = 1; \
|
|
|
409 __o1->next_free \
|
|
|
410 = __PTR_ALIGN (__o1->object_base, __o1->next_free, \
|
|
|
411 __o1->alignment_mask); \
|
|
|
412 if ((size_t) (__o1->next_free - (char *) __o1->chunk) \
|
|
|
413 > (size_t) (__o1->chunk_limit - (char *) __o1->chunk)) \
|
|
|
414 __o1->next_free = __o1->chunk_limit; \
|
|
|
415 __o1->object_base = __o1->next_free; \
|
|
|
416 __value; })
|
|
0
|
417
|
|
111
|
418 # define obstack_free(OBSTACK, OBJ) \
|
|
|
419 __extension__ \
|
|
|
420 ({ struct obstack *__o = (OBSTACK); \
|
|
|
421 void *__obj = (void *) (OBJ); \
|
|
|
422 if (__obj > (void *) __o->chunk && __obj < (void *) __o->chunk_limit) \
|
|
|
423 __o->next_free = __o->object_base = (char *) __obj; \
|
|
|
424 else \
|
|
|
425 _obstack_free (__o, __obj); })
|
|
|
426
|
|
|
427 #else /* not __GNUC__ */
|
|
0
|
428
|
|
111
|
429 # define obstack_object_size(h) \
|
|
|
430 ((_OBSTACK_SIZE_T) ((h)->next_free - (h)->object_base))
|
|
|
431
|
|
|
432 # define obstack_room(h) \
|
|
|
433 ((_OBSTACK_SIZE_T) ((h)->chunk_limit - (h)->next_free))
|
|
0
|
434
|
|
111
|
435 # define obstack_empty_p(h) \
|
|
|
436 ((h)->chunk->prev == 0 \
|
|
|
437 && (h)->next_free == __PTR_ALIGN ((char *) (h)->chunk, \
|
|
|
438 (h)->chunk->contents, \
|
|
|
439 (h)->alignment_mask))
|
|
0
|
440
|
|
|
441 /* Note that the call to _obstack_newchunk is enclosed in (..., 0)
|
|
|
442 so that we can avoid having void expressions
|
|
|
443 in the arms of the conditional expression.
|
|
|
444 Casting the third operand to void was tried before,
|
|
|
445 but some compilers won't accept it. */
|
|
|
446
|
|
111
|
447 # define obstack_make_room(h, length) \
|
|
|
448 ((h)->temp.i = (length), \
|
|
|
449 ((obstack_room (h) < (h)->temp.i) \
|
|
|
450 ? (_obstack_newchunk (h, (h)->temp.i), 0) : 0), \
|
|
|
451 (void) 0)
|
|
0
|
452
|
|
111
|
453 # define obstack_grow(h, where, length) \
|
|
|
454 ((h)->temp.i = (length), \
|
|
|
455 ((obstack_room (h) < (h)->temp.i) \
|
|
|
456 ? (_obstack_newchunk ((h), (h)->temp.i), 0) : 0), \
|
|
|
457 memcpy ((h)->next_free, where, (h)->temp.i), \
|
|
|
458 (h)->next_free += (h)->temp.i, \
|
|
|
459 (void) 0)
|
|
0
|
460
|
|
111
|
461 # define obstack_grow0(h, where, length) \
|
|
|
462 ((h)->temp.i = (length), \
|
|
|
463 ((obstack_room (h) < (h)->temp.i + 1) \
|
|
|
464 ? (_obstack_newchunk ((h), (h)->temp.i + 1), 0) : 0), \
|
|
|
465 memcpy ((h)->next_free, where, (h)->temp.i), \
|
|
|
466 (h)->next_free += (h)->temp.i, \
|
|
|
467 *((h)->next_free)++ = 0, \
|
|
|
468 (void) 0)
|
|
0
|
469
|
|
111
|
470 # define obstack_1grow(h, datum) \
|
|
|
471 (((obstack_room (h) < 1) \
|
|
|
472 ? (_obstack_newchunk ((h), 1), 0) : 0), \
|
|
|
473 obstack_1grow_fast (h, datum))
|
|
0
|
474
|
|
111
|
475 # define obstack_ptr_grow(h, datum) \
|
|
|
476 (((obstack_room (h) < sizeof (char *)) \
|
|
|
477 ? (_obstack_newchunk ((h), sizeof (char *)), 0) : 0), \
|
|
|
478 obstack_ptr_grow_fast (h, datum))
|
|
0
|
479
|
|
111
|
480 # define obstack_int_grow(h, datum) \
|
|
|
481 (((obstack_room (h) < sizeof (int)) \
|
|
|
482 ? (_obstack_newchunk ((h), sizeof (int)), 0) : 0), \
|
|
|
483 obstack_int_grow_fast (h, datum))
|
|
0
|
484
|
|
111
|
485 # define obstack_ptr_grow_fast(h, aptr) \
|
|
|
486 (((const void **) ((h)->next_free += sizeof (void *)))[-1] = (aptr), \
|
|
|
487 (void) 0)
|
|
0
|
488
|
|
111
|
489 # define obstack_int_grow_fast(h, aint) \
|
|
|
490 (((int *) ((h)->next_free += sizeof (int)))[-1] = (aint), \
|
|
|
491 (void) 0)
|
|
0
|
492
|
|
111
|
493 # define obstack_blank(h, length) \
|
|
|
494 ((h)->temp.i = (length), \
|
|
|
495 ((obstack_room (h) < (h)->temp.i) \
|
|
|
496 ? (_obstack_newchunk ((h), (h)->temp.i), 0) : 0), \
|
|
|
497 obstack_blank_fast (h, (h)->temp.i))
|
|
0
|
498
|
|
111
|
499 # define obstack_alloc(h, length) \
|
|
|
500 (obstack_blank ((h), (length)), obstack_finish ((h)))
|
|
0
|
501
|
|
111
|
502 # define obstack_copy(h, where, length) \
|
|
|
503 (obstack_grow ((h), (where), (length)), obstack_finish ((h)))
|
|
|
504
|
|
|
505 # define obstack_copy0(h, where, length) \
|
|
|
506 (obstack_grow0 ((h), (where), (length)), obstack_finish ((h)))
|
|
0
|
507
|
|
111
|
508 # define obstack_finish(h) \
|
|
|
509 (((h)->next_free == (h)->object_base \
|
|
|
510 ? (((h)->maybe_empty_object = 1), 0) \
|
|
|
511 : 0), \
|
|
|
512 (h)->temp.p = (h)->object_base, \
|
|
|
513 (h)->next_free \
|
|
|
514 = __PTR_ALIGN ((h)->object_base, (h)->next_free, \
|
|
|
515 (h)->alignment_mask), \
|
|
|
516 (((size_t) ((h)->next_free - (char *) (h)->chunk) \
|
|
|
517 > (size_t) ((h)->chunk_limit - (char *) (h)->chunk)) \
|
|
|
518 ? ((h)->next_free = (h)->chunk_limit) : 0), \
|
|
|
519 (h)->object_base = (h)->next_free, \
|
|
|
520 (h)->temp.p)
|
|
0
|
521
|
|
111
|
522 # define obstack_free(h, obj) \
|
|
|
523 ((h)->temp.p = (void *) (obj), \
|
|
|
524 (((h)->temp.p > (void *) (h)->chunk \
|
|
|
525 && (h)->temp.p < (void *) (h)->chunk_limit) \
|
|
|
526 ? (void) ((h)->next_free = (h)->object_base = (char *) (h)->temp.p) \
|
|
|
527 : _obstack_free ((h), (h)->temp.p)))
|
|
0
|
528
|
|
111
|
529 #endif /* not __GNUC__ */
|
|
0
|
530
|
|
|
531 #ifdef __cplusplus
|
|
111
|
532 } /* C++ */
|
|
0
|
533 #endif
|
|
|
534
|
|
111
|
535 #endif /* _OBSTACK_H */
|
