diff options
author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2018-11-27 15:34:34 +0100 |
---|---|---|
committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2018-11-27 15:34:34 +0100 |
commit | 3af2dc7aaa8c8139ddd26589258f2b289425f591 (patch) | |
tree | e9c5d9912a91f51a80ae462c499e63c2f9ccc650 /backend/Lineartyping.v | |
parent | 5631ccb7c416bb7ecbe7920cb432a78436c0a7ac (diff) | |
download | compcert-kvx-3af2dc7aaa8c8139ddd26589258f2b289425f591.tar.gz compcert-kvx-3af2dc7aaa8c8139ddd26589258f2b289425f591.zip |
Compiles for x86 and mppa_k1c (except Asmexpandaux.ml)
Diffstat (limited to 'backend/Lineartyping.v')
-rw-r--r-- | backend/Lineartyping.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/Lineartyping.v b/backend/Lineartyping.v index fc163719..bc9fb3ca 100644 --- a/backend/Lineartyping.v +++ b/backend/Lineartyping.v @@ -321,11 +321,11 @@ Local Opaque mreg_type. + (* other ops *) destruct (type_of_operation op) as [ty_args ty_res] eqn:TYOP. InvBooleans. econstructor; eauto. - apply wt_setreg; auto. eapply Val.has_subtype; eauto. + apply wt_setreg; auto; try (apply wt_undef_regs; 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. - apply wt_undef_regs; auto. + destruct args; try discriminate. destruct args; discriminate. - (* load *) simpl in *; InvBooleans. econstructor; eauto. |