diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2018-03-01 14:45:06 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2018-04-04 16:30:06 +0200 |
commit | 917859721f6423b24788ec6219774b5196b02ec1 (patch) | |
tree | ddaeb091c9d2bb61ef77796cdb1833612c6c4bfb /backend/Lineartyping.v | |
parent | f1d3dbb3fa70233d1ad83ae88876dd384346a16a (diff) | |
download | compcert-kvx-917859721f6423b24788ec6219774b5196b02ec1.tar.gz compcert-kvx-917859721f6423b24788ec6219774b5196b02ec1.zip |
MPPA - Machregs + Conventions1 + backend proof tweaking
Diffstat (limited to 'backend/Lineartyping.v')
-rw-r--r-- | backend/Lineartyping.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Lineartyping.v b/backend/Lineartyping.v index 30cc0d91..d5fadd4c 100644 --- a/backend/Lineartyping.v +++ b/backend/Lineartyping.v @@ -291,7 +291,7 @@ Local Opaque mreg_type. apply wt_setreg; auto. eapply Val.has_subtype; eauto. change ty_res with (snd (ty_args, ty_res)). rewrite <- TYOP. eapply type_of_operation_sound; eauto. red; intros; subst op. simpl in ISMOVE. - destruct args; try discriminate. destruct args; discriminate. + destruct args; try discriminate. destruct args; discriminate; apply wt_undef_regs; auto. - (* load *) simpl in *; InvBooleans. |