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 | 1723b89b16419822c0b1de17db3d7f7ae96786a9 (patch) | |
| tree | 6f8ada3a60592e24810778e8b2e788c35c20e11a /src/mono_reduce.sml | |
| parent | e7e23eeb286ffac62b2b0a180c9ecc8510aaf33d (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 |