From f18227bf2ddeaa5e268233dfce373bb23da8c2e4 Mon Sep 17 00:00:00 2001
From: Nicola Mometto <me@bronsa.net>
Date: Mon, 26 Nov 2018 17:01:09 +0000
Subject: [PATCH] Add Memory.reset to OCaml API

---
 src/api/ml/z3.ml  | 4 ++++
 src/api/ml/z3.mli | 8 ++++++++
 2 files changed, 12 insertions(+)

diff --git a/src/api/ml/z3.ml b/src/api/ml/z3.ml
index 9d8a9c923..5fb87bf64 100644
--- a/src/api/ml/z3.ml
+++ b/src/api/ml/z3.ml
@@ -2023,3 +2023,7 @@ let toggle_warning_messages = Z3native.toggle_warning_messages
 let enable_trace = Z3native.enable_trace
 
 let disable_trace = Z3native.enable_trace
+
+module Memory = struct
+  let reset = Z3native.reset_memory
+end
diff --git a/src/api/ml/z3.mli b/src/api/ml/z3.mli
index ddc9f2a41..6d478c57f 100644
--- a/src/api/ml/z3.mli
+++ b/src/api/ml/z3.mli
@@ -3472,3 +3472,11 @@ val enable_trace : string -> unit
    Remarks: It is a NOOP otherwise.
 *)
 val disable_trace : string -> unit
+
+
+(** Memory management **)
+module Memory :
+sig
+  (** Reset all allocated resourced **)
+  val reset : unit -> unit
+end