summaryrefslogtreecommitdiff
path: root/middle_end/flambda/remove_unused_closure_vars.mli
diff options
context:
space:
mode:
Diffstat (limited to 'middle_end/flambda/remove_unused_closure_vars.mli')
-rw-r--r--middle_end/flambda/remove_unused_closure_vars.mli26
1 files changed, 26 insertions, 0 deletions
diff --git a/middle_end/flambda/remove_unused_closure_vars.mli b/middle_end/flambda/remove_unused_closure_vars.mli
new file mode 100644
index 0000000000..225697a814
--- /dev/null
+++ b/middle_end/flambda/remove_unused_closure_vars.mli
@@ -0,0 +1,26 @@
+(**************************************************************************)
+(* *)
+(* OCaml *)
+(* *)
+(* Pierre Chambart, OCamlPro *)
+(* Mark Shinwell and Leo White, Jane Street Europe *)
+(* *)
+(* Copyright 2013--2016 OCamlPro SAS *)
+(* Copyright 2014--2016 Jane Street Group LLC *)
+(* *)
+(* All rights reserved. This file is distributed under the terms of *)
+(* the GNU Lesser General Public License version 2.1, with the *)
+(* special exception on linking described in the file LICENSE. *)
+(* *)
+(**************************************************************************)
+
+[@@@ocaml.warning "+a-4-9-30-40-41-42"]
+
+(* CR-soon mshinwell: Rename this module. *)
+
+(** Eliminate variables bound by sets of closures that are not required.
+ Also eliminate functions within sets of closures that are not required. *)
+val remove_unused_closure_variables
+ : remove_direct_call_surrogates:bool
+ -> Flambda.program
+ -> Flambda.program