diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-11-10 14:58:33 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-11-10 14:58:33 +0000 |
commit | 8ccc7f2f597aff2c8590c4e62552fb53406ad0f8 (patch) | |
tree | a553844ce1b6960ae5240f65593c085be733e3b2 /backend/Tunnelingtyping.v | |
parent | 74487f079dd56663f97f9731cea328931857495c (diff) | |
download | compcert-8ccc7f2f597aff2c8590c4e62552fb53406ad0f8.tar.gz compcert-8ccc7f2f597aff2c8590c4e62552fb53406ad0f8.zip |
More realistic treatment of jump tables: show the absence of overflow when accessing the table
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1172 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Tunnelingtyping.v')
-rw-r--r-- | backend/Tunnelingtyping.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/backend/Tunnelingtyping.v b/backend/Tunnelingtyping.v index 8990cb44..834e8e18 100644 --- a/backend/Tunnelingtyping.v +++ b/backend/Tunnelingtyping.v @@ -76,7 +76,8 @@ Proof. intros; inv H0; simpl; econstructor; eauto; try (eapply branch_target_valid; eauto). intros. exploit list_in_map_inv; eauto. intros [x [A B]]. subst lbl. - eapply branch_target_valid; eauto. + eapply branch_target_valid; eauto. + rewrite list_length_z_map. auto. Qed. Lemma wt_tunnel_function: |