From 3ad26e3de5780b84b2723d44d52094bab6b23786 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Mon, 3 Feb 2014 14:34:06 +0100 Subject: Allocation-friendly mapping functions in Nametab. --- kernel/names.ml | 1 + kernel/names.mli | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'kernel') 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 } *) -- cgit v1.2.3