From 984bc4c317ca27beaea0df799fe06da1f029ca7b Mon Sep 17 00:00:00 2001 From: Geert Bosch Date: Tue, 30 Oct 2001 22:33:07 +0100 Subject: * decl.c: Minor whitespace fixes. From-SVN: r46654 --- gcc/ada/decl.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'gcc/ada/decl.c') diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 7c266e2..6207cb7 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -2,7 +2,7 @@ * * * GNAT COMPILER COMPONENTS * * * - * D E C L * + * D E C L * * * * C Implementation File * * * @@ -720,7 +720,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition) "UNC")); } - /* Convert the expression to the type of the object except in the case where the object's type is unconstrained or the object's type is a padded record whose field is of self-referential size. In @@ -1524,7 +1523,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition) size_binop (MINUS_EXPR, gnu_base_max, gnu_base_min))); - TYPE_NAME (gnu_index_types[index]) = create_concat_name (gnat_entity, field_name); } @@ -1636,7 +1634,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition) debug_info_p); rest_of_type_compilation (gnu_fat_type, global_bindings_p ()); - /* Create a record type for the object and its template and set the template at a negative offset. */ tem = build_unc_object_type (gnu_template_type, tem, @@ -4289,7 +4286,6 @@ elaborate_expression_1 (gnat_expr, gnat_entity, gnu_expr, gnu_name, definition, build (PLACEHOLDER_EXPR, DECL_CONTEXT (gnu_expr)), gnu_expr); - /* If GNU_EXPR is neither a placeholder nor a constant, nor a variable that is a constant, make a variable that is initialized to contain the bound when the package containing the definition is elaborated. If -- cgit v1.1