diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-07-25 16:22:17 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-07-25 16:22:17 +0000 |
commit | 88b98f00facde51bff705a3fb6c32a73937428cb (patch) | |
tree | c6ddc1be5a9790044e0380a15fa6b48e60cc7acc /lib/Camlcoq.ml | |
parent | 6c22a0fe2545bf65acdbd067aea25f6e1b96a7cd (diff) | |
download | compcert-88b98f00facde51bff705a3fb6c32a73937428cb.tar.gz compcert-88b98f00facde51bff705a3fb6c32a73937428cb.zip |
Use Extraction Blacklist
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1114 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib/Camlcoq.ml')
-rw-r--r-- | lib/Camlcoq.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Camlcoq.ml b/lib/Camlcoq.ml index 3660a10a..c7abdccd 100644 --- a/lib/Camlcoq.ml +++ b/lib/Camlcoq.ml @@ -90,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 - | CoqString.EmptyString -> accu - | CoqString.CoqString(_, s) -> len (accu + 1) s + | String0.EmptyString -> accu + | String0.String(_, 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 - | CoqString.EmptyString -> r - | CoqString.CoqString(c, s) -> r.[pos] <- char_of_ascii c; fill (pos + 1) s + | String0.EmptyString -> r + | String0.String(c, s) -> r.[pos] <- char_of_ascii c; fill (pos + 1) s in fill 0 s (* Timing facility *) |