diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2018-11-26 17:35:31 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2018-11-26 17:35:31 +0100 |
commit | 5631ccb7c416bb7ecbe7920cb432a78436c0a7ac (patch) | |
tree | c84dfc9edea4d1aaf48985a229dddb811cbc3ffa /backend/Lineartyping.v | |
parent | 3d38bf85c8ac3a83fe7aaeb5e01bb9a8403e6a60 (diff) | |
download | compcert-kvx-5631ccb7c416bb7ecbe7920cb432a78436c0a7ac.tar.gz compcert-kvx-5631ccb7c416bb7ecbe7920cb432a78436c0a7ac.zip |
BROKEN - works for x86, not for k1 anymore
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 55d86448..fc163719 100644 --- a/backend/Lineartyping.v +++ b/backend/Lineartyping.v @@ -324,7 +324,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. |