return values for tanh

git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@387 211d60ee-9f03-0410-a15a-8952a2c7a4e4

1 files changed, 7 insertions, 3 deletions

diff --git a/src/tanh.c b/src/tanh.c
index f2cd7fc..4f0ef54 100644
--- a/src/tanh.c
+++ b/src/tanh.c
@@ -23,24 +23,28 @@ MA 02111-1307, USA. */
 #include "mpc.h"
 #include "mpc-impl.h"
 
-void
+int
 mpc_tanh (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd)
 {
   /* tanh(op) = -i*tan(i*op) = conj(-i*tan(conj(-i*op))) */
   mpc_t z;
   mpc_t tan_z;
+  int inex;
 
   /* z := conj(-i * op) and rop = conj(-i * tan(z)), in other words, we have
-     to switch real and imaginary parts. Let us set them without copying 
+     to switch real and imaginary parts. Let us set them without copying
      significands. */
   MPC_RE (z)[0] = MPC_IM (op)[0];
   MPC_IM (z)[0] = MPC_RE (op)[0];
   MPC_RE (tan_z)[0] = MPC_IM (rop)[0];
   MPC_IM (tan_z)[0] = MPC_RE (rop)[0];
 
-  mpc_tan (tan_z, z, RNDC (MPC_RND_IM (rnd), MPC_RND_RE (rnd)));
+  inex = mpc_tan (tan_z, z, RNDC (MPC_RND_IM (rnd), MPC_RND_RE (rnd)));
 
   /* tan_z and rop parts share the same significands, copy the rest now. */
   MPC_RE (rop)[0] = MPC_IM (tan_z)[0];
   MPC_IM (rop)[0] = MPC_RE (tan_z)[0];
+
+  /* swap inexact flags for real and imaginary parts */
+  return MPC_INEX (MPC_INEX_IM (inex), MPC_INEX_RE (inex));
 }