diff options
| author | Richard Biener <rguenther@suse.de> | 2021-11-30 15:25:17 +0100 |
|---|---|---|
| committer | Richard Biener <rguenther@suse.de> | 2021-11-30 15:27:46 +0100 |
| commit | 26493af58a1297d5d9fbb061694416deaee71220 (patch) | |
| tree | a06c31a435d807f0537973ec3f70f48918d01199 /gcc/fortran/frontend-passes.c | |
| parent | e43b15c88c242b14a8ced8e631c1f9b80e83d63c (diff) | |
| download | gcc-26493af58a1297d5d9fbb061694416deaee71220.zip gcc-26493af58a1297d5d9fbb061694416deaee71220.tar.gz gcc-26493af58a1297d5d9fbb061694416deaee71220.tar.bz2 | |
Add comment to indicate tail recursion
My previous change removed an unreachable break; there (an
unreachable continue; would have been more to the point). The
following re-adds a comment explaining that WALK_SUBEXPR_TAIL
does not fall through but tail recurses.
2021-11-30 Richard Biener <rguenther@suse.de>
gcc/fortran/
* frontend-passes.c (gfc_expr_walker): Add comment to
indicate tail recursion.
Diffstat (limited to 'gcc/fortran/frontend-passes.c')
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 16ee2af..4764c83 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -5229,6 +5229,7 @@ gfc_expr_walker (gfc_expr **e, walk_expr_fn_t exprfn, void *data) case EXPR_OP: WALK_SUBEXPR ((*e)->value.op.op1); WALK_SUBEXPR_TAIL ((*e)->value.op.op2); + /* No fallthru because of the tail recursion above. */ case EXPR_FUNCTION: for (a = (*e)->value.function.actual; a; a = a->next) WALK_SUBEXPR (a->expr); |