aboutsummaryrefslogtreecommitdiffstats
path: root/backend/Inliningaux.ml
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Inliningaux.ml')
-rw-r--r--backend/Inliningaux.ml5
1 files changed, 1 insertions, 4 deletions
diff --git a/backend/Inliningaux.ml b/backend/Inliningaux.ml
index cf308962..0607547b 100644
--- a/backend/Inliningaux.ml
+++ b/backend/Inliningaux.ml
@@ -90,9 +90,6 @@ let small_enough (f : coq_function) =
let should_inline (io: inlining_info) (id: ident) (f: coq_function) =
if !Clflags.option_finline then begin
- match C2C.atom_inline id with
- | C2C.Inline -> true
- | C2C.Noinline -> false
- | C2C.No_specifier -> static_called_once id io || small_enough f
+ true
end else
false