diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 4d61f52..d4cc941 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -3166,7 +3166,7 @@ create_subprog_decl (tree name, tree asm_name, tree type, tree param_decl_list, NULL_TREE, NULL_TREE), ATTR_FLAG_TYPE_IN_PLACE); - /* fall through */ + /* ... fall through ... */ case is_enabled: DECL_DECLARED_INLINE_P (subprog_decl) = 1; @@ -4270,8 +4270,7 @@ convert (tree type, tree expr) TREE_TYPE (expr) = type; return expr; } - - /* fall through */ + break; case CONSTRUCTOR: /* If we are converting a CONSTRUCTOR to a mere type variant, or to @@ -4510,7 +4509,7 @@ convert (tree type, tree expr) convert (TREE_TYPE (type), TYPE_MIN_VALUE (type)))); - /* fall through */ + /* ... fall through ... */ case ENUMERAL_TYPE: case BOOLEAN_TYPE: @@ -4587,7 +4586,7 @@ convert (tree type, tree expr) return gnat_build_constructor (type, v); } - /* fall through */ + /* ... fall through ... */ case ARRAY_TYPE: /* In these cases, assume the front-end has validated the conversion. @@ -4703,7 +4702,7 @@ convert_to_index_type (tree expr) break; } - /* fall through */ + /* ... fall through ... */ case NON_LVALUE_EXPR: return fold_build1 (code, sizetype, |