From 26a347c575d81f9bd4fe27904f55150c9cfbb327 Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Fri, 5 Jun 2009 16:20:25 +0000 Subject: builtins.c (do_mpc_ckconv, [...]): Use mpc_realref/mpc_imagref instead of MPC_RE/MPC_IM. * builtins.c (do_mpc_ckconv, do_mpc_arg1): Use mpc_realref/mpc_imagref instead of MPC_RE/MPC_IM. fortran: * simplify.c (call_mpc_func): Use mpc_realref/mpc_imagref instead of MPC_RE/MPC_IM. From-SVN: r148213 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/simplify.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index eda5dfe..5eacd0f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2009-06-05 Kaveh R. Ghazi + + * simplify.c (call_mpc_func): Use mpc_realref/mpc_imagref + instead of MPC_RE/MPC_IM. + 2009-06-05 Alexandre Oliva * trans-decl.c (gfc_build_qualified_array): Don't skip generation diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 98df0ed..fea1b91 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -223,8 +223,8 @@ call_mpc_func (mpfr_ptr result_re, mpfr_ptr result_im, mpc_init2 (c, mpfr_get_default_prec()); mpc_set_fr_fr (c, input_re, input_im, GFC_MPC_RND_MODE); func (c, c, GFC_MPC_RND_MODE); - mpfr_set (result_re, MPC_RE (c), GFC_RND_MODE); - mpfr_set (result_im, MPC_IM (c), GFC_RND_MODE); + mpfr_set (result_re, mpc_realref (c), GFC_RND_MODE); + mpfr_set (result_im, mpc_imagref (c), GFC_RND_MODE); mpc_clear (c); } #endif -- cgit v1.1