diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-09-01 09:51:31 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-09-01 09:51:31 +0000 |
commit | 02c63cbf0c7ee8feacea68b39ceaebdce69c4af8 (patch) | |
tree | 7b002fb7dc79b03e4015edc50905630a0cb06818 /ide/minilib.ml | |
parent | d122799af45e81608a40063568e9f4b6d6deec33 (diff) |
Coq_makefile : bug when a project file is not in the current directory.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14443 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/minilib.ml')
-rw-r--r-- | ide/minilib.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ide/minilib.ml b/ide/minilib.ml index 96d257df6..54be52c19 100644 --- a/ide/minilib.ml +++ b/ide/minilib.ml @@ -122,6 +122,8 @@ let canonical_path_name p = (* We give up to find a canonical name and just simplify it... *) strip_path p +let correct_path f dir = if Filename.is_relative f then Filename.concat dir f else f + (* checks if two file names refer to the same (existing) file by comparing their device and inode. |