diff options
| author | herbelin | 2011-04-08 17:57:54 +0000 |
|---|---|---|
| committer | herbelin | 2011-04-08 17:57:54 +0000 |
| commit | 78ce1610383acac630d00411d9bc724908ab14af (patch) | |
| tree | 2da4ade639fa37c121f06e53dda435acd106ce44 | |
| parent | c229186019d23d9893a12c5aae9a0f128f013a3d (diff) | |
Applying Tom Prince's patch to coqdep not correctly applying the -R visibility
discipline to files from stdlib or user library
(also factorized code with add_known)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13982 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tools/coqdep.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/coqdep.ml b/tools/coqdep.ml index bfd0e9a070..e9226d3836 100644 --- a/tools/coqdep.ml +++ b/tools/coqdep.ml @@ -38,9 +38,9 @@ let rec warning_mult suf iter = let add_coqlib_known phys_dir log_dir f = match get_extension f [".vo"] with | (basename,".vo") -> - let name = log_dir@[basename] in - Hashtbl.add coqlibKnown [basename] (); - Hashtbl.add coqlibKnown name () + let name = log_dir@[basename] in + let paths = suffixes name in + List.iter (fun f -> Hashtbl.add coqlibKnown f ()) paths | _ -> () let sort () = |