* gcc-interface/decl.c: Fix various nits.

From-SVN: r142247

gcc/ada/ChangeLog

+2008-11-27  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/decl.c: Fix various nits.
+
 2008-11-20  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/utils.c (init_gigi_decls): Fix type mismatch.

gcc/ada/gcc-interface/decl.c

@@ -488,8 +488,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	    break;
 	  }
 
-	/* If the enclosing record has explicit stored discriminants,
-	   then it is an untagged record. If the Corresponding_Discriminant
+	/* If the enclosing record has explicit stored discriminants, then
+	   it is an untagged record.  If the Corresponding_Discriminant
 	   is not empty then this must be a renamed discriminant and its
 	   Original_Record_Component must point to the corresponding explicit
 	   stored discriminant (i.e., we should have taken the first
@@ -532,7 +532,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 
 	else
 	  /* Here we have no GCC type and this is a reference rather than a
-	     definition. This should never happen. Most likely the cause is a
+	     definition.  This should never happen.  Most likely the cause is
 	     reference before declaration in the gnat tree for gnat_entity.  */
 	  gcc_unreachable ();
       }
@@ -1417,9 +1417,9 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	  gnu_type = make_unsigned_type (esize);
 	  TYPE_NAME (gnu_type) = gnu_entity_id;
 
-	  /* Set the TYPE_STRING_FLAG for Ada Character and
-	     Wide_Character types. This is needed by the dwarf-2 debug writer to
-	     distinguish between unsigned integer types and character types.  */
+	  /* Set TYPE_STRING_FLAG for Ada Character and Wide_Character types.
+	     This is needed by the DWARF-2 back-end to distinguish between
+	     unsigned integer types and character types.  */
 	  TYPE_STRING_FLAG (gnu_type) = 1;
 	  break;
 	}
@@ -3604,7 +3604,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	{
 	  /* The runtime representation is the equivalent type.  */
 	  gnu_type = gnat_to_gnu_type (gnat_equiv_type);
-	  maybe_present = 1;
+	  maybe_present = true;
 	}
 
       if (Is_Itype (Directly_Designated_Type (gnat_entity))
@@ -5406,7 +5406,7 @@ elaborate_expression (Node_Id gnat_expr, Entity_Id gnat_entity,
 			      gnu_name, definition, need_debug);
 
   /* Save the expression in case we try to elaborate this entity again.  Since
-     this is not a DECL, don't check it.  Don't save if it's a discriminant. */
+     it's not a DECL, don't check it.  Don't save if it's a discriminant.  */
   if (!CONTAINS_PLACEHOLDER_P (gnu_expr))
     save_gnu_tree (gnat_expr, gnu_expr, true);
 
@@ -6012,7 +6012,9 @@ choices_to_gnu (tree operand, Node_Id choices)
 						    operand, high));
 	      break;
 	    }
+
 	  /* ... fall through ... */
+
 	case N_Character_Literal:
 	case N_Integer_Literal:
 	  single = gnat_to_gnu (choice);