Commit 984bc4c3 by Geert Bosch Committed by Geert Bosch

* decl.c: Minor whitespace fixes.

From-SVN: r46654
parent 5dece937
2001-10-30 Geert Bosch <bosch@gnat.com>
* decl.c: Minor whitespace fixes.
2001-10-30 Richard Kenner <kenner@gnat.com> 2001-10-30 Richard Kenner <kenner@gnat.com>
* utils2.c (build_allocator): Test for SIZE overflow in array case too * utils2.c (build_allocator): Test for SIZE overflow in array case too
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
* * * *
* GNAT COMPILER COMPONENTS * * GNAT COMPILER COMPONENTS *
* * * *
* D E C L * * D E C L *
* * * *
* C Implementation File * * C Implementation File *
* * * *
...@@ -720,7 +720,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition) ...@@ -720,7 +720,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition)
"UNC")); "UNC"));
} }
/* Convert the expression to the type of the object except in the /* 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 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 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) ...@@ -1524,7 +1523,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition)
size_binop (MINUS_EXPR, gnu_base_max, size_binop (MINUS_EXPR, gnu_base_max,
gnu_base_min))); gnu_base_min)));
TYPE_NAME (gnu_index_types[index]) TYPE_NAME (gnu_index_types[index])
= create_concat_name (gnat_entity, field_name); = create_concat_name (gnat_entity, field_name);
} }
...@@ -1636,7 +1634,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition) ...@@ -1636,7 +1634,6 @@ gnat_to_gnu_entity (gnat_entity, gnu_expr, definition)
debug_info_p); debug_info_p);
rest_of_type_compilation (gnu_fat_type, global_bindings_p ()); rest_of_type_compilation (gnu_fat_type, global_bindings_p ());
/* Create a record type for the object and its template and /* Create a record type for the object and its template and
set the template at a negative offset. */ set the template at a negative offset. */
tem = build_unc_object_type (gnu_template_type, tem, 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, ...@@ -4289,7 +4286,6 @@ elaborate_expression_1 (gnat_expr, gnat_entity, gnu_expr, gnu_name, definition,
build (PLACEHOLDER_EXPR, DECL_CONTEXT (gnu_expr)), build (PLACEHOLDER_EXPR, DECL_CONTEXT (gnu_expr)),
gnu_expr); gnu_expr);
/* If GNU_EXPR is neither a placeholder nor a constant, nor a variable /* 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 that is a constant, make a variable that is initialized to contain the
bound when the package containing the definition is elaborated. If bound when the package containing the definition is elaborated. If
......
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