diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-24 08:24:38 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-24 08:24:38 +0000 |
| commit | e6e15ec950f40f7c1ad74c440d6f46344b69dcb1 (patch) | |
| tree | 713e005cefe1a24a9d3967c061492776a3f8e660 | |
| parent | caa9d12a2b675da20f5a3016e6f306a84ee96a2a (diff) | |
| download | gcc-e6e15ec950f40f7c1ad74c440d6f46344b69dcb1.zip gcc-e6e15ec950f40f7c1ad74c440d6f46344b69dcb1.tar.gz gcc-e6e15ec950f40f7c1ad74c440d6f46344b69dcb1.tar.bz2 | |
Fix nits
From-SVN: r146676
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 3575aa5..94f14bf 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -7393,7 +7393,7 @@ set_rm_size (Uint uint_size, tree gnu_type, Entity_Id gnat_entity) return; } - /* Otherwise, set the RM size proper for numerical types... */ + /* Otherwise, set the RM size proper for integral types... */ if ((TREE_CODE (gnu_type) == INTEGER_TYPE && Is_Discrete_Or_Fixed_Point_Type (gnat_entity)) || (TREE_CODE (gnu_type) == ENUMERAL_TYPE @@ -7853,7 +7853,7 @@ substitute_in_type (tree t, tree f, tree r) tree rm_size (tree gnu_type) { - /* For integer types, this is the precision. */ + /* For integral types, we store the RM size explicitly. */ if (INTEGRAL_TYPE_P (gnu_type) && TYPE_RM_SIZE (gnu_type)) return TYPE_RM_SIZE (gnu_type); diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 3b2d526..e5001ab 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -31,6 +31,7 @@ #include "ggc.h" #include "flags.h" #include "output.h" + #include "ada.h" #include "types.h" #include "atree.h" |