Commit cca9e4f5 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Fixed the public definition of the type [production] in [Inspection].

parent 064148f8
...@@ -130,8 +130,8 @@ let inspection_api grammar () = ...@@ -130,8 +130,8 @@ let inspection_api grammar () =
IIInclude ( IIInclude (
with_types WKDestructive with_types WKDestructive
"MenhirLib.IncrementalEngine.INSPECTION" [ "MenhirLib.IncrementalEngine.INSPECTION" [
"xsymbol", TypApp ("xsymbol", []); (* TEMPORARY *) SymbolType.tcxsymbol, SymbolType.txsymbol;
"production", tint (* TEMPORARY *) "production", TypApp ("MenhirInterpreter.production", [])
] ]
) :: ) ::
......
...@@ -16,6 +16,7 @@ val symbolgadtdef: unit -> IL.interface ...@@ -16,6 +16,7 @@ val symbolgadtdef: unit -> IL.interface
GADT above. Thus, it is not parameterized. *) GADT above. Thus, it is not parameterized. *)
val dataX: string val dataX: string
val tcxsymbol: string
val txsymbol: IL.typ val txsymbol: IL.typ
val xsymboldef: unit -> IL.interface val xsymboldef: unit -> IL.interface
...@@ -16,6 +16,7 @@ module Make (T : TableFormat.TABLES) ...@@ -16,6 +16,7 @@ module Make (T : TableFormat.TABLES)
: EngineTypes.ENGINE with type state = int : EngineTypes.ENGINE with type state = int
and type token = T.token and type token = T.token
and type semantic_value = Obj.t and type semantic_value = Obj.t
and type production = int
(* This functor is also invoked inside the generated parser. It (* This functor is also invoked inside the generated parser. It
constructs the inspection API on top of the inspection tables. *) constructs the inspection API on top of the inspection tables. *)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment