From 80db8e4b9a2321f0b102e97b70181fe368a077b4 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Mon, 1 Mar 2021 09:27:39 +0100 Subject: Proof of fsval condition cmp ok --- riscV/Asmgen.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'riscV/Asmgen.v') diff --git a/riscV/Asmgen.v b/riscV/Asmgen.v index d0c826a3..4876f7ec 100644 --- a/riscV/Asmgen.v +++ b/riscV/Asmgen.v @@ -812,10 +812,10 @@ Definition transl_op do rd <- ireg_of res; do rs <- ireg_of a1; OK (Pxoriw rd rs n :: k) - | OEluiw n, nil => + | OEluiw n _, a1 :: nil => do rd <- ireg_of res; OK (Pluiw rd n :: k) - | OEaddiwr0 n, nil => + | OEaddiwr0 n _, a1 :: nil => do rd <- ireg_of res; OK (Paddiw rd X0 n :: k) | OEseql optR0, a1 :: a2 :: nil => @@ -860,10 +860,10 @@ Definition transl_op do rd <- ireg_of res; do rs <- ireg_of a1; OK (Pxoril rd rs n :: k) - | OEluil n, nil => + | OEluil n, a1 :: nil => do rd <- ireg_of res; OK (Pluil rd n :: k) - | OEaddilr0 n, nil => + | OEaddilr0 n, a1 :: nil => do rd <- ireg_of res; OK (Paddil rd X0 n :: k) | OEloadli n, nil => -- cgit