diff options
| author | Hugo Herbelin | 2018-10-03 11:10:51 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-10-03 11:10:51 +0200 |
| commit | 33328635560b9cb963af0805c43f170b3898caac (patch) | |
| tree | 6df28e0a87746b597335169153830d7bddd06143 /interp/constrextern.ml | |
| parent | bfd62ca575e376334575ccbaa162c6de711589c7 (diff) | |
| parent | a5b56ced42e3dd9cdce124e2e60333796c935f42 (diff) | |
Merge PR #8456: Revert #6651: Use r.(p) syntax to print primitive projections
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 3996a1756c..98e1f6dd36 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -958,9 +958,6 @@ let rec extern inctx scopes vars r = | GCast (c, c') -> CCast (sub_extern true scopes vars c, map_cast_type (extern_typ scopes vars) c') - | GProj (p, c) -> - let pr = extern_reference ?loc Id.Set.empty (ConstRef (Projection.constant p)) in - CProj (pr, sub_extern inctx scopes vars c) in insert_coercion coercion (CAst.make ?loc c) |