From f71d5704ba64939d2e70d055659cb2d72cbce40e Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Fri, 15 Jun 2012 10:41:13 +0000 Subject: re PR ada/53592 (ICE on assignment to component of vector_type) PR ada/53592 * gcc-interface/gigi.h (maybe_vector_array): Make static inline. * gcc-interface/utils.c (maybe_vector_array): Delete. * gcc-interface/trans.c (gnat_to_gnu) : Mark the array object as addressable if it has vector type and is on the LHS. From-SVN: r188653 --- gcc/ada/gcc-interface/utils.c | 14 -------------- 1 file changed, 14 deletions(-) (limited to 'gcc/ada/gcc-interface/utils.c') diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 62a4b31..d2183bb 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -5149,20 +5149,6 @@ maybe_unconstrained_array (tree exp) return exp; } - -/* If EXP's type is a VECTOR_TYPE, return EXP converted to the associated - TYPE_REPRESENTATIVE_ARRAY. */ - -tree -maybe_vector_array (tree exp) -{ - tree etype = TREE_TYPE (exp); - - if (VECTOR_TYPE_P (etype)) - exp = convert (TYPE_REPRESENTATIVE_ARRAY (etype), exp); - - return exp; -} /* Return true if EXPR is an expression that can be folded as an operand of a VIEW_CONVERT_EXPR. See ada-tree.h for a complete rationale. */ -- cgit v1.1