blob: bfd7d0f2b3a4652cd83991a745cc22e089dce7f9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
--- lib/ipaddr.ml.orig 2019-03-03 17:12:39 UTC
+++ lib/ipaddr.ml
@@ -69,9 +69,9 @@ let int_of_char c = match c with
let char_A = int_of_char 'A'
let int_of_char c = match c with
- | '0'..'9' -> Pervasives.int_of_char c - char_0
- | 'a'..'f' -> 10 + Pervasives.int_of_char c - char_a
- | 'A'..'F' -> 10 + Pervasives.int_of_char c - char_A
+ | '0'..'9' -> Stdlib.int_of_char c - char_0
+ | 'a'..'f' -> 10 + Stdlib.int_of_char c - char_a
+ | 'A'..'F' -> 10 + Stdlib.int_of_char c - char_A
| _ -> -1
let bad_char i s =
@@ -258,7 +258,7 @@ module V4 = struct
let compare (pre,sz) (pre',sz') =
let c = compare pre pre' in
- if c = 0 then Pervasives.compare sz sz' else c
+ if c = 0 then Stdlib.compare sz sz' else c
let ip = make
@@ -706,7 +706,7 @@ module V6 = struct
let compare (pre,sz) (pre',sz') =
let c = compare pre pre' in
- if c = 0 then Pervasives.compare sz sz' else c
+ if c = 0 then Stdlib.compare sz sz' else c
let ip = make
|
