This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Minor gigi tweaks
- From: Eric Botcazou <ebotcazou at adacore dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Mon, 6 Oct 2008 09:21:07 +0200
- Subject: [Ada] Minor gigi tweaks
Tested on i586-suse-linux, applied on the mainline.
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.
--
Eric Botcazou
Index: gcc-interface/decl.c
===================================================================
--- gcc-interface/decl.c (revision 136224)
+++ gcc-interface/decl.c (revision 136225)
@@ -1328,7 +1328,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entit
&& (definition || Sloc (gnat_entity) > Standard_Location)
&& ((Is_Public (gnat_entity)
&& !Present (Address_Clause (gnat_entity)))
- || optimize == 0
+ || !optimize
|| Address_Taken (gnat_entity)
|| Is_Aliased (gnat_entity)
|| Is_Aliased (Etype (gnat_entity))))
@@ -1343,7 +1343,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entit
/* 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
Index: gcc-interface/trans.c
===================================================================
--- gcc-interface/trans.c (revision 136224)
+++ gcc-interface/trans.c (revision 136225)
@@ -801,12 +801,12 @@ Pragma_to_gnu (Node_Id gnat_node)
(First (Pragma_Argument_Associations (gnat_node)))))
{
case Name_Time: case Name_Space:
- if (optimize == 0)
+ if (!optimize)
post_error ("insufficient -O value?", gnat_node);
break;
case Name_Off:
- if (optimize != 0)
+ if (optimize)
post_error ("must specify -O0?", gnat_node);
break;