diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-23 11:06:47 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-23 11:06:47 +0000 |
| commit | c1abd261d91caa67f71439292081b7299d4f5788 (patch) | |
| tree | c0d0a561438c71036620f0c5eb0f8ebf5a404485 /gcc/ada/gcc-interface/misc.c | |
| parent | 8713b7e4f5f8cb2bf3c046dda4000c448500b746 (diff) | |
| download | gcc-c1abd261d91caa67f71439292081b7299d4f5788.zip gcc-c1abd261d91caa67f71439292081b7299d4f5788.tar.gz gcc-c1abd261d91caa67f71439292081b7299d4f5788.tar.bz2 | |
gigi.h (create_index_type): Adjust head comment.
* gcc-interface/gigi.h (create_index_type): Adjust head comment.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Signed_Integer_Subtype>:
Use front-end predicates to compute signedness and precision.
<E_String_Literal_Subtype>: Fold range type.
Make sure to set longest_float_type_node to a scalar type.
(elaborate_entity): Use consistent Constraint_Error spelling.
(substitute_in_type) <INTEGER_TYPE>: Always copy the type.
* gcc-interface/misc.c (gnat_print_type) <INTEGER_TYPE>: Use brief
output for the modulus, if any.
<ENUMERAL_TYPE>: Likewise for the RM size.
* gcc-interface/trans.c (gnat_to_gnu): Use consistent Constraint_Error
spelling.
* gcc-interface/utils.c (finish_record_type): Really test the alignment
of BLKmode bit-fields to compute their addressability.
(create_index_type): Adjust comments.
(create_param_decl): Create the biased subtype manually.
* gcc-interface/utils2.c (build_component_ref): Use consistent
Constraint_Error spelling.
From-SVN: r146644
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 5385411..b67b845 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -497,7 +497,7 @@ gnat_print_type (FILE *file, tree node, int indent) case INTEGER_TYPE: if (TYPE_MODULAR_P (node)) - print_node (file, "modulus", TYPE_MODULUS (node), indent + 4); + print_node_brief (file, "modulus", TYPE_MODULUS (node), indent + 4); else if (TYPE_HAS_ACTUAL_BOUNDS_P (node)) print_node (file, "actual bounds", TYPE_ACTUAL_BOUNDS (node), indent + 4); @@ -510,7 +510,7 @@ gnat_print_type (FILE *file, tree node, int indent) case ENUMERAL_TYPE: case BOOLEAN_TYPE: - print_node (file, "RM size", TYPE_RM_SIZE (node), indent + 4); + print_node_brief (file, "RM size", TYPE_RM_SIZE (node), indent + 4); break; case ARRAY_TYPE: |