diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2016-09-21 13:27:28 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2016-09-21 13:55:32 +0200 |
commit | 320f39edca5061b84a8a45b5c33e516049c7f7fe (patch) | |
tree | 8932bbf78dc6403e002a397ce4210f6a35b31eda /backend | |
parent | f26267c6289e4fa306a0875ff149a00ee401e043 (diff) | |
download | compcert-320f39edca5061b84a8a45b5c33e516049c7f7fe.tar.gz compcert-320f39edca5061b84a8a45b5c33e516049c7f7fe.zip |
Fix minor issues in some proofs and tactics.
These minor problems were revealed by porting CompCert to Coq 8.6, where
they trigger errors.
Diffstat (limited to 'backend')
-rw-r--r-- | backend/Deadcodeproof.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/backend/Deadcodeproof.v b/backend/Deadcodeproof.v index a8d79c3f..5c293ee1 100644 --- a/backend/Deadcodeproof.v +++ b/backend/Deadcodeproof.v @@ -717,8 +717,8 @@ Ltac TransfInstr := FUN: transf_function _ _ = OK _, ANL: analyze _ _ = Some _ |- _ ] => generalize (transf_function_at _ _ _ _ _ _ FUN ANL INSTR); - intro TI; - unfold transf_instr in TI + let TI := fresh "TI" in + intro TI; unfold transf_instr in TI end. Ltac UseTransfer := @@ -1026,7 +1026,7 @@ Ltac UseTransfer := exploit transfer_builtin_args_sound; eauto. intros (tvl & A & B & C & D). exploit external_call_mem_extends; eauto 2 with na. eapply magree_extends; eauto. intros. apply nlive_all. - intros (v' & tm' & P & Q & R & S & T). + intros (v' & tm' & P & Q & R & S). econstructor; split. eapply exec_Ibuiltin; eauto. apply eval_builtin_args_preserved with (ge1 := ge); eauto. exact symbols_preserved. @@ -1077,7 +1077,7 @@ Ltac UseTransfer := - (* external function *) exploit external_call_mem_extends; eauto. - intros (res' & tm' & A & B & C & D & E). + intros (res' & tm' & A & B & C & D). simpl in FUN. inv FUN. econstructor; split. econstructor; eauto. |