gcc/ada/

[thirdparty/gcc.git] / gcc / tree-cfg.c

diff --git a/gcc/tree-cfg.c b/gcc/tree-cfg.c
index b9fb7195bd2c795d8a81b9eda878684597724a5f..f64fc52065650cae09feadf7ce3bb942657a9c8d 100644 (file)
--- a/gcc/tree-cfg.c
+++ b/gcc/tree-cfg.c
@@ -2715,7 +2715,7 @@ verify_expr (tree *tp, int *walk_subtrees, void *data ATTRIBUTE_UNUSED)
            }
          if (INTEGRAL_TYPE_P (TREE_TYPE (t))
              && (TYPE_PRECISION (TREE_TYPE (t))
-                 != TREE_INT_CST_LOW (TREE_OPERAND (t, 1))))
+                 != tree_to_uhwi (TREE_OPERAND (t, 1))))
            {
              error ("integral result type precision does not match "
                     "field size of BIT_FIELD_REF");
@@ -2724,7 +2724,7 @@ verify_expr (tree *tp, int *walk_subtrees, void *data ATTRIBUTE_UNUSED)
          else if (!INTEGRAL_TYPE_P (TREE_TYPE (t))
                   && TYPE_MODE (TREE_TYPE (t)) != BLKmode
                   && (GET_MODE_PRECISION (TYPE_MODE (TREE_TYPE (t)))
-                      != TREE_INT_CST_LOW (TREE_OPERAND (t, 1))))
+                      != tree_to_uhwi (TREE_OPERAND (t, 1))))
            {
              error ("mode precision of non-integral result does not "
                     "match field size of BIT_FIELD_REF");