convert.c (convert_to_integer): Convert (long int)trunc{,f,l}, and (long long int...

	* convert.c (convert_to_integer): Convert (long int)trunc{,f,l},
	and (long long int)ceil{,f,l} into FIX_TRUNC_EXPR.

testsuite:

	* gcc.dg/builtins-53.c: Also check (int)trunc* and
	(long long int)trunc*.

From-SVN: r98131

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f96cfbd45061b69aaa8d0a497b3f90a79a74dc76..cdbbf339e3d222ff244004469dffa11eb8729d73 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-14  Uros Bizjak  <uros@kss-loka.si>
+
+       * convert.c (convert_to_integer): Convert (long int)trunc{,f,l},
+       and (long long int)ceil{,f,l} into FIX_TRUNC_EXPR.
+
 2005-04-14  Ulrich Weigand  <uweigand@de.ibm.com>
 
        PR target/20927

diff --git a/gcc/convert.c b/gcc/convert.c
index 9ae300d21f25bd720d922884e6d63bdfa2a6a779..4e0fc84050b249a7e7e333448e1715066ad69d75 100644 (file)
--- a/gcc/convert.c
+++ b/gcc/convert.c
@@ -381,6 +381,13 @@ convert_to_integer (tree type, tree expr)
          else
             fn = mathfn_built_in (s_intype, BUILT_IN_LRINT);
          break;
+
+       case BUILT_IN_TRUNC: case BUILT_IN_TRUNCF: case BUILT_IN_TRUNCL:
+         {
+           tree arglist = TREE_OPERAND (s_expr, 1);
+           return convert_to_integer (type, TREE_VALUE (arglist));
+         }
+
        default:
          break;
        }

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 70a01265b71f382b6ed85eedf776b8241b990550..d7731060aa80d3f8897c9d49aef33f3945edab43 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-14  Uros Bizjak  <uros@kss-loka.si>
+
+       * gcc.dg/builtins-53.c: Also check (int)trunc* and
+       (long long int)trunc*.
+
 2005-04-14  Ulrich Weigand  <uweigand@de.ibm.com>
 
        PR target/20927

diff --git a/gcc/testsuite/gcc.dg/builtins-53.c b/gcc/testsuite/gcc.dg/builtins-53.c
index 6bf481b1c37fd35fe7e25d13226c6450b8b8d091..0a080704fb3860212131510a47642ebb4599083b 100644 (file)
--- a/gcc/testsuite/gcc.dg/builtins-53.c
+++ b/gcc/testsuite/gcc.dg/builtins-53.c
@@ -13,12 +13,15 @@
 
 extern double floor(double);
 extern double ceil(double);
+extern double trunc(double);
 
 extern float floorf(float);
 extern float ceilf(float);
+extern float truncf(float);
 
 extern long double floorl(long double);
 extern long double ceill(long double);
+extern long double truncl(long double);
 
 
 long int test1(double x)
@@ -41,6 +44,16 @@ long long int test4(double x)
   return ceil(x);
 }
 
+long int test5(double x)
+{
+  return trunc(x);
+}
+
+long long int test6(double x)
+{
+  return trunc(x);
+}
+
 long int test1f(float x)
 {
   return floorf(x);
@@ -61,6 +74,16 @@ long long int test4f(float x)
   return ceilf(x);
 }
 
+long int test5f(float x)
+{
+  return truncf(x);
+}
+
+long long int test6f(float x)
+{
+  return truncf(x);
+}
+
 long int test1l(long double x)
 {
   return floorl(x);
@@ -80,3 +103,13 @@ long long int test4l(long double x)
 {
   return ceill(x);
 }
+
+long int test5l(long double x)
+{
+  return truncl(x);
+}
+
+long long int test6l(long double x)
+{
+  return truncl(x);
+}