diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-02-03 14:34:06 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-02-03 17:35:54 +0100 |
| commit | 3ad26e3de5780b84b2723d44d52094bab6b23786 (patch) | |
| tree | 35c9f8b7d5ec87c3f6125acdd4febdeef0d701dc /kernel | |
| parent | 5d7081cccd661a4acd5c3acbff80156bff32322e (diff) | |
Allocation-friendly mapping functions in Nametab.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/names.ml | 1 | ||||
| -rw-r--r-- | kernel/names.mli | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index e6c5686ed..7cb8dc4c4 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -122,6 +122,7 @@ type variable = Id.t type module_ident = Id.t +module ModIdset = Id.Set module ModIdmap = Id.Map (** {6 Directory paths = section names paths } *) diff --git a/kernel/names.mli b/kernel/names.mli index 16d0ae5d0..816467721 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -79,7 +79,8 @@ type name = Name.t = Name of Id.t | Anonymous type variable = Id.t type module_ident = Id.t -module ModIdmap : Map.S with type key = module_ident +module ModIdset : Set.S with type elt = module_ident +module ModIdmap : Map.ExtS with type key = module_ident and module Set := ModIdset (** {6 Directory paths = section names paths } *) |