OpenE2K
/
glibc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update. 

2001-01-25  Jakub Jelinek  <jakub@redhat.com>

	* math/tgmath.h (__TGMATH_BINARY_FIRST_REAL_ONLY,
	__TGMATH_BINARY_REAL_ONLY, __TGMATH_TERNARY_FIRST_SECOND_REAL_ONLY,
	__TGMATH_TERNARY_REAL_ONLY): Use proper arguments to
	__builtin_classify_type, add ##f suffixes where appropriate.
	(__TGMATH_UNARY_REAL_IMAG): Remove extraneous left parenthesis.
	(__TGMATH_BINARY_REAL_IMAG): Likewise, use proper arguments to
	__builtin_classify_type.
	(fma): Fix spelling of first argument.
This commit is contained in:
Ulrich Drepper 2001-01-25 19:54:39 +00:00
parent 773bd1e109
commit e7c3d12bc2
2 changed files with 34 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ChangeLog
View File

@ -1,3 +1,14 @@
2001-01-25 Jakub Jelinek <jakub@redhat.com>
* math/tgmath.h (__TGMATH_BINARY_FIRST_REAL_ONLY,
__TGMATH_BINARY_REAL_ONLY, __TGMATH_TERNARY_FIRST_SECOND_REAL_ONLY,
__TGMATH_TERNARY_REAL_ONLY): Use proper arguments to
__builtin_classify_type, add ##f suffixes where appropriate.
(__TGMATH_UNARY_REAL_IMAG): Remove extraneous left parenthesis.
(__TGMATH_BINARY_REAL_IMAG): Likewise, use proper arguments to
__builtin_classify_type.
(fma): Fix spelling of first argument.
2001-01-25 Ulrich Drepper <drepper@redhat.com> 2001-01-25 Ulrich Drepper <drepper@redhat.com>
* conform/data/unistd.h-data: Mark functions removed in XPG6 * conform/data/unistd.h-data: Mark functions removed in XPG6

39
math/tgmath.h
View File

@ -71,7 +71,7 @@
# define __TGMATH_BINARY_FIRST_REAL_ONLY(Val1, Val2, Fct) \ # define __TGMATH_BINARY_FIRST_REAL_ONLY(Val1, Val2, Fct) \
(__extension__ ({ __tgmath_real_type (Val1) __tgmres; \ (__extension__ ({ __tgmath_real_type (Val1) __tgmres; \
if (sizeof (Val1) == sizeof (double) \ if (sizeof (Val1) == sizeof (double) \
|| __builtin_classify_type (Val) != 8) \ || __builtin_classify_type (Val1) != 8) \
__tgmres = Fct (Val1, Val2); \ __tgmres = Fct (Val1, Val2); \
else if (sizeof (Val1) == sizeof (float)) \ else if (sizeof (Val1) == sizeof (float)) \
__tgmres = Fct##f (Val1, Val2); \ __tgmres = Fct##f (Val1, Val2); \
@ -83,28 +83,30 @@
(__extension__ ({ __tgmath_real_type ((Val1) + (Val2)) __tgmres; \ (__extension__ ({ __tgmath_real_type ((Val1) + (Val2)) __tgmres; \
if ((sizeof (Val1) > sizeof (double) \ if ((sizeof (Val1) > sizeof (double) \
|| sizeof (Val2) > sizeof (double)) \ || sizeof (Val2) > sizeof (double)) \
&& __builtin_classify_type (Val) == 8) \ && __builtin_classify_type ((Val1) + (Val2)) == 8) \
__tgmres = Fct##l (Val1, Val2); \ __tgmres = Fct##l (Val1, Val2); \
else if (sizeof (Val1) == sizeof (double) \ else if (sizeof (Val1) == sizeof (double) \
|| sizeof (Val2) == sizeof (double) \ || sizeof (Val2) == sizeof (double) \
|| __builtin_classify_type (Val) != 8) \ || __builtin_classify_type ((Val1) \
+ (Val2)) != 8) \
__tgmres = Fct (Val1, Val2); \ __tgmres = Fct (Val1, Val2); \
else \ else \
__tgmres = Fct (Val1, Val2); \ __tgmres = Fct##f (Val1, Val2); \
__tgmres; })) __tgmres; }))
# define __TGMATH_TERNARY_FIRST_SECOND_REAL_ONLY(Val1, Val2, Val3, Fct) \ # define __TGMATH_TERNARY_FIRST_SECOND_REAL_ONLY(Val1, Val2, Val3, Fct) \
(__extension__ ({ __tgmath_real_type ((Val1) + (Val2)) __tgmres; \ (__extension__ ({ __tgmath_real_type ((Val1) + (Val2)) __tgmres; \
if ((sizeof (Val1) > sizeof (double) \ if ((sizeof (Val1) > sizeof (double) \
|| sizeof (Val2) > sizeof (double)) \ || sizeof (Val2) > sizeof (double)) \
&& __builtin_classify_type (Val) == 8) \ && __builtin_classify_type ((Val1) + (Val2)) == 8) \
__tgmres = Fct##l (Val1, Val2, Val3); \ __tgmres = Fct##l (Val1, Val2, Val3); \
else if (sizeof (Val1) == sizeof (double) \ else if (sizeof (Val1) == sizeof (double) \
|| sizeof (Val2) == sizeof (double) \ || sizeof (Val2) == sizeof (double) \
|| __builtin_classify_type (Val) != 8) \ || __builtin_classify_type ((Val1) \
+ (Val2)) != 8) \
__tgmres = Fct (Val1, Val2, Val3); \ __tgmres = Fct (Val1, Val2, Val3); \
else \ else \
__tgmres = Fct (Val1, Val2, Val3); \ __tgmres = Fct##f (Val1, Val2, Val3); \
__tgmres; })) __tgmres; }))
# define __TGMATH_TERNARY_REAL_ONLY(Val1, Val2, Val3, Fct) \ # define __TGMATH_TERNARY_REAL_ONLY(Val1, Val2, Val3, Fct) \
@ -112,15 +114,17 @@
if ((sizeof (Val1) > sizeof (double) \ if ((sizeof (Val1) > sizeof (double) \
|| sizeof (Val2) > sizeof (double) \ || sizeof (Val2) > sizeof (double) \
|| sizeof (Val3) > sizeof (double)) \ || sizeof (Val3) > sizeof (double)) \
&& __builtin_classify_type (Val) == 8) \ && __builtin_classify_type ((Val1) + (Val2) \
+ (Val3)) == 8) \
__tgmres = Fct##l (Val1, Val2, Val3); \ __tgmres = Fct##l (Val1, Val2, Val3); \
else if (sizeof (Val1) == sizeof (double) \ else if (sizeof (Val1) == sizeof (double) \
|| sizeof (Val2) == sizeof (double) \ || sizeof (Val2) == sizeof (double) \
|| sizeof (Val3) == sizeof (double) \ || sizeof (Val3) == sizeof (double) \
|| __builtin_classify_type (Val) != 8) \ || __builtin_classify_type ((Val1) + (Val2) \
+ (Val3)) != 8) \
__tgmres = Fct (Val1, Val2, Val3); \ __tgmres = Fct (Val1, Val2, Val3); \
else \ else \
__tgmres = Fct (Val1, Val2, Val3); \ __tgmres = Fct##f (Val1, Val2, Val3); \
__tgmres; })) __tgmres; }))
/* XXX This definition has to be changed as soon as the compiler understands /* XXX This definition has to be changed as soon as the compiler understands
@ -136,8 +140,8 @@
__tgmres = Cfct##l (Val); \ __tgmres = Cfct##l (Val); \
} \ } \
else if (sizeof (__real__ (Val)) == sizeof (double) \ else if (sizeof (__real__ (Val)) == sizeof (double) \
|| (__builtin_classify_type (__real__ (Val)) \ || __builtin_classify_type (__real__ (Val)) \
!= 8) \ != 8) \
{ \ { \
if (sizeof (__real__ (Val)) == sizeof (Val)) \ if (sizeof (__real__ (Val)) == sizeof (Val)) \
__tgmres = Fct (Val); \ __tgmres = Fct (Val); \
@ -172,7 +176,9 @@
(__extension__ ({ __tgmath_real_type ((Val1) + (Val2)) __tgmres; \ (__extension__ ({ __tgmath_real_type ((Val1) + (Val2)) __tgmres; \
if ((sizeof (__real__ (Val1)) > sizeof (double) \ if ((sizeof (__real__ (Val1)) > sizeof (double) \
|| sizeof (__real__ (Val2)) > sizeof (double)) \ || sizeof (__real__ (Val2)) > sizeof (double)) \
&& __builtin_classify_type (__real__ (Val)) == 8) \ && __builtin_classify_type (__real__ (Val1) \
+ __real__ (Val2)) \
== 8) \
{ \ { \
if (sizeof (__real__ (Val1)) == sizeof (Val1) \ if (sizeof (__real__ (Val1)) == sizeof (Val1) \
&& sizeof (__real__ (Val2)) == sizeof (Val2)) \ && sizeof (__real__ (Val2)) == sizeof (Val2)) \
@ -182,8 +188,9 @@
} \ } \
else if (sizeof (__real__ (Val1)) == sizeof (double) \ else if (sizeof (__real__ (Val1)) == sizeof (double) \
|| sizeof (__real__ (Val2)) == sizeof(double) \ || sizeof (__real__ (Val2)) == sizeof(double) \
|| (__builtin_classify_type (__real__ (Val)) \ || __builtin_classify_type (__real__ (Val1) \
!= 8) \ + __real__ (Val2))\
!= 8) \
{ \ { \
if (sizeof (__real__ (Val1)) == sizeof (Val1) \ if (sizeof (__real__ (Val1)) == sizeof (Val1) \
&& sizeof (__real__ (Val2)) == sizeof (Val2)) \ && sizeof (__real__ (Val2)) == sizeof (Val2)) \
@ -388,7 +395,7 @@
/* Multiply-add function computed as a ternary operation. */ /* Multiply-add function computed as a ternary operation. */
#define fma(Vat1, Val2, Val3) \ #define fma(Val1, Val2, Val3) \
__TGMATH_TERNARY_REAL_ONLY (Val1, Val2, Val3, fma) __TGMATH_TERNARY_REAL_ONLY (Val1, Val2, Val3, fma)