diff options
author | Son Ho | 2022-12-02 01:13:08 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | f001e68a591750c9e7265cb331fd42cfadefa05d (patch) | |
tree | dc9e6d439d9fbcc96ceccac91cdc4816fc19937b /compiler/Invariants.ml | |
parent | 43163a5abc4e79d66f517a473e5ee9c4c3410622 (diff) |
Remove the APrimitive variant from the avalues
Diffstat (limited to 'compiler/Invariants.ml')
-rw-r--r-- | compiler/Invariants.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/Invariants.ml b/compiler/Invariants.ml index 370b0d01..3fdb963a 100644 --- a/compiler/Invariants.ml +++ b/compiler/Invariants.ml @@ -501,8 +501,6 @@ let check_typing_invariant (ctx : C.eval_ctx) : unit = method! visit_typed_avalue info atv = (* Check the current pair (value, type) *) (match (atv.V.value, atv.V.ty) with - | V.APrimitive cv, ty -> - check_primitive_value_type cv (Subst.erase_regions ty) (* ADT case *) | V.AAdt av, T.Adt (T.AdtId def_id, regions, tys) -> (* Retrieve the definition to check the variant id, the number of |