[Ada] Minor cleanup

[Eric Botcazou <ebotcazou at adacore dot com>]

Tested on x86_64-suse-linux, applied on the mainline.


2013-08-13  Eric Botcazou  <ebotcazou@adacore.com>

	* gcc-interface/decl.c (gnat_to_gnu_entity): Replace True with true.
	(is_cplusplus_method): Likewise, and False with false.
	(components_need_strict_alignment): Likewise.
	* gcc-interface/misc.c (gnat_init_gcc_fp): Likewise.
	* gcc-interface/trans.c (Loop_Statement_to_gnu): Likewise.
	(Handled_Sequence_Of_Statements_to_gnu): Likewise.
	(add_cleanup): Likewise.
	(Sloc_to_locus1): Likewise.
	(Sloc_to_locus): Likewise.
	(set_expr_location_from_node): Likewise.
	* gcc-interface/utils.c (potential_alignment_gap): Likewise.


-- 
Eric Botcazou

Index: gcc-interface/utils.c
===================================================================
--- gcc-interface/utils.c	(revision 201622)
+++ gcc-interface/utils.c	(working copy)
@@ -2573,7 +2573,7 @@ potential_alignment_gap (tree prev_field
   if (!prev_field)
     return false;
 
-  /* If the previous field is a union type, then return False: The only
+  /* If the previous field is a union type, then return false: The only
      time when such a field is not the last field of the record is when
      there are other components at fixed positions after it (meaning there
      was a rep clause for every field), in which case we don't want the
Index: gcc-interface/decl.c
===================================================================
--- gcc-interface/decl.c	(revision 201622)
+++ gcc-interface/decl.c	(working copy)
@@ -4830,7 +4830,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entit
   if (is_type && (!gnu_decl || this_made_decl))
     {
       /* Process the attributes, if not already done.  Note that the type is
-	 already defined so we cannot pass True for IN_PLACE here.  */
+	 already defined so we cannot pass true for IN_PLACE here.  */
       process_attributes (&gnu_type, &attr_list, false, gnat_entity);
 
       /* Tell the middle-end that objects of tagged types are guaranteed to
@@ -5449,26 +5449,26 @@ bool
 is_cplusplus_method (Entity_Id gnat_entity)
 {
   if (Convention (gnat_entity) != Convention_CPP)
-    return False;
+    return false;
 
   /* This is the main case: C++ method imported as a primitive operation.  */
   if (Is_Dispatching_Operation (gnat_entity))
-    return True;
+    return true;
 
   /* A thunk needs to be handled like its associated primitive operation.  */
   if (Is_Subprogram (gnat_entity) && Is_Thunk (gnat_entity))
-    return True;
+    return true;
 
   /* C++ classes with no virtual functions can be imported as limited
      record types, but we need to return true for the constructors.  */
   if (Is_Constructor (gnat_entity))
-    return True;
+    return true;
 
   /* This is set on the E_Subprogram_Type built for a dispatching call.  */
   if (Is_Dispatch_Table_Entity (gnat_entity))
-    return True;
+    return true;
 
-  return False;
+  return false;
 }
 
 /* Finalize the processing of From_With_Type incomplete types.  */
@@ -6727,13 +6727,13 @@ components_need_strict_alignment (Node_I
       Entity_Id gnat_field = Defining_Entity (component_decl);
 
       if (Is_Aliased (gnat_field))
-	return True;
+	return true;
 
       if (Strict_Alignment (Etype (gnat_field)))
-	return True;
+	return true;
     }
 
-  return False;
+  return false;
 }
 
 /* Return true if TYPE is a type with variable size or a padding type with a
Index: gcc-interface/trans.c
===================================================================
--- gcc-interface/trans.c	(revision 201703)
+++ gcc-interface/trans.c	(working copy)
@@ -2721,7 +2721,7 @@ Loop_Statement_to_gnu (Node_Id gnat_node
 
       /* First, if we have computed a small number of invariant conditions for
 	 range checks applied to the iteration variable, then initialize these
-	 conditions in front of the loop.  Otherwise, leave them set to True.
+	 conditions in front of the loop.  Otherwise, leave them set to true.
 
 	 ??? The heuristics need to be improved, by taking into account the
 	     following datapoints:
@@ -4658,7 +4658,7 @@ Handled_Sequence_Of_Statements_to_gnu (N
            implicit transient block does not incorrectly inherit the slocs
            of a decision, which would otherwise confuse control flow based
            coverage analysis tools.  */
-	set_expr_location_from_node1 (gnu_result, gnat_node, True);
+	set_expr_location_from_node1 (gnu_result, gnat_node, true);
     }
   else
     gnu_result = gnu_inner_block;
@@ -7416,7 +7416,7 @@ static void
 add_cleanup (tree gnu_cleanup, Node_Id gnat_node)
 {
   if (Present (gnat_node))
-    set_expr_location_from_node1 (gnu_cleanup, gnat_node, True);
+    set_expr_location_from_node1 (gnu_cleanup, gnat_node, true);
   append_to_statement_list (gnu_cleanup, &current_stmt_group->cleanups);
 }
 
@@ -9032,7 +9032,7 @@ maybe_implicit_deref (tree exp)
 /* Convert SLOC into LOCUS.  Return true if SLOC corresponds to a source code
    location and false if it doesn't.  In the former case, set the Gigi global
    variable REF_FILENAME to the simple debug file name as given by sinput.
-   If clear_column is True, set column information to 0.  */
+   If clear_column is true, set column information to 0.  */
 
 static bool
 Sloc_to_locus1 (Source_Ptr Sloc, location_t *locus, bool clear_column)
@@ -9073,7 +9073,7 @@ Sloc_to_locus1 (Source_Ptr Sloc, locatio
 bool
 Sloc_to_locus (Source_Ptr Sloc, location_t *locus)
 {
-  return Sloc_to_locus1 (Sloc, locus, False);
+  return Sloc_to_locus1 (Sloc, locus, false);
 }
 
 /* Similar to set_expr_location, but start with the Sloc of GNAT_NODE and
@@ -9095,7 +9095,7 @@ set_expr_location_from_node1 (tree node,
 static void
 set_expr_location_from_node (tree node, Node_Id gnat_node)
 {
-  set_expr_location_from_node1 (node, gnat_node, False);
+  set_expr_location_from_node1 (node, gnat_node, false);
 }
 
 /* More elaborate version of set_expr_location_from_node to be used in more
Index: gcc-interface/misc.c
===================================================================
--- gcc-interface/misc.c	(revision 201622)
+++ gcc-interface/misc.c	(working copy)
@@ -385,13 +385,13 @@ void
 gnat_init_gcc_fp (void)
 {
   /* Disable FP optimizations that ignore the signedness of zero if
-     S'Signed_Zeros is True, but don't override the user if not.  */
+     S'Signed_Zeros is true, but don't override the user if not.  */
   if (Signed_Zeros_On_Target)
     flag_signed_zeros = 1;
   else if (!global_options_set.x_flag_signed_zeros)
     flag_signed_zeros = 0;
 
-  /* Assume that FP operations can trap if S'Machine_Overflow is True,
+  /* Assume that FP operations can trap if S'Machine_Overflow is true,
      but don't override the user if not.
 
      ??? Alpha/VMS enables FP traps without declaring it.  */