diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-15 16:24:13 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-15 16:24:13 +0000 |
commit | f774d5f2d604f747e72e2d3bb56cc3f90090e2dd (patch) | |
tree | 05a5bcfc207c67f58575fa7b61787c0c9dbe8215 /backend/Reloadtyping.v | |
parent | f1ceca440c0322001abe6c5de79bd4bc309fc002 (diff) | |
download | compcert-f774d5f2d604f747e72e2d3bb56cc3f90090e2dd.tar.gz compcert-f774d5f2d604f747e72e2d3bb56cc3f90090e2dd.zip |
Pointers one past
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2118 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Reloadtyping.v')
-rw-r--r-- | backend/Reloadtyping.v | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/backend/Reloadtyping.v b/backend/Reloadtyping.v index 9f5563c7..c0051399 100644 --- a/backend/Reloadtyping.v +++ b/backend/Reloadtyping.v @@ -288,8 +288,7 @@ Proof. rewrite loc_arguments_type; auto. destruct ros. destruct H2 as [A [B C]]. auto 10 with reloadty. auto 10 with reloadty. - - destruct (ef_reloads ef) as [] eqn:?. + destruct (ef_reloads ef) eqn:?. assert (arity_ok (sig_args (ef_sig ef)) = true) by intuition congruence. assert (map mreg_type (regs_for args) = map Loc.type args). apply wt_regs_for. apply arity_ok_enough. congruence. @@ -297,8 +296,6 @@ Proof. auto 10 with reloadty. auto with reloadty. - - assert (map mreg_type (regs_for args) = map Loc.type args). eauto with reloadty. auto with reloadty. |