diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-07-15 09:50:04 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-07-15 09:50:04 +0200 |
| commit | 23b1042021c8e95a5faa7c58c6ef1665d48afed7 (patch) | |
| tree | 8dfb9081ba43c121a442439a830b02ebb771f680 /gcc/fortran/trans.h | |
| parent | 53f00dde262894c19844a94404d7f7510f182e97 (diff) | |
| download | gcc-23b1042021c8e95a5faa7c58c6ef1665d48afed7.zip gcc-23b1042021c8e95a5faa7c58c6ef1665d48afed7.tar.gz gcc-23b1042021c8e95a5faa7c58c6ef1665d48afed7.tar.bz2 | |
trans.h (gfc_build_compare_string): Add CODE argument.
* trans.h (gfc_build_compare_string): Add CODE argument.
* trans-intrinsic.c (gfc_conv_intrinsic_strcmp): Pass OP to
gfc_build_compare_string.
* trans-expr.c (gfc_conv_expr_op): Pass CODE to
gfc_build_compare_string.
(string_to_single_character): Rename len variable to length.
(gfc_optimize_len_trim): New function.
(gfc_build_compare_string): Add CODE argument. If it is EQ_EXPR
or NE_EXPR and one of the strings is string literal with LEN_TRIM
bigger than the length of the other string, they compare unequal.
From-SVN: r162208
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index cd80282..c30d3b8 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -279,7 +279,7 @@ void gfc_make_safe_expr (gfc_se * se); void gfc_conv_string_parameter (gfc_se * se); /* Compare two strings. */ -tree gfc_build_compare_string (tree, tree, tree, tree, int); +tree gfc_build_compare_string (tree, tree, tree, tree, int, enum tree_code); /* Add an item to the end of TREE_LIST. */ tree gfc_chainon_list (tree, tree); |