diff options
| author | coqbot-app[bot] | 2020-10-21 08:56:36 +0000 |
|---|---|---|
| committer | GitHub | 2020-10-21 08:56:36 +0000 |
| commit | 637657847c6215e031947de042b927a9efd34edd (patch) | |
| tree | 421b6b984b6d3aec4bc77e9e97dd6d7a6d2b2038 /kernel/nativevalues.ml | |
| parent | 91e7863e64a5741b6530828c1642d765ddff41ae (diff) | |
| parent | c3cfb3c26241c374545380f08aa4345eb553000e (diff) | |
Merge PR #12955: Reroot primitive arrays on access
Reviewed-by: maximedenes
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] |