diff options
author | 2012-10-29 13:02:23 +0000 | |
---|---|---|
committer | 2012-10-29 13:02:23 +0000 | |
commit | 278517722988d040cb8da822e319d723670ac519 (patch) | |
tree | 92316184aec004570c6567f0d585167e47dd52ae /kernel/names.mli | |
parent | 0699ef2ffba984e7b7552787894b142dd924f66a (diff) |
Removed many calls to OCaml generic equality. This was done by
writing our own comparison functions, and enforcing monomorphization
in many places. This should be more efficient, btw. Still a work
in progress.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15932 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/names.mli')
-rw-r--r-- | kernel/names.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/names.mli b/kernel/names.mli index bb6696389..5c2bd5b0a 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -40,6 +40,8 @@ module ModIdmap : Map.S with type key = module_ident type dir_path +val dir_path_ord : dir_path -> dir_path -> int + (** Inner modules idents on top of list (to improve sharing). For instance: A.B.C is ["C";"B";"A"] *) val make_dirpath : module_ident list -> dir_path @@ -68,6 +70,8 @@ module Labmap : Map.S with type key = label type mod_bound_id +val mod_bound_id_ord : mod_bound_id -> mod_bound_id -> int + (** The first argument is a file name - to prevent conflict between different files *) |