diff options
| author | Luc Maranget <luc.maranget@inria.fr> | 2001-09-21 15:59:16 +0000 |
|---|---|---|
| committer | Luc Maranget <luc.maranget@inria.fr> | 2001-09-21 15:59:16 +0000 |
| commit | bd1a4e00c3d4ddec98cf67efc72b70d9b40d561e (patch) | |
| tree | eb6f7969ecbe28cded70bbf62ae580e67187368b /asmcomp | |
| parent | cb729b318ec4f59c6c442e2b313995be4ebe4907 (diff) | |
| download | ocaml-bd1a4e00c3d4ddec98cf67efc72b70d9b40d561e.tar.gz | |
bug 539
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3773 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp')
| -rw-r--r-- | asmcomp/cmmgen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/cmmgen.ml b/asmcomp/cmmgen.ml index 3adc93320e..dedabf5bb9 100644 --- a/asmcomp/cmmgen.ml +++ b/asmcomp/cmmgen.ml @@ -1370,10 +1370,10 @@ and transl_switch arg index cases = match Array.length cases with end done ; inters := (0, !this_high, !this_act) :: !inters ; - bind "switcher" arg (fun a -> SwitcherBlocks.zyva + (0,n_index-1) (fun i -> Cconst_int i) a (Array.of_list !inters) actions) |