Skip to content

R
riscv-gcc-1
Commit 9c453de7 by Eric Botcazou Committed by Eric Botcazou
Options

utils.c (convert): Add missing break. 

	* gcc-interface/utils.c (convert) <VECTOR_CST>: Add missing break.

	Revert
	2016-09-26  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>

	* gcc-interface/decl.c: Fix fall through comment formatting.
	* gcc-interface/misc.c: Likewise.
	* gcc-interface/trans.c: Likewise.
	* gcc-interface/utils.c: Likewise.
	* gcc-interface/utils2.c: Likewise.

From-SVN: r240890
parent 36cbfdb0
Showing with 46 additions and 34 deletions
gcc/ada/ChangeLog
2016-10-08 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (convert) <VECTOR_CST>: Add missing break.
Revert
2016-09-26 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
* gcc-interface/decl.c: Fix fall through comment formatting.
* gcc-interface/misc.c: Likewise.
* gcc-interface/trans.c: Likewise.
* gcc-interface/utils.c: Likewise.
* gcc-interface/utils2.c: Likewise.
2016-09-29 James Greenhalgh <james.greenhalgh@arm.com> 2016-09-29 James Greenhalgh <james.greenhalgh@arm.com>
* gcc-interface/misc.c (gnat_post_options): Remove special case for * gcc-interface/misc.c (gnat_post_options): Remove special case for
......
gcc/ada/gcc-interface/decl.c
...@@ -596,7 +596,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) ...@@ -596,7 +596,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
gnu_expr gnu_expr
= gnat_to_gnu_external (Expression (Declaration_Node (gnat_entity))); = gnat_to_gnu_external (Expression (Declaration_Node (gnat_entity)));
/* fall through */ /* ... fall through ... */
case E_Exception: case E_Exception:
case E_Loop_Parameter: case E_Loop_Parameter:
...@@ -3369,7 +3369,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) ...@@ -3369,7 +3369,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
break; break;
} }
/* fall through */ /* ... fall through ... */
case E_Record_Subtype: case E_Record_Subtype:
/* If Cloned_Subtype is Present it means this record subtype has /* If Cloned_Subtype is Present it means this record subtype has
...@@ -3804,7 +3804,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) ...@@ -3804,7 +3804,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
break; break;
} }
/* fall through */ /* ... fall through ... */
case E_Allocator_Type: case E_Allocator_Type:
case E_Access_Type: case E_Access_Type:
...@@ -6882,7 +6882,7 @@ choices_to_gnu (tree operand, Node_Id choices) ...@@ -6882,7 +6882,7 @@ choices_to_gnu (tree operand, Node_Id choices)
break; break;
} }
/* fall through */ /* ... fall through ... */
case N_Character_Literal: case N_Character_Literal:
case N_Integer_Literal: case N_Integer_Literal:
...@@ -8089,7 +8089,7 @@ annotate_value (tree gnu_size) ...@@ -8089,7 +8089,7 @@ annotate_value (tree gnu_size)
else else
return Uint_Minus_1; return Uint_Minus_1;
/* fall through */ /* Fall through... */
default: default:
return No_Uint; return No_Uint;
......
gcc/ada/gcc-interface/misc.c
...@@ -157,7 +157,7 @@ gnat_handle_option (size_t scode, const char *arg, int value, int kind, ...@@ -157,7 +157,7 @@ gnat_handle_option (size_t scode, const char *arg, int value, int kind,
case OPT_gant: case OPT_gant:
warning (0, "%<-gnat%> misspelled as %<-gant%>"); warning (0, "%<-gnat%> misspelled as %<-gant%>");
/* fall through */ /* ... fall through ... */
case OPT_gnat: case OPT_gnat:
case OPT_gnatO: case OPT_gnatO:
...@@ -485,13 +485,13 @@ gnat_print_type (FILE *file, tree node, int indent) ...@@ -485,13 +485,13 @@ gnat_print_type (FILE *file, tree node, int indent)
else else
print_node (file, "index type", TYPE_INDEX_TYPE (node), indent + 4); print_node (file, "index type", TYPE_INDEX_TYPE (node), indent + 4);
/* fall through */ /* ... fall through ... */
case ENUMERAL_TYPE: case ENUMERAL_TYPE:
case BOOLEAN_TYPE: case BOOLEAN_TYPE:
print_node_brief (file, "RM size", TYPE_RM_SIZE (node), indent + 4); print_node_brief (file, "RM size", TYPE_RM_SIZE (node), indent + 4);
/* fall through */ /* ... fall through ... */
case REAL_TYPE: case REAL_TYPE:
print_node_brief (file, "RM min", TYPE_RM_MIN_VALUE (node), indent + 4); print_node_brief (file, "RM min", TYPE_RM_MIN_VALUE (node), indent + 4);
......
gcc/ada/gcc-interface/trans.c
...@@ -844,7 +844,7 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant, ...@@ -844,7 +844,7 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant,
&& Ekind (Entity (gnat_temp)) == E_Enumeration_Literal)) && Ekind (Entity (gnat_temp)) == E_Enumeration_Literal))
return 1; return 1;
/* fall through */ /* ... fall through ... */
case N_Slice: case N_Slice:
/* Only the array expression can require an lvalue. */ /* Only the array expression can require an lvalue. */
...@@ -890,7 +890,7 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant, ...@@ -890,7 +890,7 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant,
if (!constant) if (!constant)
return 1; return 1;
/* fall through */ /* ... fall through ... */
case N_Type_Conversion: case N_Type_Conversion:
case N_Qualified_Expression: case N_Qualified_Expression:
...@@ -914,7 +914,7 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant, ...@@ -914,7 +914,7 @@ lvalue_required_p (Node_Id gnat_node, tree gnu_type, bool constant,
get_unpadded_type (Etype (gnat_parent)), get_unpadded_type (Etype (gnat_parent)),
true, false, true); true, false, true);
/* fall through */ /* ... fall through ... */
default: default:
return 0; return 0;
...@@ -1681,7 +1681,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) ...@@ -1681,7 +1681,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute)
break; break;
} }
/* fall through */ /* ... fall through ... */
case Attr_Access: case Attr_Access:
case Attr_Unchecked_Access: case Attr_Unchecked_Access:
...@@ -1938,7 +1938,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) ...@@ -1938,7 +1938,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute)
break; break;
} }
/* fall through */ /* ... fall through ... */
case Attr_Length: case Attr_Length:
{ {
...@@ -2393,7 +2393,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) ...@@ -2393,7 +2393,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute)
/* We treat Model as identical to Machine. This is true for at least /* We treat Model as identical to Machine. This is true for at least
IEEE and some other nice floating-point systems. */ IEEE and some other nice floating-point systems. */
/* fall through */ /* ... fall through ... */
case Attr_Machine: case Attr_Machine:
/* The trick is to force the compiler to store the result in memory so /* The trick is to force the compiler to store the result in memory so
...@@ -2537,7 +2537,7 @@ Case_Statement_to_gnu (Node_Id gnat_node) ...@@ -2537,7 +2537,7 @@ Case_Statement_to_gnu (Node_Id gnat_node)
break; break;
} }
/* fall through */ /* ... fall through ... */
case N_Character_Literal: case N_Character_Literal:
case N_Integer_Literal: case N_Integer_Literal:
...@@ -4007,7 +4007,7 @@ node_is_atomic (Node_Id gnat_node) ...@@ -4007,7 +4007,7 @@ node_is_atomic (Node_Id gnat_node)
&& Has_Atomic_Components (Entity (Prefix (gnat_node)))) && Has_Atomic_Components (Entity (Prefix (gnat_node))))
return true; return true;
/* fall through */ /* ... fall through ... */
case N_Explicit_Dereference: case N_Explicit_Dereference:
return Is_Atomic (Etype (gnat_node)); return Is_Atomic (Etype (gnat_node));
...@@ -4123,7 +4123,7 @@ atomic_access_required_p (Node_Id gnat_node, bool *sync) ...@@ -4123,7 +4123,7 @@ atomic_access_required_p (Node_Id gnat_node, bool *sync)
/* Nothing to do if we are the prefix of an attribute, since we do not /* Nothing to do if we are the prefix of an attribute, since we do not
want an atomic access for things like 'Size. */ want an atomic access for things like 'Size. */
/* fall through */ /* ... fall through ... */
case N_Reference: case N_Reference:
/* The N_Reference node is like an attribute. */ /* The N_Reference node is like an attribute. */
...@@ -6580,7 +6580,7 @@ gnat_to_gnu (Node_Id gnat_node) ...@@ -6580,7 +6580,7 @@ gnat_to_gnu (Node_Id gnat_node)
break; break;
} }
/* fall through */ /* ... fall through ... */
case N_Op_Eq: case N_Op_Eq:
case N_Op_Ne: case N_Op_Ne:
...@@ -6747,7 +6747,7 @@ gnat_to_gnu (Node_Id gnat_node) ...@@ -6747,7 +6747,7 @@ gnat_to_gnu (Node_Id gnat_node)
break; break;
} }
/* fall through */ /* ... fall through ... */
case N_Op_Minus: case N_Op_Minus:
case N_Op_Abs: case N_Op_Abs:
...@@ -8344,7 +8344,7 @@ gnat_gimplify_expr (tree *expr_p, gimple_seq *pre_p, ...@@ -8344,7 +8344,7 @@ gnat_gimplify_expr (tree *expr_p, gimple_seq *pre_p,
break; break;
} }
/* fall through */ /* ... fall through ... */
default: default:
return GS_UNHANDLED; return GS_UNHANDLED;
...@@ -9867,7 +9867,7 @@ set_gnu_expr_location_from_node (tree node, Node_Id gnat_node) ...@@ -9867,7 +9867,7 @@ set_gnu_expr_location_from_node (tree node, Node_Id gnat_node)
if (EXPR_P (TREE_OPERAND (node, 1))) if (EXPR_P (TREE_OPERAND (node, 1)))
set_gnu_expr_location_from_node (TREE_OPERAND (node, 1), gnat_node); set_gnu_expr_location_from_node (TREE_OPERAND (node, 1), gnat_node);
/* fall through */ /* ... fall through ... */
default: default:
if (!REFERENCE_CLASS_P (node) && !EXPR_HAS_LOCATION (node)) if (!REFERENCE_CLASS_P (node) && !EXPR_HAS_LOCATION (node))
......
gcc/ada/gcc-interface/utils.c
...@@ -3166,7 +3166,7 @@ create_subprog_decl (tree name, tree asm_name, tree type, tree param_decl_list, ...@@ -3166,7 +3166,7 @@ create_subprog_decl (tree name, tree asm_name, tree type, tree param_decl_list,
NULL_TREE, NULL_TREE), NULL_TREE, NULL_TREE),
ATTR_FLAG_TYPE_IN_PLACE); ATTR_FLAG_TYPE_IN_PLACE);
/* fall through */ /* ... fall through ... */
case is_enabled: case is_enabled:
DECL_DECLARED_INLINE_P (subprog_decl) = 1; DECL_DECLARED_INLINE_P (subprog_decl) = 1;
...@@ -4270,8 +4270,7 @@ convert (tree type, tree expr) ...@@ -4270,8 +4270,7 @@ convert (tree type, tree expr)
TREE_TYPE (expr) = type; TREE_TYPE (expr) = type;
return expr; return expr;
} }
break;
/* fall through */
case CONSTRUCTOR: case CONSTRUCTOR:
/* If we are converting a CONSTRUCTOR to a mere type variant, or to /* If we are converting a CONSTRUCTOR to a mere type variant, or to
...@@ -4510,7 +4509,7 @@ convert (tree type, tree expr) ...@@ -4510,7 +4509,7 @@ convert (tree type, tree expr)
convert (TREE_TYPE (type), convert (TREE_TYPE (type),
TYPE_MIN_VALUE (type)))); TYPE_MIN_VALUE (type))));
/* fall through */ /* ... fall through ... */
case ENUMERAL_TYPE: case ENUMERAL_TYPE:
case BOOLEAN_TYPE: case BOOLEAN_TYPE:
...@@ -4587,7 +4586,7 @@ convert (tree type, tree expr) ...@@ -4587,7 +4586,7 @@ convert (tree type, tree expr)
return gnat_build_constructor (type, v); return gnat_build_constructor (type, v);
} }
/* fall through */ /* ... fall through ... */
case ARRAY_TYPE: case ARRAY_TYPE:
/* In these cases, assume the front-end has validated the conversion. /* In these cases, assume the front-end has validated the conversion.
...@@ -4703,7 +4702,7 @@ convert_to_index_type (tree expr) ...@@ -4703,7 +4702,7 @@ convert_to_index_type (tree expr)
break; break;
} }
/* fall through */ /* ... fall through ... */
case NON_LVALUE_EXPR: case NON_LVALUE_EXPR:
return fold_build1 (code, sizetype, return fold_build1 (code, sizetype,
......
gcc/ada/gcc-interface/utils2.c
...@@ -180,7 +180,7 @@ known_alignment (tree exp) ...@@ -180,7 +180,7 @@ known_alignment (tree exp)
return known_alignment (t); return known_alignment (t);
} }
/* fall through */ /* ... fall through ... */
default: default:
/* For other pointer expressions, we assume that the pointed-to object /* For other pointer expressions, we assume that the pointed-to object
...@@ -1011,7 +1011,7 @@ build_binary_op (enum tree_code op_code, tree result_type, ...@@ -1011,7 +1011,7 @@ build_binary_op (enum tree_code op_code, tree result_type,
if (!operation_type) if (!operation_type)
operation_type = TREE_TYPE (left_type); operation_type = TREE_TYPE (left_type);
/* fall through */ /* ... fall through ... */
case ARRAY_RANGE_REF: case ARRAY_RANGE_REF:
/* First look through conversion between type variants. Note that /* First look through conversion between type variants. Note that
...@@ -1230,7 +1230,7 @@ build_binary_op (enum tree_code op_code, tree result_type, ...@@ -1230,7 +1230,7 @@ build_binary_op (enum tree_code op_code, tree result_type,
op_code = MINUS_EXPR; op_code = MINUS_EXPR;
modulus = NULL_TREE; modulus = NULL_TREE;
/* fall through */ /* ... fall through ... */
case PLUS_EXPR: case PLUS_EXPR:
case MINUS_EXPR: case MINUS_EXPR:
...@@ -1244,7 +1244,7 @@ build_binary_op (enum tree_code op_code, tree result_type, ...@@ -1244,7 +1244,7 @@ build_binary_op (enum tree_code op_code, tree result_type,
= gnat_type_for_mode (TYPE_MODE (operation_type), = gnat_type_for_mode (TYPE_MODE (operation_type),
TYPE_UNSIGNED (operation_type)); TYPE_UNSIGNED (operation_type));
/* fall through */ /* ... fall through ... */
default: default:
common: common:
...@@ -1466,7 +1466,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) ...@@ -1466,7 +1466,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand)
return build_unary_op (ADDR_EXPR, result_type, return build_unary_op (ADDR_EXPR, result_type,
TREE_OPERAND (operand, 0)); TREE_OPERAND (operand, 0));
/* fallthru */ /* ... fallthru ... */
case VIEW_CONVERT_EXPR: case VIEW_CONVERT_EXPR:
/* If this just a variant conversion or if the conversion doesn't /* If this just a variant conversion or if the conversion doesn't
...@@ -1487,7 +1487,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) ...@@ -1487,7 +1487,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand)
case CONST_DECL: case CONST_DECL:
operand = DECL_CONST_CORRESPONDING_VAR (operand); operand = DECL_CONST_CORRESPONDING_VAR (operand);
/* fall through */ /* ... fall through ... */
default: default:
common: common:
...@@ -1648,7 +1648,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) ...@@ -1648,7 +1648,7 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand)
} }
} }
/* fall through */ /* ... fall through ... */
default: default:
gcc_assert (operation_type == base_type); gcc_assert (operation_type == base_type);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment