git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

c99_functions.c (ccoshf, [...]): Fix errant minus. 

2009-07-10  Steven G. Kargl  <kargl@gcc.gnu.org>

	* c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
	Fix errant minus.

From-SVN: r149479
This commit is contained in:
Steven G. Kargl 2009-07-10 15:25:31 +00:00
parent 3c92a2b888
commit 5bde96d27e
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2009-07-10 Steven G. Kargl <kargl@gcc.gnu.org>
* c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
Fix errant minus.
2009-07-08 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2009-07-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/40330 PR libfortran/40330

16
libgfortran/intrinsics/c99_functions.c
View File

@ -1165,7 +1165,7 @@ csinhl (long double complex a)
#endif #endif
/* cosh(a + i b) = cosh(a) cos(b) - i sinh(a) sin(b) */ /* cosh(a + i b) = cosh(a) cos(b) + i sinh(a) sin(b) */
#if !defined(HAVE_CCOSHF) #if !defined(HAVE_CCOSHF)
#define HAVE_CCOSHF 1 #define HAVE_CCOSHF 1
float complex float complex
@ -1176,7 +1176,7 @@ ccoshf (float complex a)
r = REALPART (a); r = REALPART (a);
i = IMAGPART (a); i = IMAGPART (a);
COMPLEX_ASSIGN (v, coshf (r) * cosf (i), - (sinhf (r) * sinf (i))); COMPLEX_ASSIGN (v, coshf (r) * cosf (i), sinhf (r) * sinf (i));
return v; return v;
} }
#endif #endif
@ -1191,7 +1191,7 @@ ccosh (double complex a)
r = REALPART (a); r = REALPART (a);
i = IMAGPART (a); i = IMAGPART (a);
COMPLEX_ASSIGN (v, cosh (r) * cos (i), - (sinh (r) * sin (i))); COMPLEX_ASSIGN (v, cosh (r) * cos (i), sinh (r) * sin (i));
return v; return v;
} }
#endif #endif
@ -1206,13 +1206,13 @@ ccoshl (long double complex a)
r = REALPART (a); r = REALPART (a);
i = IMAGPART (a); i = IMAGPART (a);
COMPLEX_ASSIGN (v, coshl (r) * cosl (i), - (sinhl (r) * sinl (i))); COMPLEX_ASSIGN (v, coshl (r) * cosl (i), sinhl (r) * sinl (i));
return v; return v;
} }
#endif #endif
/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 - i tanh(a) tan(b)) */ /* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 + i tanh(a) tan(b)) */
#if !defined(HAVE_CTANHF) #if !defined(HAVE_CTANHF)
#define HAVE_CTANHF 1 #define HAVE_CTANHF 1
float complex float complex
@ -1224,7 +1224,7 @@ ctanhf (float complex a)
rt = tanhf (REALPART (a)); rt = tanhf (REALPART (a));
it = tanf (IMAGPART (a)); it = tanf (IMAGPART (a));
COMPLEX_ASSIGN (n, rt, it); COMPLEX_ASSIGN (n, rt, it);
COMPLEX_ASSIGN (d, 1, - (rt * it)); COMPLEX_ASSIGN (d, 1, rt * it);
return n / d; return n / d;
} }
@ -1241,7 +1241,7 @@ ctanh (double complex a)
rt = tanh (REALPART (a)); rt = tanh (REALPART (a));
it = tan (IMAGPART (a)); it = tan (IMAGPART (a));
COMPLEX_ASSIGN (n, rt, it); COMPLEX_ASSIGN (n, rt, it);
COMPLEX_ASSIGN (d, 1, - (rt * it)); COMPLEX_ASSIGN (d, 1, rt * it);
return n / d; return n / d;
} }
@ -1258,7 +1258,7 @@ ctanhl (long double complex a)
rt = tanhl (REALPART (a)); rt = tanhl (REALPART (a));
it = tanl (IMAGPART (a)); it = tanl (IMAGPART (a));
COMPLEX_ASSIGN (n, rt, it); COMPLEX_ASSIGN (n, rt, it);
COMPLEX_ASSIGN (d, 1, - (rt * it)); COMPLEX_ASSIGN (d, 1, rt * it);
return n / d; return n / d;
} }