Commits

xleroy  committed 67838fd

MAJ desassembleur apres changement de la representation des
constructeurs constants.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@44f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

  • Participants
  • Parent commits 94f424c

Comments (0)

Files changed (1)

File tools/dumpobj.ml

   else if op == opSWITCH then
     (let n = inputu ic in
      let orig = currpc ic in
-     for i = 0 to n-1 do
-       print_string "\n\t"; print_int i; print_string " -> ";
+     for i = 0 to (n land 0xFFFF) - 1 do
+       print_string "\n\tint "; print_int i; print_string " -> ";
+       print_int(orig + inputs ic)
+     done;
+     for i = 0 to (n lsr 16) - 1 do
+       print_string "\n\ttag "; print_int i; print_string " -> ";
        print_int(orig + inputs ic)
      done)
   (* translate *)