From 82b49beed81482495f090cfe77ff5bceaef3dd96 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Fri, 1 Mar 2013 16:52:27 +0000
Subject: Bug in Pbtbl

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2133 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 arm/PrintAsm.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'arm')

diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml
index f5b04b54..57782866 100644
--- a/arm/PrintAsm.ml
+++ b/arm/PrintAsm.ml
@@ -614,7 +614,7 @@ let print_instruction oc = function
       fprintf oc "	ldr	%a, .L%d @ %a\n" 
          ireg r1 lbl print_symb_ofs (id, ofs); 1
   | Pbtbl(r, tbl) ->
-      fprintf oc "	mov	r14, %a, lsl #2\n";
+      fprintf oc "	mov	r14, %a, lsl #2\n" ireg r;
       fprintf oc "	ldr	pc, [pc, r14]\n";
       fprintf oc "	mov	r0, r0\n"; (* no-op *)
       List.iter
-- 
cgit