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/Machtyping.v | |
| parent | 74487f079dd56663f97f9731cea328931857495c (diff) | |
| download | compcert-kvx-8ccc7f2f597aff2c8590c4e62552fb53406ad0f8.tar.gz compcert-kvx-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/Machtyping.v')
| -rw-r--r-- | backend/Machtyping.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/backend/Machtyping.v b/backend/Machtyping.v index fe086cb4..8b40001a 100644 --- a/backend/Machtyping.v +++ b/backend/Machtyping.v @@ -82,6 +82,7 @@ Inductive wt_instr : instruction -> Prop := | wt_Mjumptable: forall arg tbl, mreg_type arg = Tint -> + list_length_z tbl * 4 <= Int.max_signed -> wt_instr (Mjumptable arg tbl) | wt_Mreturn: wt_instr Mreturn. |