From bddb6d173c4c3c570737ba74ad3dfa610d304157 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 30 Apr 2013 15:38:16 +0000
Subject: Fix wrong computation of dependency signature in cases raising an
 uncaught exception later.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16464 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/cases.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index 5d11dbc811..969fa7cbb6 100644
--- a/pretyping/cases.ml
+++ b/pretyping/cases.ml
@@ -506,8 +506,8 @@ let mk_dep_patt_row (pats,_,eqn) =
   List.map (is_dep_patt_in eqn) pats
 
 let dependencies_in_pure_rhs nargs eqns =
-  if List.is_empty eqns && not (Flags.is_program_mode ()) then
-    List.make nargs false (* Only "_" patts *) else
+  if List.is_empty eqns then
+    List.make nargs (not (Flags.is_program_mode ()))  (* Only "_" patts *) else
   let deps_rows = List.map mk_dep_patt_row eqns in
   let deps_columns = matrix_transpose deps_rows in
   List.map (List.exists (fun x -> x)) deps_columns
-- 
cgit v1.2.3