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, 1 insertions, 1 deletions
diff --git a/backend/LTLtyping.v b/backend/LTLtyping.v
index 791c7554..40a584f1 100644
--- a/backend/LTLtyping.v
+++ b/backend/LTLtyping.v
@@ -94,7 +94,7 @@ Inductive wt_instr : instruction -> Prop :=
forall ef args res s,
List.map Loc.type args = (ef_sig ef).(sig_args) ->
Loc.type res = proj_sig_res (ef_sig ef) ->
- arity_ok (ef_sig ef).(sig_args) = true ->
+ arity_ok (ef_sig ef).(sig_args) = true \/ ef_reloads ef = false ->
locs_acceptable args -> loc_acceptable res ->
valid_successor s ->
wt_instr (Lbuiltin ef args res s)