From 31b8fd252e59905620ea449f79720f6ccf94859d Mon Sep 17 00:00:00 2001
From: Luc Maranget <luc.maranget@inria.fr>
Date: Fri, 3 Oct 2008 15:02:55 +0000
Subject: [PATCH] Un peu de menage au passage

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9051 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 bytecomp/bytegen.ml | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/bytecomp/bytegen.ml b/bytecomp/bytegen.ml
index 8f4b0eb3a..f7911aa3e 100644
--- a/bytecomp/bytegen.ml
+++ b/bytecomp/bytegen.ml
@@ -379,11 +379,6 @@ let comp_primitive p args =
 
 let is_immed n = immed_min <= n && n <= immed_max
 
-let explode_isout arg l h =
-  Lprim
-    (Psequor,
-    [Lprim (Pintcomp Clt,[arg ; Lconst (Const_base (Const_int 0))]) ;
-     Lprim (Pintcomp Cgt,[arg ; Lconst (Const_base (Const_int h))])])
 
 (* Compile an expression.
    The value of the expression is left in the accumulator.