diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-01-06 18:09:26 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-01-06 18:09:35 +0100 |
| commit | 341909bbc5c1c59e81dfad2f2532602e2561ec36 (patch) | |
| tree | 28fb527cb921b4e02d4722549a24f6e2366f5c76 /checker | |
| parent | bf16900f43c1291136673e7614587fe51eebc88f (diff) | |
rename: vi -> vio
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/check.ml | 6 | ||||
| -rw-r--r-- | checker/cic.mli | 2 | ||||
| -rw-r--r-- | checker/values.ml | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/checker/check.ml b/checker/check.ml index 1f84b56b5..bda0224ee 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -332,10 +332,10 @@ let intern_from_file (dir, f) = errorlabstrm "intern_from_file" (str "The file "++str f++str " contains unfinished tasks"); if opaque_csts <> None then begin - pp (str " (was a vi file) "); + pp (str " (was a vio file) "); Option.iter (fun (_,_,b) -> if not b then errorlabstrm "intern_from_file" - (str "The file "++str f++str " is still a .vi")) + (str "The file "++str f++str " is still a .vio")) opaque_csts; Validate.validate !Flags.debug Values.v_univopaques opaque_csts; end; @@ -344,7 +344,7 @@ let intern_from_file (dir, f) = Validate.validate !Flags.debug Values.v_opaques table; Flags.if_verbose ppnl (str" done]"); pp_flush (); let digest = - if opaque_csts <> None then Cic.Dvivo (digest,udg) + if opaque_csts <> None then Cic.Dviovo (digest,udg) else (Cic.Dvo digest) in md,table,opaque_csts,digest with e -> Flags.if_verbose ppnl (str" failed!]"); raise e in diff --git a/checker/cic.mli b/checker/cic.mli index 12146715a..c8b7c9e66 100644 --- a/checker/cic.mli +++ b/checker/cic.mli @@ -404,7 +404,7 @@ type compilation_unit_name = DirPath.t type vodigest = | Dvo of Digest.t (* The digest of the seg_lib part *) - | Dvivo of Digest.t * Digest.t (* The digest of the seg_lib + seg_univ part *) + | Dviovo of Digest.t * Digest.t (* The digest of the seg_lib+seg_univ part *) type library_info = compilation_unit_name * vodigest diff --git a/checker/values.ml b/checker/values.ml index ea3df47f5..0ac8bf78c 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -13,7 +13,7 @@ To ensure this file is up-to-date, 'make' now compares the md5 of cic.mli with a copy we maintain here: -MD5 ed14962eac3aa2feba45a572f72b9531 checker/cic.mli +MD5 27f35ee65fef280d5a7a80bb11b31837 checker/cic.mli *) |