annotate libcxxabi/src/cxa_vector.cpp @ 209:dd44ba33042e

merged...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 08 Jun 2021 06:36:09 +0900
parents 0572611fdcc8
children c4bab56944e8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===-------------------------- cxa_vector.cpp ---------------------------===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //
anatofuz
parents:
diff changeset
8 // This file implements the "Array Construction and Destruction APIs"
anatofuz
parents:
diff changeset
9 // https://itanium-cxx-abi.github.io/cxx-abi/abi.html#array-ctor
anatofuz
parents:
diff changeset
10 //
anatofuz
parents:
diff changeset
11 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
12
anatofuz
parents:
diff changeset
13 #include "cxxabi.h"
anatofuz
parents:
diff changeset
14 #include "__cxxabi_config.h"
anatofuz
parents:
diff changeset
15
anatofuz
parents:
diff changeset
16 #include <exception> // for std::terminate
anatofuz
parents:
diff changeset
17 #include <new> // for std::bad_array_new_length
anatofuz
parents:
diff changeset
18
anatofuz
parents:
diff changeset
19 #include "abort_message.h"
anatofuz
parents:
diff changeset
20
anatofuz
parents:
diff changeset
21 #ifndef __has_builtin
anatofuz
parents:
diff changeset
22 #define __has_builtin(x) 0
anatofuz
parents:
diff changeset
23 #endif
anatofuz
parents:
diff changeset
24
anatofuz
parents:
diff changeset
25 namespace __cxxabiv1 {
anatofuz
parents:
diff changeset
26
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
27 //
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
28 // Helper routines and classes
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
29 //
150
anatofuz
parents:
diff changeset
30
anatofuz
parents:
diff changeset
31 namespace {
anatofuz
parents:
diff changeset
32 inline static size_t __get_element_count ( void *p ) {
anatofuz
parents:
diff changeset
33 return static_cast <size_t *> (p)[-1];
anatofuz
parents:
diff changeset
34 }
anatofuz
parents:
diff changeset
35
anatofuz
parents:
diff changeset
36 inline static void __set_element_count ( void *p, size_t element_count ) {
anatofuz
parents:
diff changeset
37 static_cast <size_t *> (p)[-1] = element_count;
anatofuz
parents:
diff changeset
38 }
anatofuz
parents:
diff changeset
39
anatofuz
parents:
diff changeset
40
anatofuz
parents:
diff changeset
41 // A pair of classes to simplify exception handling and control flow.
anatofuz
parents:
diff changeset
42 // They get passed a block of memory in the constructor, and unless the
anatofuz
parents:
diff changeset
43 // 'release' method is called, they deallocate the memory in the destructor.
anatofuz
parents:
diff changeset
44 // Preferred usage is to allocate some memory, attach it to one of these objects,
anatofuz
parents:
diff changeset
45 // and then, when all the operations to set up the memory block have succeeded,
anatofuz
parents:
diff changeset
46 // call 'release'. If any of the setup operations fail, or an exception is
anatofuz
parents:
diff changeset
47 // thrown, then the block is automatically deallocated.
anatofuz
parents:
diff changeset
48 //
anatofuz
parents:
diff changeset
49 // The only difference between these two classes is the signature for the
anatofuz
parents:
diff changeset
50 // deallocation function (to match new2/new3 and delete2/delete3.
anatofuz
parents:
diff changeset
51 class st_heap_block2 {
anatofuz
parents:
diff changeset
52 public:
anatofuz
parents:
diff changeset
53 typedef void (*dealloc_f)(void *);
anatofuz
parents:
diff changeset
54
anatofuz
parents:
diff changeset
55 st_heap_block2 ( dealloc_f dealloc, void *ptr )
anatofuz
parents:
diff changeset
56 : dealloc_ ( dealloc ), ptr_ ( ptr ), enabled_ ( true ) {}
anatofuz
parents:
diff changeset
57 ~st_heap_block2 () { if ( enabled_ ) dealloc_ ( ptr_ ) ; }
anatofuz
parents:
diff changeset
58 void release () { enabled_ = false; }
anatofuz
parents:
diff changeset
59
anatofuz
parents:
diff changeset
60 private:
anatofuz
parents:
diff changeset
61 dealloc_f dealloc_;
anatofuz
parents:
diff changeset
62 void *ptr_;
anatofuz
parents:
diff changeset
63 bool enabled_;
anatofuz
parents:
diff changeset
64 };
anatofuz
parents:
diff changeset
65
anatofuz
parents:
diff changeset
66 class st_heap_block3 {
anatofuz
parents:
diff changeset
67 public:
anatofuz
parents:
diff changeset
68 typedef void (*dealloc_f)(void *, size_t);
anatofuz
parents:
diff changeset
69
anatofuz
parents:
diff changeset
70 st_heap_block3 ( dealloc_f dealloc, void *ptr, size_t size )
anatofuz
parents:
diff changeset
71 : dealloc_ ( dealloc ), ptr_ ( ptr ), size_ ( size ), enabled_ ( true ) {}
anatofuz
parents:
diff changeset
72 ~st_heap_block3 () { if ( enabled_ ) dealloc_ ( ptr_, size_ ) ; }
anatofuz
parents:
diff changeset
73 void release () { enabled_ = false; }
anatofuz
parents:
diff changeset
74
anatofuz
parents:
diff changeset
75 private:
anatofuz
parents:
diff changeset
76 dealloc_f dealloc_;
anatofuz
parents:
diff changeset
77 void *ptr_;
anatofuz
parents:
diff changeset
78 size_t size_;
anatofuz
parents:
diff changeset
79 bool enabled_;
anatofuz
parents:
diff changeset
80 };
anatofuz
parents:
diff changeset
81
anatofuz
parents:
diff changeset
82 class st_cxa_cleanup {
anatofuz
parents:
diff changeset
83 public:
anatofuz
parents:
diff changeset
84 typedef void (*destruct_f)(void *);
anatofuz
parents:
diff changeset
85
anatofuz
parents:
diff changeset
86 st_cxa_cleanup ( void *ptr, size_t &idx, size_t element_size, destruct_f destructor )
anatofuz
parents:
diff changeset
87 : ptr_ ( ptr ), idx_ ( idx ), element_size_ ( element_size ),
anatofuz
parents:
diff changeset
88 destructor_ ( destructor ), enabled_ ( true ) {}
anatofuz
parents:
diff changeset
89 ~st_cxa_cleanup () {
anatofuz
parents:
diff changeset
90 if ( enabled_ )
anatofuz
parents:
diff changeset
91 __cxa_vec_cleanup ( ptr_, idx_, element_size_, destructor_ );
anatofuz
parents:
diff changeset
92 }
anatofuz
parents:
diff changeset
93
anatofuz
parents:
diff changeset
94 void release () { enabled_ = false; }
anatofuz
parents:
diff changeset
95
anatofuz
parents:
diff changeset
96 private:
anatofuz
parents:
diff changeset
97 void *ptr_;
anatofuz
parents:
diff changeset
98 size_t &idx_;
anatofuz
parents:
diff changeset
99 size_t element_size_;
anatofuz
parents:
diff changeset
100 destruct_f destructor_;
anatofuz
parents:
diff changeset
101 bool enabled_;
anatofuz
parents:
diff changeset
102 };
anatofuz
parents:
diff changeset
103
anatofuz
parents:
diff changeset
104 class st_terminate {
anatofuz
parents:
diff changeset
105 public:
anatofuz
parents:
diff changeset
106 st_terminate ( bool enabled = true ) : enabled_ ( enabled ) {}
anatofuz
parents:
diff changeset
107 ~st_terminate () { if ( enabled_ ) std::terminate (); }
anatofuz
parents:
diff changeset
108 void release () { enabled_ = false; }
anatofuz
parents:
diff changeset
109 private:
anatofuz
parents:
diff changeset
110 bool enabled_ ;
anatofuz
parents:
diff changeset
111 };
anatofuz
parents:
diff changeset
112 }
anatofuz
parents:
diff changeset
113
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
114 //
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
115 // Externally visible routines
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
116 //
150
anatofuz
parents:
diff changeset
117
anatofuz
parents:
diff changeset
118 namespace {
anatofuz
parents:
diff changeset
119 _LIBCXXABI_NORETURN
anatofuz
parents:
diff changeset
120 void throw_bad_array_new_length() {
anatofuz
parents:
diff changeset
121 #ifndef _LIBCXXABI_NO_EXCEPTIONS
anatofuz
parents:
diff changeset
122 throw std::bad_array_new_length();
anatofuz
parents:
diff changeset
123 #else
anatofuz
parents:
diff changeset
124 abort_message("__cxa_vec_new failed to allocate memory");
anatofuz
parents:
diff changeset
125 #endif
anatofuz
parents:
diff changeset
126 }
anatofuz
parents:
diff changeset
127
anatofuz
parents:
diff changeset
128 bool mul_overflow(size_t x, size_t y, size_t *res) {
anatofuz
parents:
diff changeset
129 #if (defined(_LIBCXXABI_COMPILER_CLANG) && __has_builtin(__builtin_mul_overflow)) \
anatofuz
parents:
diff changeset
130 || defined(_LIBCXXABI_COMPILER_GCC)
anatofuz
parents:
diff changeset
131 return __builtin_mul_overflow(x, y, res);
anatofuz
parents:
diff changeset
132 #else
anatofuz
parents:
diff changeset
133 *res = x * y;
anatofuz
parents:
diff changeset
134 return x && ((*res / x) != y);
anatofuz
parents:
diff changeset
135 #endif
anatofuz
parents:
diff changeset
136 }
anatofuz
parents:
diff changeset
137
anatofuz
parents:
diff changeset
138 bool add_overflow(size_t x, size_t y, size_t *res) {
anatofuz
parents:
diff changeset
139 #if (defined(_LIBCXXABI_COMPILER_CLANG) && __has_builtin(__builtin_add_overflow)) \
anatofuz
parents:
diff changeset
140 || defined(_LIBCXXABI_COMPILER_GCC)
anatofuz
parents:
diff changeset
141 return __builtin_add_overflow(x, y, res);
anatofuz
parents:
diff changeset
142 #else
anatofuz
parents:
diff changeset
143 *res = x + y;
anatofuz
parents:
diff changeset
144 return *res < y;
anatofuz
parents:
diff changeset
145 #endif
anatofuz
parents:
diff changeset
146 }
anatofuz
parents:
diff changeset
147
anatofuz
parents:
diff changeset
148 size_t calculate_allocation_size_or_throw(size_t element_count,
anatofuz
parents:
diff changeset
149 size_t element_size,
anatofuz
parents:
diff changeset
150 size_t padding_size) {
anatofuz
parents:
diff changeset
151 size_t element_heap_size;
anatofuz
parents:
diff changeset
152 if (mul_overflow(element_count, element_size, &element_heap_size))
anatofuz
parents:
diff changeset
153 throw_bad_array_new_length();
anatofuz
parents:
diff changeset
154
anatofuz
parents:
diff changeset
155 size_t allocation_size;
anatofuz
parents:
diff changeset
156 if (add_overflow(element_heap_size, padding_size, &allocation_size))
anatofuz
parents:
diff changeset
157 throw_bad_array_new_length();
anatofuz
parents:
diff changeset
158
anatofuz
parents:
diff changeset
159 return allocation_size;
anatofuz
parents:
diff changeset
160 }
anatofuz
parents:
diff changeset
161
anatofuz
parents:
diff changeset
162 } // namespace
anatofuz
parents:
diff changeset
163
anatofuz
parents:
diff changeset
164 extern "C" {
anatofuz
parents:
diff changeset
165
anatofuz
parents:
diff changeset
166 // Equivalent to
anatofuz
parents:
diff changeset
167 //
anatofuz
parents:
diff changeset
168 // __cxa_vec_new2(element_count, element_size, padding_size, constructor,
anatofuz
parents:
diff changeset
169 // destructor, &::operator new[], &::operator delete[])
anatofuz
parents:
diff changeset
170 _LIBCXXABI_FUNC_VIS void *
anatofuz
parents:
diff changeset
171 __cxa_vec_new(size_t element_count, size_t element_size, size_t padding_size,
anatofuz
parents:
diff changeset
172 void (*constructor)(void *), void (*destructor)(void *)) {
anatofuz
parents:
diff changeset
173 return __cxa_vec_new2 ( element_count, element_size, padding_size,
anatofuz
parents:
diff changeset
174 constructor, destructor, &::operator new [], &::operator delete [] );
anatofuz
parents:
diff changeset
175 }
anatofuz
parents:
diff changeset
176
anatofuz
parents:
diff changeset
177
anatofuz
parents:
diff changeset
178 // Given the number and size of elements for an array and the non-negative
anatofuz
parents:
diff changeset
179 // size of prefix padding for a cookie, allocate space (using alloc) for
anatofuz
parents:
diff changeset
180 // the array preceded by the specified padding, initialize the cookie if
anatofuz
parents:
diff changeset
181 // the padding is non-zero, and call the given constructor on each element.
anatofuz
parents:
diff changeset
182 // Return the address of the array proper, after the padding.
anatofuz
parents:
diff changeset
183 //
anatofuz
parents:
diff changeset
184 // If alloc throws an exception, rethrow the exception. If alloc returns
anatofuz
parents:
diff changeset
185 // NULL, return NULL. If the constructor throws an exception, call
anatofuz
parents:
diff changeset
186 // destructor for any already constructed elements, and rethrow the
anatofuz
parents:
diff changeset
187 // exception. If the destructor throws an exception, call std::terminate.
anatofuz
parents:
diff changeset
188 //
anatofuz
parents:
diff changeset
189 // The constructor may be NULL, in which case it must not be called. If the
anatofuz
parents:
diff changeset
190 // padding_size is zero, the destructor may be NULL; in that case it must
anatofuz
parents:
diff changeset
191 // not be called.
anatofuz
parents:
diff changeset
192 //
anatofuz
parents:
diff changeset
193 // Neither alloc nor dealloc may be NULL.
anatofuz
parents:
diff changeset
194 _LIBCXXABI_FUNC_VIS void *
anatofuz
parents:
diff changeset
195 __cxa_vec_new2(size_t element_count, size_t element_size, size_t padding_size,
anatofuz
parents:
diff changeset
196 void (*constructor)(void *), void (*destructor)(void *),
anatofuz
parents:
diff changeset
197 void *(*alloc)(size_t), void (*dealloc)(void *)) {
anatofuz
parents:
diff changeset
198 const size_t heap_size = calculate_allocation_size_or_throw(
anatofuz
parents:
diff changeset
199 element_count, element_size, padding_size);
anatofuz
parents:
diff changeset
200 char* const heap_block = static_cast<char*>(alloc(heap_size));
anatofuz
parents:
diff changeset
201 char* vec_base = heap_block;
anatofuz
parents:
diff changeset
202
anatofuz
parents:
diff changeset
203 if (NULL != vec_base) {
anatofuz
parents:
diff changeset
204 st_heap_block2 heap(dealloc, heap_block);
anatofuz
parents:
diff changeset
205
anatofuz
parents:
diff changeset
206 // put the padding before the array elements
anatofuz
parents:
diff changeset
207 if ( 0 != padding_size ) {
anatofuz
parents:
diff changeset
208 vec_base += padding_size;
anatofuz
parents:
diff changeset
209 __set_element_count ( vec_base, element_count );
anatofuz
parents:
diff changeset
210 }
anatofuz
parents:
diff changeset
211
anatofuz
parents:
diff changeset
212 // Construct the elements
anatofuz
parents:
diff changeset
213 __cxa_vec_ctor ( vec_base, element_count, element_size, constructor, destructor );
anatofuz
parents:
diff changeset
214 heap.release (); // We're good!
anatofuz
parents:
diff changeset
215 }
anatofuz
parents:
diff changeset
216
anatofuz
parents:
diff changeset
217 return vec_base;
anatofuz
parents:
diff changeset
218 }
anatofuz
parents:
diff changeset
219
anatofuz
parents:
diff changeset
220
anatofuz
parents:
diff changeset
221 // Same as __cxa_vec_new2 except that the deallocation function takes both
anatofuz
parents:
diff changeset
222 // the object address and its size.
anatofuz
parents:
diff changeset
223 _LIBCXXABI_FUNC_VIS void *
anatofuz
parents:
diff changeset
224 __cxa_vec_new3(size_t element_count, size_t element_size, size_t padding_size,
anatofuz
parents:
diff changeset
225 void (*constructor)(void *), void (*destructor)(void *),
anatofuz
parents:
diff changeset
226 void *(*alloc)(size_t), void (*dealloc)(void *, size_t)) {
anatofuz
parents:
diff changeset
227 const size_t heap_size = calculate_allocation_size_or_throw(
anatofuz
parents:
diff changeset
228 element_count, element_size, padding_size);
anatofuz
parents:
diff changeset
229 char* const heap_block = static_cast<char*>(alloc(heap_size));
anatofuz
parents:
diff changeset
230 char* vec_base = heap_block;
anatofuz
parents:
diff changeset
231
anatofuz
parents:
diff changeset
232 if (NULL != vec_base) {
anatofuz
parents:
diff changeset
233 st_heap_block3 heap(dealloc, heap_block, heap_size);
anatofuz
parents:
diff changeset
234
anatofuz
parents:
diff changeset
235 // put the padding before the array elements
anatofuz
parents:
diff changeset
236 if ( 0 != padding_size ) {
anatofuz
parents:
diff changeset
237 vec_base += padding_size;
anatofuz
parents:
diff changeset
238 __set_element_count ( vec_base, element_count );
anatofuz
parents:
diff changeset
239 }
anatofuz
parents:
diff changeset
240
anatofuz
parents:
diff changeset
241 // Construct the elements
anatofuz
parents:
diff changeset
242 __cxa_vec_ctor ( vec_base, element_count, element_size, constructor, destructor );
anatofuz
parents:
diff changeset
243 heap.release (); // We're good!
anatofuz
parents:
diff changeset
244 }
anatofuz
parents:
diff changeset
245
anatofuz
parents:
diff changeset
246 return vec_base;
anatofuz
parents:
diff changeset
247 }
anatofuz
parents:
diff changeset
248
anatofuz
parents:
diff changeset
249
anatofuz
parents:
diff changeset
250 // Given the (data) addresses of a destination and a source array, an
anatofuz
parents:
diff changeset
251 // element count and an element size, call the given copy constructor to
anatofuz
parents:
diff changeset
252 // copy each element from the source array to the destination array. The
anatofuz
parents:
diff changeset
253 // copy constructor's arguments are the destination address and source
anatofuz
parents:
diff changeset
254 // address, respectively. If an exception occurs, call the given destructor
anatofuz
parents:
diff changeset
255 // (if non-NULL) on each copied element and rethrow. If the destructor
anatofuz
parents:
diff changeset
256 // throws an exception, call terminate(). The constructor and or destructor
anatofuz
parents:
diff changeset
257 // pointers may be NULL. If either is NULL, no action is taken when it
anatofuz
parents:
diff changeset
258 // would have been called.
anatofuz
parents:
diff changeset
259
anatofuz
parents:
diff changeset
260 _LIBCXXABI_FUNC_VIS void __cxa_vec_cctor(void *dest_array, void *src_array,
anatofuz
parents:
diff changeset
261 size_t element_count,
anatofuz
parents:
diff changeset
262 size_t element_size,
anatofuz
parents:
diff changeset
263 void (*constructor)(void *, void *),
anatofuz
parents:
diff changeset
264 void (*destructor)(void *)) {
anatofuz
parents:
diff changeset
265 if ( NULL != constructor ) {
anatofuz
parents:
diff changeset
266 size_t idx = 0;
anatofuz
parents:
diff changeset
267 char *src_ptr = static_cast<char *>(src_array);
anatofuz
parents:
diff changeset
268 char *dest_ptr = static_cast<char *>(dest_array);
anatofuz
parents:
diff changeset
269 st_cxa_cleanup cleanup ( dest_array, idx, element_size, destructor );
anatofuz
parents:
diff changeset
270
anatofuz
parents:
diff changeset
271 for ( idx = 0; idx < element_count;
anatofuz
parents:
diff changeset
272 ++idx, src_ptr += element_size, dest_ptr += element_size )
anatofuz
parents:
diff changeset
273 constructor ( dest_ptr, src_ptr );
anatofuz
parents:
diff changeset
274 cleanup.release (); // We're good!
anatofuz
parents:
diff changeset
275 }
anatofuz
parents:
diff changeset
276 }
anatofuz
parents:
diff changeset
277
anatofuz
parents:
diff changeset
278
anatofuz
parents:
diff changeset
279 // Given the (data) address of an array, not including any cookie padding,
anatofuz
parents:
diff changeset
280 // and the number and size of its elements, call the given constructor on
anatofuz
parents:
diff changeset
281 // each element. If the constructor throws an exception, call the given
anatofuz
parents:
diff changeset
282 // destructor for any already-constructed elements, and rethrow the
anatofuz
parents:
diff changeset
283 // exception. If the destructor throws an exception, call terminate(). The
anatofuz
parents:
diff changeset
284 // constructor and/or destructor pointers may be NULL. If either is NULL,
anatofuz
parents:
diff changeset
285 // no action is taken when it would have been called.
anatofuz
parents:
diff changeset
286 _LIBCXXABI_FUNC_VIS void
anatofuz
parents:
diff changeset
287 __cxa_vec_ctor(void *array_address, size_t element_count, size_t element_size,
anatofuz
parents:
diff changeset
288 void (*constructor)(void *), void (*destructor)(void *)) {
anatofuz
parents:
diff changeset
289 if ( NULL != constructor ) {
anatofuz
parents:
diff changeset
290 size_t idx;
anatofuz
parents:
diff changeset
291 char *ptr = static_cast <char *> ( array_address );
anatofuz
parents:
diff changeset
292 st_cxa_cleanup cleanup ( array_address, idx, element_size, destructor );
anatofuz
parents:
diff changeset
293
anatofuz
parents:
diff changeset
294 // Construct the elements
anatofuz
parents:
diff changeset
295 for ( idx = 0; idx < element_count; ++idx, ptr += element_size )
anatofuz
parents:
diff changeset
296 constructor ( ptr );
anatofuz
parents:
diff changeset
297 cleanup.release (); // We're good!
anatofuz
parents:
diff changeset
298 }
anatofuz
parents:
diff changeset
299 }
anatofuz
parents:
diff changeset
300
anatofuz
parents:
diff changeset
301 // Given the (data) address of an array, the number of elements, and the
anatofuz
parents:
diff changeset
302 // size of its elements, call the given destructor on each element. If the
anatofuz
parents:
diff changeset
303 // destructor throws an exception, rethrow after destroying the remaining
anatofuz
parents:
diff changeset
304 // elements if possible. If the destructor throws a second exception, call
anatofuz
parents:
diff changeset
305 // terminate(). The destructor pointer may be NULL, in which case this
anatofuz
parents:
diff changeset
306 // routine does nothing.
anatofuz
parents:
diff changeset
307 _LIBCXXABI_FUNC_VIS void __cxa_vec_dtor(void *array_address,
anatofuz
parents:
diff changeset
308 size_t element_count,
anatofuz
parents:
diff changeset
309 size_t element_size,
anatofuz
parents:
diff changeset
310 void (*destructor)(void *)) {
anatofuz
parents:
diff changeset
311 if ( NULL != destructor ) {
anatofuz
parents:
diff changeset
312 char *ptr = static_cast <char *> (array_address);
anatofuz
parents:
diff changeset
313 size_t idx = element_count;
anatofuz
parents:
diff changeset
314 st_cxa_cleanup cleanup ( array_address, idx, element_size, destructor );
anatofuz
parents:
diff changeset
315 {
anatofuz
parents:
diff changeset
316 st_terminate exception_guard (__cxa_uncaught_exception ());
anatofuz
parents:
diff changeset
317 ptr += element_count * element_size; // one past the last element
anatofuz
parents:
diff changeset
318
anatofuz
parents:
diff changeset
319 while ( idx-- > 0 ) {
anatofuz
parents:
diff changeset
320 ptr -= element_size;
anatofuz
parents:
diff changeset
321 destructor ( ptr );
anatofuz
parents:
diff changeset
322 }
anatofuz
parents:
diff changeset
323 exception_guard.release (); // We're good !
anatofuz
parents:
diff changeset
324 }
anatofuz
parents:
diff changeset
325 cleanup.release (); // We're still good!
anatofuz
parents:
diff changeset
326 }
anatofuz
parents:
diff changeset
327 }
anatofuz
parents:
diff changeset
328
anatofuz
parents:
diff changeset
329 // Given the (data) address of an array, the number of elements, and the
anatofuz
parents:
diff changeset
330 // size of its elements, call the given destructor on each element. If the
anatofuz
parents:
diff changeset
331 // destructor throws an exception, call terminate(). The destructor pointer
anatofuz
parents:
diff changeset
332 // may be NULL, in which case this routine does nothing.
anatofuz
parents:
diff changeset
333 _LIBCXXABI_FUNC_VIS void __cxa_vec_cleanup(void *array_address,
anatofuz
parents:
diff changeset
334 size_t element_count,
anatofuz
parents:
diff changeset
335 size_t element_size,
anatofuz
parents:
diff changeset
336 void (*destructor)(void *)) {
anatofuz
parents:
diff changeset
337 if ( NULL != destructor ) {
anatofuz
parents:
diff changeset
338 char *ptr = static_cast <char *> (array_address);
anatofuz
parents:
diff changeset
339 size_t idx = element_count;
anatofuz
parents:
diff changeset
340 st_terminate exception_guard;
anatofuz
parents:
diff changeset
341
anatofuz
parents:
diff changeset
342 ptr += element_count * element_size; // one past the last element
anatofuz
parents:
diff changeset
343 while ( idx-- > 0 ) {
anatofuz
parents:
diff changeset
344 ptr -= element_size;
anatofuz
parents:
diff changeset
345 destructor ( ptr );
anatofuz
parents:
diff changeset
346 }
anatofuz
parents:
diff changeset
347 exception_guard.release (); // We're done!
anatofuz
parents:
diff changeset
348 }
anatofuz
parents:
diff changeset
349 }
anatofuz
parents:
diff changeset
350
anatofuz
parents:
diff changeset
351
anatofuz
parents:
diff changeset
352 // If the array_address is NULL, return immediately. Otherwise, given the
anatofuz
parents:
diff changeset
353 // (data) address of an array, the non-negative size of prefix padding for
anatofuz
parents:
diff changeset
354 // the cookie, and the size of its elements, call the given destructor on
anatofuz
parents:
diff changeset
355 // each element, using the cookie to determine the number of elements, and
anatofuz
parents:
diff changeset
356 // then delete the space by calling ::operator delete[](void *). If the
anatofuz
parents:
diff changeset
357 // destructor throws an exception, rethrow after (a) destroying the
anatofuz
parents:
diff changeset
358 // remaining elements, and (b) deallocating the storage. If the destructor
anatofuz
parents:
diff changeset
359 // throws a second exception, call terminate(). If padding_size is 0, the
anatofuz
parents:
diff changeset
360 // destructor pointer must be NULL. If the destructor pointer is NULL, no
anatofuz
parents:
diff changeset
361 // destructor call is to be made.
anatofuz
parents:
diff changeset
362 //
anatofuz
parents:
diff changeset
363 // The intent of this function is to permit an implementation to call this
anatofuz
parents:
diff changeset
364 // function when confronted with an expression of the form delete[] p in
anatofuz
parents:
diff changeset
365 // the source code, provided that the default deallocation function can be
anatofuz
parents:
diff changeset
366 // used. Therefore, the semantics of this function are consistent with
anatofuz
parents:
diff changeset
367 // those required by the standard. The requirement that the deallocation
anatofuz
parents:
diff changeset
368 // function be called even if the destructor throws an exception derives
anatofuz
parents:
diff changeset
369 // from the resolution to DR 353 to the C++ standard, which was adopted in
anatofuz
parents:
diff changeset
370 // April, 2003.
anatofuz
parents:
diff changeset
371 _LIBCXXABI_FUNC_VIS void __cxa_vec_delete(void *array_address,
anatofuz
parents:
diff changeset
372 size_t element_size,
anatofuz
parents:
diff changeset
373 size_t padding_size,
anatofuz
parents:
diff changeset
374 void (*destructor)(void *)) {
anatofuz
parents:
diff changeset
375 __cxa_vec_delete2 ( array_address, element_size, padding_size,
anatofuz
parents:
diff changeset
376 destructor, &::operator delete [] );
anatofuz
parents:
diff changeset
377 }
anatofuz
parents:
diff changeset
378
anatofuz
parents:
diff changeset
379 // Same as __cxa_vec_delete, except that the given function is used for
anatofuz
parents:
diff changeset
380 // deallocation instead of the default delete function. If dealloc throws
anatofuz
parents:
diff changeset
381 // an exception, the result is undefined. The dealloc pointer may not be
anatofuz
parents:
diff changeset
382 // NULL.
anatofuz
parents:
diff changeset
383 _LIBCXXABI_FUNC_VIS void
anatofuz
parents:
diff changeset
384 __cxa_vec_delete2(void *array_address, size_t element_size, size_t padding_size,
anatofuz
parents:
diff changeset
385 void (*destructor)(void *), void (*dealloc)(void *)) {
anatofuz
parents:
diff changeset
386 if ( NULL != array_address ) {
anatofuz
parents:
diff changeset
387 char *vec_base = static_cast <char *> (array_address);
anatofuz
parents:
diff changeset
388 char *heap_block = vec_base - padding_size;
anatofuz
parents:
diff changeset
389 st_heap_block2 heap ( dealloc, heap_block );
anatofuz
parents:
diff changeset
390
anatofuz
parents:
diff changeset
391 if ( 0 != padding_size && NULL != destructor ) // call the destructors
anatofuz
parents:
diff changeset
392 __cxa_vec_dtor ( array_address, __get_element_count ( vec_base ),
anatofuz
parents:
diff changeset
393 element_size, destructor );
anatofuz
parents:
diff changeset
394 }
anatofuz
parents:
diff changeset
395 }
anatofuz
parents:
diff changeset
396
anatofuz
parents:
diff changeset
397
anatofuz
parents:
diff changeset
398 // Same as __cxa_vec_delete, except that the given function is used for
anatofuz
parents:
diff changeset
399 // deallocation instead of the default delete function. The deallocation
anatofuz
parents:
diff changeset
400 // function takes both the object address and its size. If dealloc throws
anatofuz
parents:
diff changeset
401 // an exception, the result is undefined. The dealloc pointer may not be
anatofuz
parents:
diff changeset
402 // NULL.
anatofuz
parents:
diff changeset
403 _LIBCXXABI_FUNC_VIS void
anatofuz
parents:
diff changeset
404 __cxa_vec_delete3(void *array_address, size_t element_size, size_t padding_size,
anatofuz
parents:
diff changeset
405 void (*destructor)(void *), void (*dealloc)(void *, size_t)) {
anatofuz
parents:
diff changeset
406 if ( NULL != array_address ) {
anatofuz
parents:
diff changeset
407 char *vec_base = static_cast <char *> (array_address);
anatofuz
parents:
diff changeset
408 char *heap_block = vec_base - padding_size;
anatofuz
parents:
diff changeset
409 const size_t element_count = padding_size ? __get_element_count ( vec_base ) : 0;
anatofuz
parents:
diff changeset
410 const size_t heap_block_size = element_size * element_count + padding_size;
anatofuz
parents:
diff changeset
411 st_heap_block3 heap ( dealloc, heap_block, heap_block_size );
anatofuz
parents:
diff changeset
412
anatofuz
parents:
diff changeset
413 if ( 0 != padding_size && NULL != destructor ) // call the destructors
anatofuz
parents:
diff changeset
414 __cxa_vec_dtor ( array_address, element_count, element_size, destructor );
anatofuz
parents:
diff changeset
415 }
anatofuz
parents:
diff changeset
416 }
anatofuz
parents:
diff changeset
417
anatofuz
parents:
diff changeset
418
anatofuz
parents:
diff changeset
419 } // extern "C"
anatofuz
parents:
diff changeset
420
anatofuz
parents:
diff changeset
421 } // abi