diff options
| author | Thomas Bauereiss | 2018-04-25 14:10:59 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2018-04-26 16:15:01 +0100 |
| commit | 292f68461306a5b48855e53c8a8d386b2cf0e773 (patch) | |
| tree | 529ea95b79fadafec76c0e755c2f306c763c6f09 /src/rewriter.mli | |
| parent | 14b172dc30d9db56279888fde22ac9de36935ab2 (diff) | |
Make effect propagation in rewriter more efficient
Use non-recursive fix_eff_exp instead of recursive propagate_exp_effect,
assuming that the effects of subexpressions have already been fixed by the
recursive calls of the rewriter.
Diffstat (limited to 'src/rewriter.mli')
| -rw-r--r-- | src/rewriter.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/rewriter.mli b/src/rewriter.mli index 08241a4b..83434764 100644 --- a/src/rewriter.mli +++ b/src/rewriter.mli @@ -206,6 +206,8 @@ val simple_annot : Parse_ast.l -> typ -> Parse_ast.l * tannot val add_p_typ : typ -> tannot pat -> tannot pat +val effect_of_pexp : tannot pexp -> effect + val union_eff_exps : (tannot exp) list -> effect val fix_eff_exp : tannot exp -> tannot exp |