diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-01-21 16:31:19 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-01-21 16:31:19 +0000 |
commit | c1fa5a8ca25db725b780140ab7ff4516d6e5e8ec (patch) | |
tree | 9e87e2f2bb65f7109f6038cc680a7e09b9f7fd43 | |
parent | d2b9858f3f5e013bbd9d2221c8d1a3d2960665be (diff) | |
download | compcert-c1fa5a8ca25db725b780140ab7ff4516d6e5e8ec.tar.gz compcert-c1fa5a8ca25db725b780140ab7ff4516d6e5e8ec.zip |
Typo in print_builtin_vstore_common
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1800 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r-- | powerpc/PrintAsm.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index 1ce95f2b..4de21b38 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -415,16 +415,16 @@ let print_builtin_vload_global oc chunk id ofs args res = let print_builtin_vstore_common oc chunk base offset src = match chunk, src with | (Mint8signed | Mint8unsigned), IR src -> - fprintf oc " stb %a, %a(%a)\n" ireg src ireg base constant offset + fprintf oc " stb %a, %a(%a)\n" ireg src constant offset ireg base | (Mint16signed | Mint16unsigned), IR src -> - fprintf oc " sth %a, %a(%a)\n" ireg src ireg base constant offset + fprintf oc " sth %a, %a(%a)\n" ireg src constant offset ireg base | Mint32, IR src -> - fprintf oc " stw %a, %a(%a)\n" ireg src ireg base constant offset + fprintf oc " stw %a, %a(%a)\n" ireg src constant offset ireg base | Mfloat32, FR src -> fprintf oc " frsp %a, %a\n" freg FPR13 freg src; - fprintf oc " stfs %a, %a(%a)\n" freg FPR13 ireg base constant offset + fprintf oc " stfs %a, %a(%a)\n" freg FPR13 constant offset ireg base | Mfloat64, FR src -> - fprintf oc " stfd %a, %a(%a)\n" freg src ireg base constant offset + fprintf oc " stfd %a, %a(%a)\n" freg src constant offset ireg base | _ -> assert false |