From 94bf2ececf3936db0d9a55ec14bddb8a9ccccf05 Mon Sep 17 00:00:00 2001
From: Pierre Chambart <pierre.chambart@ocamlpro.org>
Date: Mon, 5 Nov 2012 23:34:06 +0100
Subject: [PATCH] Fix printing of switch in clambda

---
 asmcomp/printclambda.ml |   12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/asmcomp/printclambda.ml b/asmcomp/printclambda.ml
index 8d3fc04..7c4e9ab 100644
--- a/asmcomp/printclambda.ml
+++ b/asmcomp/printclambda.ml
@@ -71,16 +71,16 @@ let rec lam ppf = function
       let switch ppf sw =
         let spc = ref false in
         for i = 0 to Array.length sw.us_index_consts - 1 do
-          let n = sw.us_index_consts.(i)
-          and l = sw.us_actions_consts.(i) in
+          let n = sw.us_index_consts.(i) in
+          let l = sw.us_actions_consts.(n) in
           if !spc then fprintf ppf "@ " else spc := true;
-          fprintf ppf "@[<hv 1>case int %i:@ %a@]" n lam l;
+          fprintf ppf "@[<hv 1>case int %i:@ %a@]" i lam l;
         done;
         for i = 0 to Array.length sw.us_index_blocks - 1 do
-          let n = sw.us_index_blocks.(i)
-          and l = sw.us_actions_blocks.(i) in
+          let n = sw.us_index_blocks.(i) in
+          let l = sw.us_actions_blocks.(n) in
           if !spc then fprintf ppf "@ " else spc := true;
-          fprintf ppf "@[<hv 1>case tag %i:@ %a@]" n lam l;
+          fprintf ppf "@[<hv 1>case tag %i:@ %a@]" i lam l;
         done in
       fprintf ppf
        "@[<1>(switch %a@ @[<v 0>%a@])@]"
-- 
1.7.10.4