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

gcc/ada/ChangeLog

 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

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

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;