|
@@ -6,7 +6,7 @@ type pos = {
|
|
|
|
|
|
type path = string list * string
|
|
type path = string list * string
|
|
|
|
|
|
-module IntMap = Ptmap
|
|
|
|
|
|
+module IntMap = Map.Make(struct type t = int let compare i1 i2 = i2 - i1 end)
|
|
module StringMap = Map.Make(struct type t = string let compare = String.compare end)
|
|
module StringMap = Map.Make(struct type t = string let compare = String.compare end)
|
|
module Int32Map = Map.Make(struct type t = Int32.t let compare = Int32.compare end)
|
|
module Int32Map = Map.Make(struct type t = Int32.t let compare = Int32.compare end)
|
|
|
|
|