* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Minor tweaks.
* gcc-interface/trans.c (Pragma_to_gnu): Likewise.
From-SVN: r140904
+2008-10-06 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Minor tweaks.
+ * gcc-interface/trans.c (Pragma_to_gnu): Likewise.
+
2008-10-06 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (can_fold_for_view_convert_p): New predicate.
2008-10-06 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (can_fold_for_view_convert_p): New predicate.
&& (definition || Sloc (gnat_entity) > Standard_Location)
&& ((Is_Public (gnat_entity)
&& !Present (Address_Clause (gnat_entity)))
&& (definition || Sloc (gnat_entity) > Standard_Location)
&& ((Is_Public (gnat_entity)
&& !Present (Address_Clause (gnat_entity)))
|| Address_Taken (gnat_entity)
|| Is_Aliased (gnat_entity)
|| Is_Aliased (Etype (gnat_entity))))
|| Address_Taken (gnat_entity)
|| Is_Aliased (gnat_entity)
|| Is_Aliased (Etype (gnat_entity))))
/* As debugging information will be generated for the variable,
do not generate information for the constant. */
/* As debugging information will be generated for the variable,
do not generate information for the constant. */
- DECL_IGNORED_P (gnu_decl) = true;
+ DECL_IGNORED_P (gnu_decl) = 1;
}
/* If this is declared in a block that contains a block with an
}
/* If this is declared in a block that contains a block with an
(First (Pragma_Argument_Associations (gnat_node)))))
{
case Name_Time: case Name_Space:
(First (Pragma_Argument_Associations (gnat_node)))))
{
case Name_Time: case Name_Space:
post_error ("insufficient -O value?", gnat_node);
break;
case Name_Off:
post_error ("insufficient -O value?", gnat_node);
break;
case Name_Off:
post_error ("must specify -O0?", gnat_node);
break;
post_error ("must specify -O0?", gnat_node);
break;