diff options
Diffstat (limited to 'backend/Inliningaux.ml')
-rw-r--r-- | backend/Inliningaux.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Inliningaux.ml b/backend/Inliningaux.ml index 2e83eb0c..d58704ca 100644 --- a/backend/Inliningaux.ml +++ b/backend/Inliningaux.ml @@ -57,7 +57,7 @@ let used_in_globvar io gv = let fun_inline_analysis id io fn = let inst io nid = function | Iop (op, args, dest, succ) -> used_id io (globals_operation op) - | Iload (chunk, addr, args, dest, succ) + | Iload (_, chunk, addr, args, dest, succ) | Istore (chunk, addr, args, dest, succ) -> used_id io (globals_addressing addr) | Ibuiltin (ef, args, dest, succ) -> used_id io (globals_of_builtin_args args) | Icall (_, Coq_inr cid, _, _, _) |