* 1aexcept.adb, 1aexcept.ads, 1ic.ads, 1ssecsta.adb,

[pf3gnuchains/gcc-fork.git] / gcc / ada / trans.c

diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index 4155eec..797671d 100644 (file)
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -435,11 +435,13 @@ tree_transform (gnat_node)
         here since GNU_RESULT may be a CONST_DECL.  */
       if (DECL_P (gnu_result)
          && (DECL_BY_REF_P (gnu_result)
-             || DECL_BY_COMPONENT_PTR_P (gnu_result)))
+             || (TREE_CODE (gnu_result) == PARM_DECL
+                 && DECL_BY_COMPONENT_PTR_P (gnu_result))))
        {
          int ro = DECL_POINTS_TO_READONLY_P (gnu_result);
 
-         if (DECL_BY_COMPONENT_PTR_P (gnu_result))
+         if (TREE_CODE (gnu_result) == PARM_DECL
+             && DECL_BY_COMPONENT_PTR_P (gnu_result))
            gnu_result = convert (build_pointer_type (gnu_result_type),
                                  gnu_result);