aboutsummaryrefslogtreecommitdiffstats
path: root/backend/LTLintyping.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/LTLintyping.v')
-rw-r--r--backend/LTLintyping.v2
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/LTLintyping.v b/backend/LTLintyping.v
index c928f3f6..1a20f735 100644
--- a/backend/LTLintyping.v
+++ b/backend/LTLintyping.v
@@ -73,7 +73,7 @@ Inductive wt_instr : instruction -> Prop :=
forall ef args res,
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 ->
wt_instr (Lbuiltin ef args res)
| wt_Llabel: forall lbl,