diff options
| author | Maxime Dénès | 2019-12-03 14:27:36 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2020-01-08 15:07:15 +0100 |
| commit | 8d1bd82130a39e579986a7ad6821353149fdc38f (patch) | |
| tree | 4922a7b719c0fb4f586b2e27f0f31f13b0e4a809 /plugins/extraction | |
| parent | e3640bdbbac76807457d50ac60e93192d137f3f9 (diff) | |
Avoid warning 40
Diffstat (limited to 'plugins/extraction')
| -rw-r--r-- | plugins/extraction/common.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml index 4ab1ac2fba..219afcf408 100644 --- a/plugins/extraction/common.ml +++ b/plugins/extraction/common.ml @@ -662,7 +662,7 @@ let check_extract_string () = | Ocaml -> "string" | _ -> raise Not_found in - String.equal (find_custom (IndRef (ind_string, 0))) string_type + String.equal (find_custom (GlobRef.IndRef (ind_string, 0))) string_type with Not_found -> false (* The argument is known to be of type Coq.Strings.String.string. @@ -671,9 +671,9 @@ let check_extract_string () = let rec is_native_string_rec = function (* "EmptyString" constructor *) - | MLcons(_, ConstructRef(_, 1), []) -> true + | MLcons(_, GlobRef.ConstructRef(_, 1), []) -> true (* "String" constructor *) - | MLcons(_, ConstructRef(_, 2), [hd; tl]) -> + | MLcons(_, GlobRef.ConstructRef(_, 2), [hd; tl]) -> is_native_char hd && is_native_string_rec tl (* others *) | _ -> false @@ -684,7 +684,7 @@ let rec is_native_string_rec = function let is_native_string c = match c with - | MLcons(_, ConstructRef((kn,0), j), l) -> + | MLcons(_, GlobRef.ConstructRef((kn,0), j), l) -> MutInd.equal kn ind_string && check_extract_string () && is_native_string_rec c @@ -696,10 +696,10 @@ let get_native_string c = let buf = Buffer.create 64 in let rec get = function (* "EmptyString" constructor *) - | MLcons(_, ConstructRef(_, 1), []) -> + | MLcons(_, GlobRef.ConstructRef(_, 1), []) -> Buffer.contents buf (* "String" constructor *) - | MLcons(_, ConstructRef(_, 2), [hd; tl]) -> + | MLcons(_, GlobRef.ConstructRef(_, 2), [hd; tl]) -> Buffer.add_char buf (get_native_char hd); get tl (* others *) |