diff options
| author | Kathy Gray | 2015-09-25 10:14:29 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-09-25 10:14:29 +0100 |
| commit | dd3ae8f47b8bfca52507fbd2a234d064e4f1ca9d (patch) | |
| tree | 7ca26e82b79dd4b72cf73a6b1d42e383f9cf3b1f | |
| parent | 4ce0ce8461b7cbf3e710f42ab3edb50902c7d996 (diff) | |
building version of last change, removing stray )
| -rw-r--r-- | src/pretty_print.ml | 3 | ||||
| -rw-r--r-- | src/rewriter.ml | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 0ca8a582..6337e6e0 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -1296,7 +1296,8 @@ let doc_pat_ocaml, doc_atomic_pat_ocaml = let doc_exp_ocaml, doc_let_ocaml = let rec exp (E_aux (e, (_,annot))) = match e with - | E_assign(le,e) -> + | E_assign((LEXP_aux(le_act,tannot) as le),e) -> + (*TODO: Check the type, if le is a ref cell, then do this. if le is a register or a memory function (external), then call out if le is a register or a memory function (internal), then replace with call diff --git a/src/rewriter.ml b/src/rewriter.ml index 8b1adfc5..500c2be4 100644 --- a/src/rewriter.ml +++ b/src/rewriter.ml @@ -117,7 +117,7 @@ let rewrite_pat rewriters nmap (P_aux (pat,(l,annot))) = rewrap (P_vector ps) | P_lit _ | P_wild | P_id _ -> rewrap pat | P_as(pat,id) -> rewrap (P_as( rewrite pat, id)) - | P_typ(typ,pat) -> rewrite pat) + | P_typ(typ,pat) -> rewrite pat | P_app(id ,pats) -> rewrap (P_app(id, List.map rewrite pats)) | P_record(fpats,_) -> rewrap (P_record(List.map (fun (FP_aux(FP_Fpat(id,pat),pannot)) -> FP_aux(FP_Fpat(id, rewrite pat), pannot)) fpats, |