diff options
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index a6492c5..cb0e8c6 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -886,7 +886,6 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) t = build2 (FDESC_EXPR, TREE_TYPE (gnu_field), gnu_prefix, build_int_cst (NULL_TREE, i)); TREE_CONSTANT (t) = 1; - TREE_INVARIANT (t) = 1; } else t = build3 (COMPONENT_REF, ptr_void_ftype, gnu_result, @@ -1280,7 +1279,6 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) gnu_result = build1 (SAVE_EXPR, TREE_TYPE (gnu_result), gnu_result); TREE_SIDE_EFFECTS (gnu_result) = 1; - TREE_INVARIANT (gnu_result) = 1; if (attribute == Attr_First) pa->first = gnu_result; else if (attribute == Attr_Last) @@ -2220,7 +2218,6 @@ call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target) used as the object and copied back after the call if needed. */ gnu_name = build1 (SAVE_EXPR, TREE_TYPE (gnu_name), gnu_name); TREE_SIDE_EFFECTS (gnu_name) = 1; - TREE_INVARIANT (gnu_name) = 1; /* Set up to move the copy back to the original. */ if (Ekind (gnat_formal) != E_In_Parameter) |