Added support for jump tables.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1181 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e

1 files changed, 6 insertions, 0 deletions

diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml
index 9297a69..2239911 100644
--- a/arm/PrintAsm.ml
+++ b/arm/PrintAsm.ml
@@ -356,6 +356,12 @@ let print_instruction oc labels = function
       let lbl = label_symbol id ofs in
       fprintf oc "	ldr	%a, .L%d @ %a\n" 
          ireg r1 lbl print_symb_ofs (id, ofs); 1
+  | Pbtbl(r, tbl) ->
+      fprintf oc "	ldr	pc, [pc, %a]\n" ireg r;
+      fprintf oc "	mov	r0, r0\n"; (* no-op *)
+      List.iter
+        (fun l -> fprintf oc "	.word	%a\n" label (transl_label l));
+      2 + List.length tbl
 
 let no_fallthrough = function
   | Pb _ -> true