diff options
| author | Andrej Dudenhefner <31094379+mrhaandi@users.noreply.github.com> | 2022-09-08 15:59:56 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-08 15:59:56 +0200 |
| commit | 88cccb19502dfec65f7e21d0f6772ba99b1fb99d (patch) | |
| tree | 368ad5555ff5459c1fdb4fa597db96664e4930f0 /backend/Lineartyping.v | |
| parent | 108d60c059949e34c07719cb3ce38b8c62d27e0d (diff) | |
| download | compcert-88cccb19502dfec65f7e21d0f6772ba99b1fb99d.tar.gz compcert-88cccb19502dfec65f7e21d0f6772ba99b1fb99d.zip | |
Improved auto goal selection (#443)
Improves robustness in case of stronger (e)auto.
This is in preparation of a change in Coq that will make auto and eauto stronger
(https://github.com/coq/coq/pull/16293).
Diffstat (limited to 'backend/Lineartyping.v')
| -rw-r--r-- | backend/Lineartyping.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Lineartyping.v b/backend/Lineartyping.v index 0e3b7c8e..c08ab08b 100644 --- a/backend/Lineartyping.v +++ b/backend/Lineartyping.v @@ -305,7 +305,7 @@ Local Opaque mreg_type. - (* getstack *) simpl in *; InvBooleans. econstructor; eauto. - eapply wt_setreg; eauto. eapply Val.has_subtype; eauto. apply WTRS. + eapply wt_setreg; eauto. eapply Val.has_subtype; [eauto|apply WTRS]. apply wt_undef_regs; auto. - (* setstack *) simpl in *; InvBooleans. @@ -316,7 +316,7 @@ Local Opaque mreg_type. + (* move *) InvBooleans. exploit is_move_operation_correct; eauto. intros [EQ1 EQ2]; subst. simpl in H. inv H. - econstructor; eauto. apply wt_setreg. eapply Val.has_subtype; eauto. apply WTRS. + econstructor; eauto. apply wt_setreg. eapply Val.has_subtype; [eauto|apply WTRS]. apply wt_undef_regs; auto. + (* other ops *) destruct (type_of_operation op) as [ty_args ty_res] eqn:TYOP. InvBooleans. |