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 0a7feb0..271fdca 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,10 @@
 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.
        (unchecked_convert): Use it to disable problematic folding with
        VIEW_CONVERT_EXPR in the general case.  Always disable it for the

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index b0dfc7d..b140f98 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 9a6f4cf..e4c8622 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;