diff options
| author | coqbot-app[bot] | 2021-03-26 14:17:20 +0000 |
|---|---|---|
| committer | GitHub | 2021-03-26 14:17:20 +0000 |
| commit | c2ed2e395f2164ebbc550e70899c49af23e1ad1e (patch) | |
| tree | 62c140cd7785e416ccea19caf8a0cc05d2871cfb /kernel/nativelambda.ml | |
| parent | 71453f1643b55679d44caee30ce5541b5aa47263 (diff) | |
| parent | 5300e23cf5ac31fb835c5cfbe7ce1ed56f338f99 (diff) | |
Merge PR #14007: Never store persistent arrays as VM structured values.
Reviewed-by: silene
Diffstat (limited to 'kernel/nativelambda.ml')
| -rw-r--r-- | kernel/nativelambda.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index f3b483467d..aa30a01134 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -381,10 +381,7 @@ let makeblock env ind tag nparams arity args = Lmakeblock(prefix, ind, tag, args) let makearray args def = - try - let p = Array.map get_value args in - Lval (Nativevalues.parray_of_array p (get_value def)) - with Not_found -> Lparray (args, def) + Lparray (args, def) (* Translation of constants *) |