From 78df6221f9530b27251f81a3ec7c8052c92fb059 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 13 Aug 2013 19:53:37 +0000 Subject: decl.c (gnat_to_gnu_entity): Replace True with true. * 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. From-SVN: r201704 --- gcc/ada/ChangeLog | 14 ++++++++++++++ gcc/ada/gcc-interface/decl.c | 20 ++++++++++---------- gcc/ada/gcc-interface/misc.c | 4 ++-- gcc/ada/gcc-interface/trans.c | 12 ++++++------ gcc/ada/gcc-interface/utils.c | 2 +- 5 files changed, 33 insertions(+), 19 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 45fcf88..1777418 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,17 @@ +2013-08-13 Eric Botcazou + + * 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. + 2013-08-13 Thomas Quinot * gcc-interface/trans.c (set_end_locus_from_node): Clear column info diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index f632a31..551ab44 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -4830,7 +4830,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) 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_Id component_list) 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 diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 7b168df..3abe57b 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -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. */ diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index db55c38..4048e0a 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -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 (Node_Id gnat_node) 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, ¤t_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, location_t *locus, bool clear_column) 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, Node_Id gnat_node, bool clear_column) 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 diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 409c0de..2c3e096 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -2573,7 +2573,7 @@ potential_alignment_gap (tree prev_field, tree curr_field, tree offset) 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 -- cgit v1.1