aboutsummaryrefslogtreecommitdiffstats
path: root/backend/Inliningaux.ml
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2017-04-07 14:00:15 +0200
committerBernhard Schommer <bernhardschommer@gmail.com>2017-04-07 14:08:26 +0200
commit2086ba4770d435a084c65410ab061591e1a36c33 (patch)
tree13890341fe1f6bb42d94ef77187a3430bb3e50f2 /backend/Inliningaux.ml
parente5b37a6d1b08ffb3beb15677930992eed747efe1 (diff)
downloadcompcert-kvx-2086ba4770d435a084c65410ab061591e1a36c33.tar.gz
compcert-kvx-2086ba4770d435a084c65410ab061591e1a36c33.zip
Add optimization option finline.
The new option f(no-)inline controlls whether inlining is active or not. Bug 21343.
Diffstat (limited to 'backend/Inliningaux.ml')
-rw-r--r--backend/Inliningaux.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Inliningaux.ml b/backend/Inliningaux.ml
index 265831a5..df33e1ac 100644
--- a/backend/Inliningaux.ml
+++ b/backend/Inliningaux.ml
@@ -13,4 +13,4 @@
(* To be considered: heuristics based on size of function? *)
let should_inline (id: AST.ident) (f: RTL.coq_function) =
- C2C.atom_is_inline id
+ !Clflags.option_finline && C2C.atom_is_inline id