Commits

Anonymous committed 4125532

Fix [equal] and [compare] for [Nx_ip4_addr] and [Nx_ip6_addr] so they work
with ocaml-3.10.2, which catches a stupid bug in external linkage decls
that previous versions didn't care about.

Comments (0)

Files changed (2)

nx/nx_ip4_addr.ml

 let all_hosts_group = all_hosts_group_ ()
 let all_routers_group = all_routers_group_ ()
 
-external equal: ([> opaque ] t as 'a) -> 'a -> bool = "nx_ip4_addr_equal"
-external compare: ([> opaque ] t as 'a) -> 'a -> int =
-    "nx_ip4_addr_compare_aux"
+external equal: [> opaque ] t -> [> opaque ] t -> bool = "nx_ip4_addr_equal"
+external compare: [> opaque ] t -> [> opaque ] t -> int =
+	"nx_ip4_addr_compare_aux"
 
 external pton: string -> opaque t option = "nx_inet_pton4"
 external ntop: [> opaque ] t -> string = "nx_inet_ntop4"

nx/nx_ip6_addr.ml

 let link_local_all_nodes = link_local_all_nodes_ ()
 let link_local_all_routers = link_local_all_routers_ ()
 
-external equal: ([> opaque ] t as 'a) -> 'a -> bool = "nx_ip6_addr_equal"
-external compare: ([> opaque ] t as 'a) -> 'a -> int =
+external equal: [> opaque ] t -> [> opaque ] t -> bool = "nx_ip6_addr_equal"
+external compare: [> opaque ] t -> [> opaque] t -> int =
     "nx_ip6_addr_compare_aux"
 
 external pton: string -> opaque t option = "nx_inet_pton6"