diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-04-17 13:27:48 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-04-17 13:27:48 +0000 |
commit | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (patch) | |
tree | 4fb435a847b0a1f1fd0afc93eb718c459e2aa0d6 /arm/PrintAsm.ml | |
parent | ed39cb168c0ca6c979db9059d39213d4f2a59eb5 (diff) | |
download | compcert-d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb.tar.gz compcert-d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb.zip |
Various clean-upsv1.4
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1033 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'arm/PrintAsm.ml')
-rw-r--r-- | arm/PrintAsm.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index f51a15b7..da0b5d10 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -178,8 +178,7 @@ let call_helper oc fn dst arg1 arg2 = (* Move result to dst *) begin match dst with | IR0 -> () - | _ -> - fprintf oc " mov %a, r0\n" ireg dst + | _ -> fprintf oc " mov %a, r0\n" ireg dst end; (* Restore the other caller-save registers *) fprintf oc " ldmfd sp!, {%a}\n" print_list_ireg tosave; |