Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Un peu de menage au passage 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9051 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Luc Maranget 2008-10-03 15:02:55 +00:00
parent da8f0e0b96
commit 31b8fd252e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bytecomp/bytegen.ml
View File

@ -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.