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 /arm | |
| parent | ef6e39c7df09cb9c48f85bc5a47a82bda9db5383 (diff) | |
Bug in Pbtbl
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2133 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'arm')
| -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 f5b04b5..5778286 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 |