From 26fcc4dbd92f367ecb20f4457cdf887eea0b6568 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Thu, 29 Jan 2009 09:13:53 +0000
Subject: Conflict between extraction/CList and cil/obj/xxx/clist on
 case-insensitive file systems.  Replaced CList by CoqList and likewise for
 CString and CInt.  Removed useless references to CList in hand-written Caml
 code.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@951 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 lib/Camlcoq.ml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'lib')

diff --git a/lib/Camlcoq.ml b/lib/Camlcoq.ml
index 98fd79c..3660a10 100644
--- a/lib/Camlcoq.ml
+++ b/lib/Camlcoq.ml
@@ -13,7 +13,6 @@
 (* Library of useful Caml <-> Coq conversions *)
 
 open Datatypes
-open CList
 open BinPos
 open BinInt
 
@@ -91,15 +90,15 @@ let char_of_ascii (Ascii.Ascii(a0, a1, a2, a3, a4, a5, a6, a7)) =
 
 let coqstring_length s =
   let rec len accu = function
-  | CString.EmptyString -> accu
-  | CString.CString(_, s) -> len (accu + 1) s
+  | CoqString.EmptyString -> accu
+  | CoqString.CoqString(_, s) -> len (accu + 1) s
   in len 0 s
 
 let camlstring_of_coqstring s =
   let r = String.create (coqstring_length s) in
   let rec fill pos = function
-  | CString.EmptyString -> r
-  | CString.CString(c, s) -> r.[pos] <- char_of_ascii c; fill (pos + 1) s
+  | CoqString.EmptyString -> r
+  | CoqString.CoqString(c, s) -> r.[pos] <- char_of_ascii c; fill (pos + 1) s
   in fill 0 s
 
 (* Timing facility *)
-- 
cgit v1.2.3