diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-29 13:12:08 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-29 13:12:08 +0000 |
| commit | 1bce6b0f9f8cd614038a6e7fc21fb984724204a4 (patch) | |
| tree | 48683822666bc49b0101ed78f4d5059e834eb492 /caml/RTLgenaux.ml | |
| parent | 12421d717405aa7964e437fc1167a23699b61ecc (diff) | |
Extract Coq lists to Caml lists.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@929 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml/RTLgenaux.ml')
| -rw-r--r-- | caml/RTLgenaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/caml/RTLgenaux.ml b/caml/RTLgenaux.ml index d920380..4c1fc05 100644 --- a/caml/RTLgenaux.ml +++ b/caml/RTLgenaux.ml @@ -28,8 +28,8 @@ module IntSet = Set.Make(IntOrd) let normalize_table tbl = let rec norm seen = function - | CList.Coq_nil -> [] - | CList.Coq_cons(Datatypes.Coq_pair(key, act), rem) -> + | [] -> [] + | Datatypes.Coq_pair(key, act) :: rem -> if IntSet.mem key seen then norm seen rem else (key, act) :: norm (IntSet.add key seen) rem |