diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 08:24:38 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-24 08:24:38 +0000 |
| commit | 38f9a450fe978beacf67776de9ca8be5a95e80b7 (patch) | |
| tree | 713e005cefe1a24a9d3967c061492776a3f8e660 | |
| parent | d4b7e0f579b22565df6d760439815de8d637bca4 (diff) | |
| download | gcc-38f9a450fe978beacf67776de9ca8be5a95e80b7.tar.gz | |
Fix nits
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146676 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 3575aa55b9d..94f14bf6b06 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 3b2d526c655..e5001ab7d42 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" |