From 33c0d04c1ae40fb3eded886f8d82eb941e588fc9 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 12 Feb 2013 22:56:43 +0000
Subject: 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
---
 checker/typeops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'checker/typeops.ml')

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
-- 
cgit v1.2.3