diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-10-25 12:48:50 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-10-25 12:48:50 -0400 |
| commit | 8d179338f320dfc2b7d6a23204cf1ae90f4898ba (patch) | |
| tree | 44283631b960a77b7f9f11b5a0795b4604b75a35 /src/compiler.sml | |
| parent | d04337d2e0319d56ac5f7ed2b4d431cb56017bb5 (diff) | |
Inlining threshold for Mono_reduce
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 67ce962e..b1939356 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -862,7 +862,8 @@ val toUntangle2 = transform untangle "untangle2" o toFuse val toMono_reduce2 = transform mono_reduce "mono_reduce2" o toUntangle2 val toMono_shake2 = transform mono_shake "mono_shake2" o toMono_reduce2 val toMono_opt4 = transform mono_opt "mono_opt4" o toMono_shake2 -val toFuse2 = transform fuse "shake2" o toMono_opt4 +val toMono_reduce3 = transform mono_reduce "mono_reduce3" o toMono_opt4 +val toFuse2 = transform fuse "shake2" o toMono_reduce3 val toUntangle3 = transform untangle "untangle3" o toFuse2 val toMono_shake3 = transform mono_shake "mono_shake3" o toUntangle3 |