diff options
author | Adam Chlipala <adam@chlipala.net> | 2014-02-09 19:29:36 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2014-02-09 19:29:36 -0500 |
commit | a9e2b0c2efbddf0ec9e7199c486b7f0ed736d6e8 (patch) | |
tree | 6f8ada3a60592e24810778e8b2e788c35c20e11a /src/mono_reduce.sml | |
parent | 4063d1c5696438d73c0b15d7552e7717327e8ba1 (diff) |
neverInline
Diffstat (limited to 'src/mono_reduce.sml')
-rw-r--r-- | src/mono_reduce.sml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index 846a878b..c92ce5aa 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -395,10 +395,11 @@ fun reduce (file : file) = fun mayInline (n, e, t, s) = case IM.find (uses, n) of NONE => false - | SOME count => count <= 1 - orelse size e <= Settings.getMonoInline () - orelse functionInside t - orelse Settings.checkAlwaysInline s + | SOME count => not (Settings.checkNeverInline s) + andalso (count <= 1 + orelse size e <= Settings.getMonoInline () + orelse functionInside t + orelse Settings.checkAlwaysInline s) fun summarize d (e, _) = let |