diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-01 16:52:27 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-01 16:52:27 +0000 |
commit | 82b49beed81482495f090cfe77ff5bceaef3dd96 (patch) | |
tree | bac147f53b23e312895929e116dd336f57c24dfe | |
parent | ef6e39c7df09cb9c48f85bc5a47a82bda9db5383 (diff) | |
download | compcert-82b49beed81482495f090cfe77ff5bceaef3dd96.tar.gz compcert-82b49beed81482495f090cfe77ff5bceaef3dd96.zip |
Bug in Pbtbl
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2133 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r-- | arm/PrintAsm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |