From 2bf34f3c5e65508a793c3b2c6981b0ecad5ac0e7 Mon Sep 17 00:00:00 2001 From: xleroy Date: Mon, 29 Jul 2013 12:49:47 +0000 Subject: Update cchecklink w/ new Asm instructions Pmulh* git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2301 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- checklink/Check.ml | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'checklink/Check.ml') diff --git a/checklink/Check.ml b/checklink/Check.ml index 4097267..be1360d 100644 --- a/checklink/Check.ml +++ b/checklink/Check.ml @@ -2104,6 +2104,28 @@ let rec compare_code ccode ecode pc: checker = fun fw -> >>= recur_simpl | _ -> error end + | Pmulhw(rd, r1, r2) -> + begin match ecode with + | MULHWx(rD, rA, rB, rc) :: es -> + OK(fw) + >>= match_iregs rd rD + >>= match_iregs r1 rA + >>= match_iregs r2 rB + >>= match_bools false rc + >>= recur_simpl + | _ -> error + end + | Pmulhwu(rd, r1, r2) -> + begin match ecode with + | MULHWUx(rD, rA, rB, rc) :: es -> + OK(fw) + >>= match_iregs rd rD + >>= match_iregs r1 rA + >>= match_iregs r2 rB + >>= match_bools false rc + >>= recur_simpl + | _ -> error + end | Pnand(rd, r1, r2) -> begin match ecode with | NANDx(rS, rA, rB, rc) :: es -> -- cgit v1.2.3