This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: Stalled Patches
- From: Feng Wang <wf_cs at yahoo dot com>
- To: Bud Davis <bdavis9659 at comcast dot net>, gfortran <fortran at gcc dot gnu dot org>, patch <gcc-patches at gcc dot gnu dot org>
- Cc: Paul Brook <paul at codesourcery dot com>
- Date: Mon, 5 Apr 2004 20:53:37 +0800 (CST)
- Subject: Re: Stalled Patches
Apologize for so late answering. I throught they would not be considered till
middle April. I have no write cvs access. So these patches need you to apply
them, Paul.
1. PR 14377
http://gcc.gnu.org/ml/fortran/2004-03/msg00011.html
2. PR 14395
The patch is changed as Paul suggested and attached with this mail.
ChangeLog entry:
2004-04-05 Feng Wang <fengwang@nudt.edu.cn>
PR 14395
* trans-intrinsic.c (gfc_conv_intrinsic_cmplx): Fix the image part of
the result.
3. PR 14394
ChangeLog entry:
2004-04-05 Feng Wang <fengwang@nudt.edu.cn>
PR 14394
* trans-const.c (gfc_conv_mpf_to_tree): Loosen the maximum digits number of
the real value as converting mpf to string.
--- Bud Davis <bdavis9659@comcast.net> wrote：> Here are two patches that are
not moving. I am not sure if they are
> approved or not applied, or have not been accepted.
>
> http://gcc.gnu.org/ml/gcc-patches/2004-03/msg00828.html
> http://gcc.gnu.org/ml/fortran/2004-03/msg00003.html
>
>
> --bud
>
>
>
>
_________________________________________________________
Do You Yahoo!?
惠普TT游戏剧，玩游戏，中大奖！
http://cn.rd.yahoo.com/mail_cn/tag/*http://hp.allyes.com/laserjet/gamestory/index.html?jumpid=ex_hphqapcn_MongooseLJ1010/201073CN407016/Yahoo
*** fortran/trans-intrinsic.c Wed Mar 3 16:30:59 2004
--- gcc/gcc/fortran/trans-intrinsic.c Thu Mar 4 17:35:35 2004
*************** gfc_conv_intrinsic_cmplx (gfc_se * se, g
*** 747,755 ****
type = gfc_typenode_for_spec (&expr->ts);
arg = gfc_conv_intrinsic_function_args (se, expr);
real = convert (TREE_TYPE (type), TREE_VALUE (arg));
- arg = TREE_CHAIN (arg);
if (both)
! imag = convert (TREE_TYPE (type), TREE_VALUE (arg));
else
imag = build_real_from_int_cst (TREE_TYPE (type), integer_zero_node);
--- 747,760 ----
type = gfc_typenode_for_spec (&expr->ts);
arg = gfc_conv_intrinsic_function_args (se, expr);
real = convert (TREE_TYPE (type), TREE_VALUE (arg));
if (both)
! imag = convert (TREE_TYPE (type), TREE_VALUE (TREE_CHAIN (arg)));
! else if (TREE_CODE (TREE_TYPE (TREE_VALUE (arg))) == COMPLEX_TYPE)
! {
! arg = TREE_VALUE (arg);
! imag = build1 (IMAGPART_EXPR, TREE_TYPE (TREE_TYPE (arg)), arg);
! imag = convert (TREE_TYPE (type), imag);
! }
else
imag = build_real_from_int_cst (TREE_TYPE (type), integer_zero_node);