diff options
| author | letouzey | 2013-02-12 22:56:43 +0000 |
|---|---|---|
| committer | letouzey | 2013-02-12 22:56:43 +0000 |
| commit | 33c0d04c1ae40fb3eded886f8d82eb941e588fc9 (patch) | |
| tree | 2b3863afcfca8ccb73db473c889320f2ec24ac33 /checker/typeops.ml | |
| parent | 351c92f5c61082e9e8f5e1c9364f1836416f17d3 (diff) | |
Checker: re-sync vo structures after Maxime's commit 16136
make validate still fails, but that's another issue (#2949) we're
still working on...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16198 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/typeops.ml')
| -rw-r--r-- | checker/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/typeops.ml b/checker/typeops.ml index 07c7bc367b..a5b110f9b2 100644 --- a/checker/typeops.ml +++ b/checker/typeops.ml @@ -167,7 +167,7 @@ let sort_of_product env domsort rangsort = let judge_of_cast env (c,cj) k tj = let conversion = match k with - | VMcast -> vm_conv CUMUL + | VMcast | NATIVEcast -> vm_conv CUMUL | DEFAULTcast -> conv_leq in try conversion env cj tj |