Rough frame allocations

[tiger.ml.git] / compiler / src / lib / tiger / tiger_env.mli

diff --git a/compiler/src/lib/tiger/tiger_env.mli b/compiler/src/lib/tiger/tiger_env.mli
index 91747e5..46ddba2 100644 (file)
--- a/compiler/src/lib/tiger/tiger_env.mli
+++ b/compiler/src/lib/tiger/tiger_env.mli
@@ -7,3 +7,10 @@ val get_val : t -> Tiger_symbol.t -> Tiger_env_value.t option
 
 val set_typ : t -> Tiger_symbol.t -> Tiger_env_type.t -> t
 val set_val : t -> Tiger_symbol.t -> Tiger_env_value.t -> t
+
+val loop_begin   : t -> (Tiger_symbol.t * t)
+val loop_end     : t ->  Tiger_symbol.t -> t
+val loop_current : t ->  Tiger_symbol.t option
+
+val level_set : t -> Tiger_translate.Level.t -> t
+val level_get : t -> Tiger_translate.Level.t