diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-03 12:29:11 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-03 12:29:11 +0100 |
| commit | 7f8ccba038ce9bf7665341c05b89bb5d9b9b536b (patch) | |
| tree | a939b46a94b7c8aaee8e26c08026905f6c38f3ca /riscV/NeedOp.v | |
| parent | 4df03aaf5204d2f15885b49fe3f5c9cb61b4596d (diff) | |
| download | compcert-kvx-7f8ccba038ce9bf7665341c05b89bb5d9b9b536b.tar.gz compcert-kvx-7f8ccba038ce9bf7665341c05b89bb5d9b9b536b.zip | |
Ccomp for long
Diffstat (limited to 'riscV/NeedOp.v')
| -rw-r--r-- | riscV/NeedOp.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/riscV/NeedOp.v b/riscV/NeedOp.v index 9fd79de4..67940c47 100644 --- a/riscV/NeedOp.v +++ b/riscV/NeedOp.v @@ -96,6 +96,16 @@ Definition needs_of_operation (op: operation) (nv: nval): list nval := | OExoriw n => op1 (bitwise nv) | OEluiw n => op1 (default nv) | OEaddiwr0 n => op1 (modarith nv) + | OEseql _ => op2 (default nv) + | OEsnel _ => 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) end. Definition operation_is_redundant (op: operation) (nv: nval): bool := @@ -165,6 +175,7 @@ Proof. - apply shruimm_sound; auto. - apply xor_sound; auto with na. - auto with na. +- auto with na. Qed. Lemma operation_is_redundant_sound: |