From: Richard Sandiford <rdsandiford@googlemail.com>
Date: Mon, 18 Nov 2013 14:51:45 +0000 (+0000)
Subject: tree.h (tree_to_shwi, [...]): Declare, with inline expansions.
X-Git-Tag: releases/gcc-4.9.0~2703
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=7c5efc1206d99472b0a1615b9da8f31cd849014b;p=thirdparty%2Fgcc.git

tree.h (tree_to_shwi, [...]): Declare, with inline expansions.

gcc/
	* tree.h (tree_to_shwi, tree_to_uhwi): Declare, with inline expansions.
	* tree.c (tree_to_shwi, tree_to_uhwi): New functions.

From-SVN: r204958
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 20504ae3b560..276c1cbe66bf 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-18  Richard Sandiford  <rdsandiford@googlemail.com>
+
+	* tree.h (tree_to_shwi, tree_to_uhwi): Declare, with inline expansions.
+	* tree.c (tree_to_shwi, tree_to_uhwi): New functions.
+
 2013-11-18  Richard Sandiford  <rdsandiford@googlemail.com>
 
 	* expr.h: Update comments to refer to tree_fits_[su]hwi_p rather
diff --git a/gcc/tree.c b/gcc/tree.c
index 4f290ba2f82a..124e5312e313 100644
--- a/gcc/tree.c
+++ b/gcc/tree.c
@@ -7027,6 +7027,28 @@ tree_low_cst (const_tree t, int pos)
   return TREE_INT_CST_LOW (t);
 }
 
+/* T is an INTEGER_CST whose numerical value (extended according to
+   TYPE_UNSIGNED) fits in a signed HOST_WIDE_INT.  Return that
+   HOST_WIDE_INT.  */
+
+HOST_WIDE_INT
+tree_to_shwi (const_tree t)
+{
+  gcc_assert (tree_fits_shwi_p (t));
+  return TREE_INT_CST_LOW (t);
+}
+
+/* T is an INTEGER_CST whose numerical value (extended according to
+   TYPE_UNSIGNED) fits in an unsigned HOST_WIDE_INT.  Return that
+   HOST_WIDE_INT.  */
+
+HOST_WIDE_INT
+tree_to_uhwi (const_tree t)
+{
+  gcc_assert (tree_fits_uhwi_p (t));
+  return TREE_INT_CST_LOW (t);
+}
+
 /* Return the most significant (sign) bit of T.  */
 
 int
diff --git a/gcc/tree.h b/gcc/tree.h
index 59da1619aa6f..ae30deafbba7 100644
--- a/gcc/tree.h
+++ b/gcc/tree.h
@@ -3673,6 +3673,8 @@ extern bool tree_fits_uhwi_p (const_tree)
 #endif
   ;
 extern HOST_WIDE_INT tree_low_cst (const_tree, int);
+extern HOST_WIDE_INT tree_to_shwi (const_tree);
+extern HOST_WIDE_INT tree_to_uhwi (const_tree);
 #if !defined ENABLE_TREE_CHECKING && (GCC_VERSION >= 4003)
 extern inline __attribute__ ((__gnu_inline__)) HOST_WIDE_INT
 tree_low_cst (const_tree t, int pos)
@@ -3680,6 +3682,20 @@ tree_low_cst (const_tree t, int pos)
   gcc_assert (host_integerp (t, pos));
   return TREE_INT_CST_LOW (t);
 }
+
+extern inline __attribute__ ((__gnu_inline__)) HOST_WIDE_INT
+tree_to_shwi (const_tree t)
+{
+  gcc_assert (tree_fits_shwi_p (t));
+  return TREE_INT_CST_LOW (t);
+}
+
+extern inline __attribute__ ((__gnu_inline__)) HOST_WIDE_INT
+tree_to_uhwi (const_tree t)
+{
+  gcc_assert (tree_fits_uhwi_p (t));
+  return TREE_INT_CST_LOW (t);
+}
 #endif
 extern int tree_int_cst_sgn (const_tree);
 extern int tree_int_cst_sign_bit (const_tree);