diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-08-19 09:13:09 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-08-19 09:13:09 +0000 |
| commit | 7ea8a55692e2a2d32efa0c84e19c37a3b56a0fd1 (patch) | |
| tree | e324aff1a958e0a5d83f805ff3ca1d9eb07939f4 /ia32 | |
| parent | 5b73a4f223a0cadb7df3f1320fed86cde0d67d6e (diff) | |
| download | compcert-7ea8a55692e2a2d32efa0c84e19c37a3b56a0fd1.tar.gz compcert-7ea8a55692e2a2d32efa0c84e19c37a3b56a0fd1.zip | |
Cleaned up old commented-out parts
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1719 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'ia32')
| -rw-r--r-- | ia32/Asmgenproof1.v | 24 | ||||
| -rw-r--r-- | ia32/Asmgenretaddr.v | 17 | ||||
| -rw-r--r-- | ia32/standard/Stacklayout.v | 10 |
3 files changed, 0 insertions, 51 deletions
diff --git a/ia32/Asmgenproof1.v b/ia32/Asmgenproof1.v index c00332ed..be40f3d4 100644 --- a/ia32/Asmgenproof1.v +++ b/ia32/Asmgenproof1.v @@ -232,30 +232,6 @@ Qed. Hint Resolve nontemp_diff: ppcgen. -(* -Remark undef_regs_1: - forall l ms r, ms r = Vundef -> Mach.undef_regs l ms r = Vundef. -Proof. - induction l; simpl; intros. auto. apply IHl. unfold Regmap.set. - destruct (RegEq.eq r a); congruence. -Qed. - -Remark undef_regs_2: - forall l ms r, In r l -> Mach.undef_regs l ms r = Vundef. -Proof. - induction l; simpl; intros. contradiction. - destruct H. subst. apply undef_regs_1. apply Regmap.gss. - auto. -Qed. - -Remark undef_regs_3: - forall l ms r, ~In r l -> Mach.undef_regs l ms r = ms r. -Proof. - induction l; simpl; intros. auto. - rewrite IHl. apply Regmap.gso. intuition. intuition. -Qed. -*) - Lemma agree_exten_temps: forall ms sp rs rs', agree ms sp rs -> diff --git a/ia32/Asmgenretaddr.v b/ia32/Asmgenretaddr.v index e963c2e4..1a1ea20f 100644 --- a/ia32/Asmgenretaddr.v +++ b/ia32/Asmgenretaddr.v @@ -90,23 +90,6 @@ Qed. Hint Resolve is_tail_refl: ppcretaddr. -(* -Ltac IsTail := - auto with ppcretaddr; - match goal with - | [ |- is_tail _ (_ :: _) ] => constructor; IsTail - | [ |- is_tail _ (match ?x with true => _ | false => _ end) ] => destruct x; IsTail - | [ |- is_tail _ (match ?x with left _ => _ | right _ => _ end) ] => destruct x; IsTail - | [ |- is_tail _ (match ?x with nil => _ | _ :: _ => _ end) ] => destruct x; IsTail - | [ |- is_tail _ (match ?x with Tint => _ | Tfloat => _ end) ] => destruct x; IsTail - | [ |- is_tail _ (?f _ _ _ _ _ _ ?k) ] => apply is_tail_trans with k; IsTail - | [ |- is_tail _ (?f _ _ _ _ _ ?k) ] => apply is_tail_trans with k; IsTail - | [ |- is_tail _ (?f _ _ _ _ ?k) ] => apply is_tail_trans with k; IsTail - | [ |- is_tail _ (?f _ _ _ ?k) ] => apply is_tail_trans with k; IsTail - | [ |- is_tail _ (?f _ _ ?k) ] => apply is_tail_trans with k; IsTail - | _ => idtac - end. -*) Ltac IsTail := eauto with ppcretaddr; match goal with diff --git a/ia32/standard/Stacklayout.v b/ia32/standard/Stacklayout.v index 1fa3fb3a..063fb4f7 100644 --- a/ia32/standard/Stacklayout.v +++ b/ia32/standard/Stacklayout.v @@ -138,13 +138,3 @@ Proof. tauto. Qed. -(* -Remark align_float_part: - forall b, - 4 * bound_outgoing b + 4 + 4 + 4 * bound_int_local b + 4 * bound_int_callee_save b <= - align (4 * bound_outgoing b + 4 + 4 + 4 * bound_int_local b + 4 * bound_int_callee_save b) 8. - -Proof. - intros. apply align_le. omega. -Qed. -*)
\ No newline at end of file |