Commit e6e15ec9 by Eric Botcazou

Fix nits

From-SVN: r146676
parent caa9d12a
...@@ -7393,7 +7393,7 @@ set_rm_size (Uint uint_size, tree gnu_type, Entity_Id gnat_entity) ...@@ -7393,7 +7393,7 @@ set_rm_size (Uint uint_size, tree gnu_type, Entity_Id gnat_entity)
return; 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 if ((TREE_CODE (gnu_type) == INTEGER_TYPE
&& Is_Discrete_Or_Fixed_Point_Type (gnat_entity)) && Is_Discrete_Or_Fixed_Point_Type (gnat_entity))
|| (TREE_CODE (gnu_type) == ENUMERAL_TYPE || (TREE_CODE (gnu_type) == ENUMERAL_TYPE
...@@ -7853,7 +7853,7 @@ substitute_in_type (tree t, tree f, tree r) ...@@ -7853,7 +7853,7 @@ substitute_in_type (tree t, tree f, tree r)
tree tree
rm_size (tree gnu_type) 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)) if (INTEGRAL_TYPE_P (gnu_type) && TYPE_RM_SIZE (gnu_type))
return TYPE_RM_SIZE (gnu_type); return TYPE_RM_SIZE (gnu_type);
......
...@@ -31,6 +31,7 @@ ...@@ -31,6 +31,7 @@
#include "ggc.h" #include "ggc.h"
#include "flags.h" #include "flags.h"
#include "output.h" #include "output.h"
#include "ada.h" #include "ada.h"
#include "types.h" #include "types.h"
#include "atree.h" #include "atree.h"
......
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