diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-11-06 22:36:54 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-11-06 22:36:54 +0100 |
| commit | eaee02a520c7d5619c310cb43ffc5a58c89ccdc7 (patch) | |
| tree | 5c2b289cb9d0de3d7f37994ef9efba47a95760a8 /gcc/fortran/resolve.c | |
| parent | 9965f21f9ce932dd77935cd0375085571e8dffa0 (diff) | |
| download | gcc-eaee02a520c7d5619c310cb43ffc5a58c89ccdc7.zip gcc-eaee02a520c7d5619c310cb43ffc5a58c89ccdc7.tar.gz gcc-eaee02a520c7d5619c310cb43ffc5a58c89ccdc7.tar.bz2 | |
gfortran.h (gfc_extend_expr): Modified prototype.
2011-11-06 Janus Weil <janus@gcc.gnu.org>
* gfortran.h (gfc_extend_expr): Modified prototype.
* interface.c (gfc_extend_expr): Return 'match' instead of 'gfc_try'.
Remove argument 'real_error'.
* resolve.c (resolve_operator): Modified call to 'gfc_extend_expr'.
From-SVN: r181044
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 30f5f55..ab251b5 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4034,11 +4034,10 @@ resolve_operator (gfc_expr *e) bad_op: { - bool real_error; - if (gfc_extend_expr (e, &real_error) == SUCCESS) + match m = gfc_extend_expr (e); + if (m == MATCH_YES) return SUCCESS; - - if (real_error) + if (m == MATCH_ERROR) return FAILURE; } |