decl.c (gnat_to_gnu_entity): Minor tweaks.

	* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Minor tweaks.
	* gcc-interface/trans.c (Pragma_to_gnu): Likewise.

From-SVN: r140904

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0a7feb0755a63dea9058f8739756fef6805496c9..271fdcae77f0120aaab8731a847471274ce4492e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index b0dfc7d33e4f2e24544d6490e0e208799f030b11..b140f987f16c9213b1f5414c2ce2c8a2b1225f79 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1328,7 +1328,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
            && (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_entity, tree gnu_expr, int definition)
 
            /* 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

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 9a6f4cf36ef0c9f9d956e054f3dadf70c18ef599..e4c86225fac354956e52ef9b884171dc1c122592 100644 (file)
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -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;