From c1fa5a8ca25db725b780140ab7ff4516d6e5e8ec Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 21 Jan 2012 16:31:19 +0000 Subject: Typo in print_builtin_vstore_common git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1800 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- powerpc/PrintAsm.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'powerpc/PrintAsm.ml') diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index 1ce95f2..4de21b3 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 -- cgit v1.2.3