Commit e33a97c9 authored by POTTIER Francois's avatar POTTIER Francois

Removed dead code (which was commented out).

parent 4a1f3e92
......@@ -411,23 +411,7 @@ end = struct
(* For now, we implement a mapping of [s, nt, a, z] to [w]. *)
module H = Hashtbl
(*
Hashtbl.Make(struct
type t = Nonterminal.t * Terminal.t * Terminal.t
let equal = (=)
let hash = Hashtbl.hash
end)
*)
(*
module M =
MySet.Make(struct
type t = Nonterminal.t * Terminal.t * W.word
let compare (nt1, a1, _w1) (nt2, a2, _w2) =
let c = Nonterminal.compare nt1 nt2 in
if c <> 0 then c else
Terminal.compare a1 a2
end)
*)
let table = (* a pretty large table... *)
Array.init (Lr1.n) (fun _ -> H.create 6311)
......
Markdown is supported
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