From 292f68461306a5b48855e53c8a8d386b2cf0e773 Mon Sep 17 00:00:00 2001
From: Thomas Bauereiss
Date: Wed, 25 Apr 2018 14:10:59 +0100
Subject: 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.
---
 src/rewriter.mli | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/rewriter.mli')

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
-- 
cgit v1.2.3