aboutsummaryrefslogtreecommitdiffstats
path: root/backend/LTLtyping.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/LTLtyping.v')
-rw-r--r--backend/LTLtyping.v2
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/LTLtyping.v b/backend/LTLtyping.v
index e62f9287..9a2322c7 100644
--- a/backend/LTLtyping.v
+++ b/backend/LTLtyping.v
@@ -15,6 +15,7 @@
Require Import Coqlib.
Require Import Maps.
Require Import AST.
+Require Import Integers.
Require Import Op.
Require Import RTL.
Require Import Locations.
@@ -99,6 +100,7 @@ Inductive wt_instr : instruction -> Prop :=
Loc.type arg = Tint ->
loc_acceptable arg ->
(forall lbl, In lbl tbl -> valid_successor lbl) ->
+ list_length_z tbl * 4 <= Int.max_signed ->
wt_instr (Ljumptable arg tbl)
| wt_Lreturn:
forall optres,