From 00678383733c61ff96596cdc1e3d5527ad51a5a9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 19 Jul 2004 13:33:48 +0000
Subject: Protection des accès tableau car, sur Sparc-linux, cela engendre une
 erreur fatale d'ocaml

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5958 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/fourier/fourierR.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/contrib/fourier/fourierR.ml b/contrib/fourier/fourierR.ml
index d00f1a5c61..6953881307 100644
--- a/contrib/fourier/fourierR.ml
+++ b/contrib/fourier/fourierR.ml
@@ -186,10 +186,10 @@ type hineq={hname:constr; (* le nom de l'hypoth
 let ineq1_of_constr (h,t) =
     match (kind_of_term t) with
        App (f,args) ->
-         let t1= args.(0) in
-         let t2= args.(1) in
          (match kind_of_term f with
-           Const c ->
+           Const c when Array.length args = 2 ->
+             let t1= args.(0) in
+             let t2= args.(1) in
             (match (string_of_R_constant c) with
 		 "Rlt" -> [{hname=h;
                            htype="Rlt";
-- 
cgit v1.2.3