Merge branch 'handle-stdout'

[SXSI/xpathcomp.git] / src / l2JIT.mli

diff --git a/src/l2JIT.mli b/src/l2JIT.mli
index 9d97d4a..3e1641d 100644 (file)
--- a/src/l2JIT.mli
+++ b/src/l2JIT.mli
@@ -23,11 +23,11 @@ val print_jump : Format.formatter -> jump -> unit
 val jump_stat_summary : Format.formatter -> unit
 
 type opcode =
-    CACHE
-  | RETURN
+  | RETURN of unit
   | LEFT of Translist.t * jump
   | RIGHT of Translist.t * jump
   | BOTH of Translist.t * jump * jump
+  | CACHE of unit
 
 type t = opcode Cache.Lvl2.t
 
@@ -44,3 +44,4 @@ val add : t -> int -> StateSet.Node.t -> opcode -> unit
 val compile : t -> Ata.t -> Tree.t -> TagSet.elt -> StateSet.t -> opcode
 
 val get_transitions : opcode -> Translist.t
+val init : unit -> unit