diff options
| author | Pierre-Marie Pédrot | 2018-06-11 22:56:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-06-11 22:56:59 +0200 |
| commit | ab4bce38a7c0d08d1ebff70c4115b7c1d8e8be88 (patch) | |
| tree | 923d6f9dacef94aed154eb309ae07339c92f9352 /kernel/vmvalues.ml | |
| parent | 878188f7af6a45236b70e4caa6ac3832c524fa9a (diff) | |
| parent | 375a47bab8395695a4f74e19691854d2d0248045 (diff) | |
Merge PR #6827: [VM] Remove projection names from structured constants.
Diffstat (limited to 'kernel/vmvalues.ml')
| -rw-r--r-- | kernel/vmvalues.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/vmvalues.ml b/kernel/vmvalues.ml index 7a703e6537..8524c44d21 100644 --- a/kernel/vmvalues.ml +++ b/kernel/vmvalues.ml @@ -297,7 +297,6 @@ let rec obj_of_str_const str = match str with | Const_sort s -> obj_of_atom (Asort s) | Const_ind ind -> obj_of_atom (Aind ind) - | Const_proj p -> Obj.repr p | Const_b0 tag -> Obj.repr tag | Const_bn(tag, args) -> let len = Array.length args in @@ -355,6 +354,7 @@ let val_of_constant c = val_of_idkey (ConstKey c) let val_of_evar evk = val_of_idkey (EvarKey evk) external val_of_annot_switch : annot_switch -> values = "%identity" +external val_of_proj_name : Constant.t -> values = "%identity" (*************************************************) (** Operations manipulating data types ***********) |