diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-08-07 21:12:32 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-08-07 21:12:32 +0000 |
| commit | 2bb1fc26a11e2ca13ef8e6a42ea31f63182b0562 (patch) | |
| tree | 35c9ee40c0caa738fda5ccc6b47787ea24f6ced2 /gcc/ada/gcc-interface/decl.c | |
| parent | 1145e690d2eab146e53ee6577bf4c356637501d0 (diff) | |
| download | gcc-2bb1fc26a11e2ca13ef8e6a42ea31f63182b0562.zip gcc-2bb1fc26a11e2ca13ef8e6a42ea31f63182b0562.tar.gz gcc-2bb1fc26a11e2ca13ef8e6a42ea31f63182b0562.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Use XALLOCAVEC instead of alloca.
* gcc-interface/decl.c (gnat_to_gnu_entity): Use XALLOCAVEC instead
of alloca.
(components_to_record): Likewise.
* gcc-interface/trans.c (gnat_to_gnu): Likewise.
* gcc-interface/utils.c (max_size): Likewise.
(build_vms_descriptor32): Likewise.
(build_vms_descriptor): Likewise.
From-SVN: r162985
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index a9e3358..b63a620 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1856,8 +1856,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) tree gnu_template_reference; tree gnu_ptr_template = build_pointer_type (gnu_template_type); tree gnu_fat_type = make_node (RECORD_TYPE); - tree *gnu_index_types = (tree *) alloca (ndim * sizeof (tree)); - tree *gnu_temp_fields = (tree *) alloca (ndim * sizeof (tree)); + tree *gnu_index_types = XALLOCAVEC (tree, ndim); + tree *gnu_temp_fields = XALLOCAVEC (tree, ndim); tree gnu_max_size = size_one_node, gnu_max_size_unit, tem; int index; @@ -2127,7 +2127,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) = (Convention (gnat_entity) == Convention_Fortran); const int ndim = Number_Dimensions (gnat_entity); tree gnu_base_type = gnu_type; - tree *gnu_index_types = (tree *) alloca (ndim * sizeof (tree)); + tree *gnu_index_types = XALLOCAVEC (tree, ndim); tree gnu_max_size = size_one_node, gnu_max_size_unit; bool need_index_type_struct = false; int index; @@ -7161,7 +7161,7 @@ components_to_record (tree gnu_record_type, Node_Id gnat_component_list, tree gnu_rep_type = (gnu_field_list ? make_node (RECORD_TYPE) : gnu_record_type); int i, len = list_length (gnu_our_rep_list); - tree *gnu_arr = (tree *) alloca (sizeof (tree) * len); + tree *gnu_arr = XALLOCAVEC (tree, len); for (gnu_field = gnu_our_rep_list, i = 0; gnu_field; |