From f50c9c11fa6d9e998ba25930f6847b14088091f6 Mon Sep 17 00:00:00 2001 From: tobi Date: Sun, 16 Jan 2005 15:38:03 +0000 Subject: [PATCH] * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Fix signed / unsigned issue. Use build_int_cst instead of converting integer_zero_node. Remove unnecessary conversion. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@93727 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-intrinsic.c | 25 +++++++++++-------------- 2 files changed, 17 insertions(+), 14 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 190a68a..cc89f45 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2005-01-16 Tobias Schlueter + + * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Fix signed / + unsigned issue. Use build_int_cst instead of converting + integer_zero_node. Remove unnecessary conversion. + 2005-01-16 Steven G. Kargl PR 19168 diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 0deb7e8..e133ec7 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -1785,34 +1785,31 @@ gfc_conv_intrinsic_ishft (gfc_se * se, gfc_expr * expr) type = TREE_TYPE (arg); utype = gfc_unsigned_type (type); - /* We convert to an unsigned type because we want a logical shift. - The standard doesn't define the case of shifting negative - numbers, and we try to be compatible with other compilers, most - notably g77, here. */ - arg = convert (utype, arg); width = fold (build1 (ABS_EXPR, TREE_TYPE (arg2), arg2)); /* Left shift if positive. */ lshift = fold (build2 (LSHIFT_EXPR, type, arg, width)); - /* Right shift if negative. */ - rshift = convert (type, fold (build2 (RSHIFT_EXPR, utype, arg, width))); + /* Right shift if negative. + We convert to an unsigned type because we want a logical shift. + The standard doesn't define the case of shifting negative + numbers, and we try to be compatible with other compilers, most + notably g77, here. */ + rshift = fold_convert (type, build2 (RSHIFT_EXPR, utype, + convert (type, arg), width)); tmp = fold (build2 (GE_EXPR, boolean_type_node, arg2, - convert (TREE_TYPE (arg2), integer_zero_node))); + build_int_cst (TREE_TYPE (arg2), 0))); tmp = fold (build3 (COND_EXPR, type, tmp, lshift, rshift)); /* The Fortran standard allows shift widths <= BIT_SIZE(I), whereas gcc requires a shift width < BIT_SIZE(I), so we have to catch this special case. */ - num_bits = convert (TREE_TYPE (arg2), - build_int_cst (NULL, TYPE_PRECISION (type))); - cond = fold (build2 (GE_EXPR, boolean_type_node, width, - convert (TREE_TYPE (arg2), num_bits))); + num_bits = build_int_cst (TREE_TYPE (arg2), TYPE_PRECISION (type)); + cond = fold (build2 (GE_EXPR, boolean_type_node, width, num_bits)); se->expr = fold (build3 (COND_EXPR, type, cond, - convert (type, integer_zero_node), - tmp)); + build_int_cst (type, 0), tmp)); } /* Circular shift. AKA rotate or barrel shift. */ -- 2.7.4