diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-08-20 13:15:34 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-08-20 13:15:34 +0000 |
| commit | 7c8039725e25f642898503b772e6043c7cbbf983 (patch) | |
| tree | bd50db6581305ef375610245e553c76483346e7c | |
| parent | ac69dfdd1d7acc64035c70177f0c04b72627ed2e (diff) | |
Obvious typos in commit r2609
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2610 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -rw-r--r-- | arm/PrintAsm.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index 7ae4508..5c2833f 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -599,21 +599,21 @@ let print_builtin_inline oc name args res = | "__builtin_isb", [], _ -> fprintf oc " isb\n"; 1 | "__builtin_ldrex", [IR addr], [IR dst] -> - fprintf oc " ldrex %a, [%a]\n" dst addr + fprintf oc " ldrex %a, [%a]\n" ireg dst ireg addr; 1 | "__builtin_ldrexb", [IR addr], [IR dst] -> - fprintf oc " ldrexb %a, [%a]\n" dst addr + fprintf oc " ldrexb %a, [%a]\n" ireg dst ireg addr; 1 | "__builtin_ldrexd", [IR addr], [IR dsth; IR dstl] -> - fprintf oc " ldrexd %a, %a, [%a]\n" dstl dsth addr + fprintf oc " ldrexd %a, %a, [%a]\n" ireg dstl ireg dsth ireg addr; 1 | "__builtin_ldrexh", [IR addr], [IR dst] -> - fprintf oc " ldrexh %a, [%a]\n" dst addr + fprintf oc " ldrexh %a, [%a]\n" ireg dst ireg addr; 1 | "__builtin_strex", [IR addr; IR src], [IR res] -> - fprintf oc " strex %a, %a, [%a]\n" res src addr; 1 + fprintf oc " strex %a, %a, [%a]\n" ireg res ireg src ireg addr; 1 | "__builtin_strexb", [IR addr; IR src], [IR res] -> - fprintf oc " strexb %a, %a, [%a]\n" res src addr; 1 + fprintf oc " strexb %a, %a, [%a]\n" ireg res ireg src ireg addr; 1 | "__builtin_strexd", [IR addr; IR srch; IR srcl], [IR res] -> - fprintf oc " strexd %a, %a, %a, [%a]\n" res srcl srch addr; 1 + fprintf oc " strexd %a, %a, %a, [%a]\n" ireg res ireg srcl ireg srch ireg addr; 1 | "__builtin_strexh", [IR addr; IR src], [IR res] -> - fprintf oc " strexh %a, %a, [%a]\n" res src addr; 1 + fprintf oc " strexh %a, %a, [%a]\n" ireg res ireg src ireg addr; 1 (* Vararg stuff *) |