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/resolve.c | |
| 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/resolve.c')
0 files changed, 0 insertions, 0 deletions