diff options
| author | Guillaume Melquiond | 2020-08-31 08:52:05 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2020-10-08 11:16:48 +0200 |
| commit | e3764e1e857fce9b6d4cb018db676db3612c00a0 (patch) | |
| tree | 2972e326e1ec69b017c0789939d8faf481d01758 /kernel/nativevalues.ml | |
| parent | ddd7371dc3b82124c2bb36b93e6c2b185bcc02d2 (diff) | |
Remove occurrences of Parray.reroot.
Diffstat (limited to 'kernel/nativevalues.ml')
| -rw-r--r-- | kernel/nativevalues.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml index 9e17f97a56..05c98e4b87 100644 --- a/kernel/nativevalues.ml +++ b/kernel/nativevalues.ml @@ -739,15 +739,6 @@ let arraycopy accu vA t = no_check_arraycopy t else accu vA t -let no_check_arrayreroot t = - of_parray (Parray.reroot (to_parray t)) -[@@ocaml.inline always] - -let arrayreroot accu vA t = - if is_parray t then - no_check_arrayreroot t - else accu vA t - let no_check_arraylength t = mk_uint (Parray.length (to_parray t)) [@@ocaml.inline always] |