svn commit: branches/uClibc-nptl/libm

[vda at uclibc.org]

Author: vda
Date: 2009-01-03 13:58:19 +0000 (Sat, 03 Jan 2009)
New Revision: 24668

Log:
fix small goof in last commit: should use "long" function (scalbln)
as a main one, not "int" one (scalbn).



Modified:
   branches/uClibc-nptl/libm/s_scalbn.c


Changeset:
Modified: branches/uClibc-nptl/libm/s_scalbn.c
===================================================================
--- branches/uClibc-nptl/libm/s_scalbn.c	2009-01-03 13:58:09 UTC (rev 24667)
+++ branches/uClibc-nptl/libm/s_scalbn.c	2009-01-03 13:58:19 UTC (rev 24668)
@@ -10,8 +10,8 @@
  */
 
 /*
- * scalbn (double x, int n)
- * scalbn(x,n) returns x* 2**n computed by exponent
+ * scalbln(double x, long n)
+ * scalbln(x,n) returns x * 2**n computed by exponent
  * manipulation rather than by actually performing an
  * exponentiation or a multiplication.
  */
@@ -25,7 +25,7 @@
 huge   = 1.0e+300,
 tiny   = 1.0e-300;
 
-double scalbn(double x, int n)
+double scalbln(double x, long n)
 {
 	int32_t k, hx, lx;
 
@@ -58,19 +58,19 @@
 	SET_HIGH_WORD(x, (hx & 0x800fffff) | (k << 20));
 	return x * twom54;
 }
-libm_hidden_def(scalbn)
+libm_hidden_def(scalbln)
 
 #if LONG_MAX == INT_MAX
-/* strong_alias(scalbn, scalbln) - "error: conflicting types for 'scalbln'"
- * because it tries to declare "typeof(scalbn) scalbln;"
- * which tries to give "int" parameter to scalbln.
+/* strong_alias(scalbln, scalbn) - "error: conflicting types for 'scalbn'"
+ * because it tries to declare "typeof(scalbln) scalbn;"
+ * which tries to give "long" parameter to scalbn.
  * Doing it by hand:
  */
-__typeof(scalbln) scalbln __attribute__((alias("scalbn")));
+__typeof(scalbn) scalbn __attribute__((alias("scalbln")));
 #else
-double scalbln(double x, long n)
+double scalbn(double x, int n)
 {
 	return scalbn(x, n);
 }
 #endif
-libm_hidden_def(scalbln)
+libm_hidden_def(scalbn)