diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-01 09:27:39 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-03-01 09:27:39 +0100 |
| commit | 80db8e4b9a2321f0b102e97b70181fe368a077b4 (patch) | |
| tree | f3b7482705c5c0ad1225459938b8589dd408e11f /riscV/NeedOp.v | |
| parent | 8fb2a5a165ecd48b2df76b9beff7a83cc14b5e6c (diff) | |
| download | compcert-kvx-80db8e4b9a2321f0b102e97b70181fe368a077b4.tar.gz compcert-kvx-80db8e4b9a2321f0b102e97b70181fe368a077b4.zip | |
Proof of fsval condition cmp ok
Diffstat (limited to 'riscV/NeedOp.v')
| -rw-r--r-- | riscV/NeedOp.v | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/riscV/NeedOp.v b/riscV/NeedOp.v index a0ec7732..d90c1b66 100644 --- a/riscV/NeedOp.v +++ b/riscV/NeedOp.v @@ -93,23 +93,23 @@ Definition needs_of_operation (op: operation) (nv: nval): list nval := | OEsneuw _ => op2 (default nv) | OEsltw _ => op2 (default nv) | OEsltuw _ => op2 (default nv) - | OEsltiw n => op1 (default nv) - | OEsltiuw n => op1 (default nv) - | OExoriw n => op1 (bitwise nv) - | OEluiw n => op1 (default nv) - | OEaddiwr0 n => op1 (modarith nv) + | OEsltiw _ => op1 (default nv) + | OEsltiuw _ => op1 (default nv) + | OExoriw _ => op1 (bitwise nv) + | OEluiw _ _ => op1 (default nv) + | OEaddiwr0 _ _ => op1 (default nv) (* TODO gourdinl modarith impossible? *) | OEseql _ => op2 (default nv) | OEsnel _ => op2 (default nv) | OEsequl _ => op2 (default nv) | OEsneul _ => op2 (default nv) | OEsltl _ => op2 (default nv) | OEsltul _ => op2 (default nv) - | OEsltil n => op1 (default nv) - | OEsltiul n => op1 (default nv) - | OExoril n => op1 (default nv) - | OEluil n => op1 (default nv) - | OEaddilr0 n => op1 (modarith nv) - | OEloadli n => op1 (default nv) + | OEsltil _ => op1 (default nv) + | OEsltiul _ => op1 (default nv) + | OExoril _ => op1 (default nv) + | OEluil _ => op1 (default nv) + | OEaddilr0 _ => op1 (default nv) (* TODO gourdinl modarith impossible? *) + | OEloadli _ => op1 (default nv) | OEfeqd => op2 (default nv) | OEfltd => op2 (default nv) | OEfled => op2 (default nv) @@ -184,8 +184,6 @@ Proof. - apply shrimm_sound; auto. - apply shruimm_sound; auto. - apply xor_sound; auto with na. -- auto with na. -- auto with na. Qed. Lemma operation_is_redundant_sound: |