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/vmlambda.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/vmlambda.ml')
| -rw-r--r-- | kernel/vmlambda.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/kernel/vmlambda.ml b/kernel/vmlambda.ml index e353348ac7..ee32384ec9 100644 --- a/kernel/vmlambda.ml +++ b/kernel/vmlambda.ml @@ -494,10 +494,6 @@ let makeblock tag nparams arity args = else Lmakeblock(tag, args) let makearray args def = - try - let p = Array.map get_value args in - Lval (val_of_parray @@ Parray.unsafe_of_array p (get_value def)) - with Not_found -> let ar = Lmakeblock(0, args) in (* build the ocaml array *) let kind = Lmakeblock(0, [|ar; def|]) in (* Parray.Array *) Lmakeblock(0,[|kind|]) (* the reference *) |