1 /* Vector API for GNU compiler.
2 Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
3 Contributed by Nathan Sidwell <nathan@codesourcery.com>
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING. If not, write to the Free
19 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
22 /* This file is compiled twice: once for the generator programs
23 once for the compiler. */
33 #include "coretypes.h"
43 /* Calculate the new ALLOC value, making sure that abs(RESERVE) slots
44 are free. If RESERVE < 0 grow exactly, otherwise grow
47 static inline unsigned
48 calculate_allocation (const struct vec_prefix
*pfx
, int reserve
)
59 /* If there's no prefix, and we've not requested anything, then we
60 will create a NULL vector. */
63 /* We must have run out of room. */
64 gcc_assert (alloc
- num
< (unsigned)(reserve
< 0 ? -reserve
: reserve
));
68 alloc
= num
+ -reserve
;
71 /* Exponential growth. */
75 /* Double when small. */
78 /* Grow slower when large. */
79 alloc
= (alloc
* 3 / 2);
81 /* If this is still too small, set it to the right size. */
82 if (alloc
< num
+ reserve
)
83 alloc
= num
+ reserve
;
88 /* Ensure there are at least abs(RESERVE) free slots in VEC. If
89 RESERVE < 0 grow exactly, else grow exponentially. As a special
90 case, if VEC is NULL, and RESERVE is 0, no vector will be created. */
93 vec_gc_p_reserve (void *vec
, int reserve MEM_STAT_DECL
)
95 return vec_gc_o_reserve (vec
, reserve
,
96 offsetof (struct vec_prefix
, vec
), sizeof (void *)
100 /* As vec_gc_p_reserve, but for object vectors. The vector's trailing
101 array is at VEC_OFFSET offset and consists of ELT_SIZE sized
105 vec_gc_o_reserve (void *vec
, int reserve
, size_t vec_offset
, size_t elt_size
108 struct vec_prefix
*pfx
= vec
;
109 unsigned alloc
= alloc
= calculate_allocation (pfx
, reserve
);
114 vec
= ggc_realloc_stat (vec
, vec_offset
+ alloc
* elt_size PASS_MEM_STAT
);
115 ((struct vec_prefix
*)vec
)->alloc
= alloc
;
117 ((struct vec_prefix
*)vec
)->num
= 0;
122 /* As for vec_gc_p_reserve, but for heap allocated vectors. */
125 vec_heap_p_reserve (void *vec
, int reserve MEM_STAT_DECL
)
127 return vec_heap_o_reserve (vec
, reserve
,
128 offsetof (struct vec_prefix
, vec
), sizeof (void *)
132 /* As for vec_gc_o_reserve, but for heap allocated vectors. */
135 vec_heap_o_reserve (void *vec
, int reserve
, size_t vec_offset
, size_t elt_size
138 struct vec_prefix
*pfx
= vec
;
139 unsigned alloc
= calculate_allocation (pfx
, reserve
);
144 vec
= xrealloc (vec
, vec_offset
+ alloc
* elt_size
);
145 ((struct vec_prefix
*)vec
)->alloc
= alloc
;
147 ((struct vec_prefix
*)vec
)->num
= 0;
153 /* Issue a vector domain error, and then fall over. */
156 vec_assert_fail (const char *op
, const char *struct_name
,
157 const char *file
, unsigned int line
, const char *function
)
159 internal_error ("vector %s %s domain error, in %s at %s:%u",
160 struct_name
, op
, function
, trim_filename (file
), line
);