aboutsummaryrefslogtreecommitdiff
path: root/gcc/vec.c
blob: 45acc84803b35409319a10b30dcfa0ec1cf92666 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
/* Vector API for GNU compiler.
   Copyright (C) 2004 Free Software Foundation, Inc.
   Contributed by Nathan Sidwell <nathan@codesourcery.com>

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.

GCC 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 General Public License
for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING.  If not, write to the Free
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.  */

#include "config.h"
#include "system.h"
#include "ggc.h"
#include "vec.h"
#include "errors.h"
#include "coretypes.h"
#include "tree.h"

struct vec_prefix 
{
  size_t num;
  size_t alloc;
  void *vec[1];
};

/* Ensure there are at least RESERVE free slots in VEC, if RESERVE >=
   0.  If RESERVE < 0 increase the current allocation exponentially.
   VEC can be NULL, to create a new vector.  */

void *
vec_p_reserve (void *vec, int reserve MEM_STAT_DECL)
{
  return vec_o_reserve (vec, reserve,
			offsetof (struct vec_prefix, vec), sizeof (void *)
			PASS_MEM_STAT);
}

/* Ensure there are at least RESERVE free slots in VEC, if RESERVE >=
   0.  If RESERVE < 0, increase the current allocation exponentially.
   VEC can be NULL, in which case a new vector is created.  The
   vector's trailing array is at VEC_OFFSET offset and consistes of
   ELT_SIZE sized elements.  */

void *
vec_o_reserve (void *vec, int reserve, size_t vec_offset, size_t elt_size
	       MEM_STAT_DECL)
{
  struct vec_prefix *pfx = vec;
  size_t alloc = pfx ? pfx->num : 0;

  if (reserve >= 0)
    alloc += reserve;
  else if (alloc)
    alloc *= 2;
  else
    alloc = 4;

  if (pfx && pfx->alloc >= alloc)
    abort ();
  
  vec = ggc_realloc_stat (vec, vec_offset + alloc * elt_size PASS_MEM_STAT);
  ((struct vec_prefix *)vec)->alloc = alloc;
  if (!pfx)
    ((struct vec_prefix *)vec)->num = 0;
  
  return vec;
}

#if ENABLE_CHECKING
/* Issue a vector domain error, and then fall over.  */

void
vec_assert_fail (const char *op, const char *struct_name,
		 const char *file, unsigned int line, const char *function)
{
  internal_error ("vector %s %s domain error, in %s at %s:%u",
		  struct_name, op, function, trim_filename (file), line);
}
#endif