1 /* Vector API for GNU compiler.
2 Copyright (C) 2004 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, 59 Temple Place - Suite 330, Boston, MA
27 #include "coretypes.h"
37 /* Ensure there are at least RESERVE free slots in VEC, if RESERVE !=
38 ~0u. If RESERVE == ~0u increase the current allocation
39 exponentially. VEC can be NULL, to create a new vector. */
42 vec_p_reserve (void *vec
, size_t reserve MEM_STAT_DECL
)
44 return vec_o_reserve (vec
, reserve
,
45 offsetof (struct vec_prefix
, vec
), sizeof (void *)
49 /* Ensure there are at least RESERVE free slots in VEC, if RESERVE !=
50 ~0u. If RESERVE == ~0u, increase the current allocation
51 exponentially. VEC can be NULL, in which case a new vector is
52 created. The vector's trailing array is at VEC_OFFSET offset and
53 consistes of ELT_SIZE sized elements. */
56 vec_o_reserve (void *vec
, size_t reserve
, size_t vec_offset
, size_t elt_size
59 struct vec_prefix
*pfx
= vec
;
63 alloc
= (pfx
? pfx
->num
: 0) + reserve
;
65 alloc
= pfx
? pfx
->alloc
* 2 : 4;
67 if (!pfx
|| pfx
->alloc
< alloc
)
69 vec
= ggc_realloc_stat (vec
, vec_offset
+ alloc
* elt_size
71 ((struct vec_prefix
*)vec
)->alloc
= alloc
;
73 ((struct vec_prefix
*)vec
)->num
= 0;
80 /* Issue a vector domain error, and then fall over. */
83 vec_assert_fail (const char *op
, const char *struct_name
,
84 const char *file
, size_t line
, const char *function
)
86 internal_error ("vector %s %s domain error, in %s at %s:%u",
87 struct_name
, op
, function
, function
,
88 trim_filename (file
), line
);