diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-02-20 15:04:15 +0100 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-02-20 15:05:56 +0100 |
| commit | 20cb5c46636c5a855efd49ea6459af12211d7bd0 (patch) | |
| tree | 8ec790fda676dce1f8074189d8012092ef8e28f5 /mppa_k1c/Asmblock.v | |
| parent | a17303a44371cd867a4df647bf566f4a101bf5aa (diff) | |
| download | compcert-kvx-20cb5c46636c5a855efd49ea6459af12211d7bd0.tar.gz compcert-kvx-20cb5c46636c5a855efd49ea6459af12211d7bd0.zip | |
Remove unnecessary and error prone FR constructor for pregs
Diffstat (limited to 'mppa_k1c/Asmblock.v')
| -rw-r--r-- | mppa_k1c/Asmblock.v | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/mppa_k1c/Asmblock.v b/mppa_k1c/Asmblock.v index a582e866..b9c50517 100644 --- a/mppa_k1c/Asmblock.v +++ b/mppa_k1c/Asmblock.v @@ -65,17 +65,15 @@ Proof. decide equality. Defined. (** basic register *) Inductive preg: Type := - | IR: gpreg -> preg (**r integer registers *) - | FR: gpreg -> preg (**r float registers *) + | IR: gpreg -> preg (**r integer general purpose registers *) | RA: preg | PC: preg . Coercion IR: gpreg >-> preg. -Coercion FR: gpreg >-> preg. Lemma preg_eq: forall (x y: preg), {x=y} + {x<>y}. -Proof. decide equality. apply ireg_eq. apply freg_eq. Defined. +Proof. decide equality. apply ireg_eq. Defined. Module PregEq. Definition t := preg. @@ -1436,7 +1434,6 @@ Definition data_preg (r: preg) : bool := | IR GPRA => false | IR RTMP => false | IR _ => true - | FR _ => true | PC => false end. |