Commit 61697906 authored by POTTIER Francois's avatar POTTIER Francois

Removed [Lr1.fold_reduced].

parent 4c65eb03
......@@ -439,10 +439,10 @@ let (shiftreduce : Production.index -> bool), shiftreducecount =
(* Check that all call sites push a stack cell and have a
default reduction. *)
Lr1.fold_reduced (fun s accu ->
Lr1.NodeSet.fold (fun s accu ->
accu && (match Default.has_default_reduction s with None -> false | Some _ -> true)
&& (runpushes s)
) prod true
) (Lr1.production_where prod) true
)
......
......@@ -938,8 +938,8 @@ let () =
(* For each production, compute where (that is, in which states) this
production can be reduced. This computation is done AFTER default conflict
resolution (see below). It is an error to call the accessor functions
[may_reduce], [ever_reduced], [fold_reduced] before conflict resolution. *)
resolution (see below). It is an error to call any of the accessor
functions before default conflict resolution has taken place. *)
let production_where : NodeSet.t ProductionMap.t option ref =
ref None
......@@ -981,9 +981,6 @@ let may_reduce node prod =
let ever_reduced prod =
not (NodeSet.is_empty (production_where prod))
let fold_reduced f prod accu =
NodeSet.fold f (production_where prod) accu
(* ------------------------------------------------------------------------ *)
(* When requested by the code generator, apply default conflict
resolution to ensure that the automaton is deterministic. *)
......
......@@ -193,8 +193,3 @@ val may_reduce: node -> Production.index -> bool
(* [ever_reduced prod] tells whether production [prod] is ever reduced. *)
val ever_reduced: Production.index -> bool
(* [fold_reduced prod] folds over all states that can reduce
production [prod]. *)
val fold_reduced: (node -> 'a -> 'a) -> Production.index -> 'a -> 'a
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