diff options
Diffstat (limited to 'backend/Machtyping.v')
-rw-r--r-- | backend/Machtyping.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/backend/Machtyping.v b/backend/Machtyping.v index ef59e6f0..fe086cb4 100644 --- a/backend/Machtyping.v +++ b/backend/Machtyping.v @@ -79,6 +79,10 @@ Inductive wt_instr : instruction -> Prop := forall cond args lbl, List.map mreg_type args = type_of_condition cond -> wt_instr (Mcond cond args lbl) + | wt_Mjumptable: + forall arg tbl, + mreg_type arg = Tint -> + wt_instr (Mjumptable arg tbl) | wt_Mreturn: wt_instr Mreturn. @@ -280,6 +284,7 @@ Proof. apply is_tail_find_label with lbl; congruence. apply is_tail_find_label with lbl; congruence. + apply is_tail_find_label with lbl; congruence. econstructor; eauto. |