diff options
Diffstat (limited to 'src')
| -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, |