diff options
author | Adam Chlipala <adam@chlipala.net> | 2012-09-14 07:35:48 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2012-09-14 07:35:48 -0400 |
commit | c5d8397eb399131837d7205eae3740a033196d66 (patch) | |
tree | de44eddd9809612b4ad1e658a2205cb3b0ceca0e /src/settings.sml | |
parent | 1d8ba11549f4aa8cac67b4e1111648e978229689 (diff) |
Reduce default inlining thresholds; improve a let-substitution optimization to compensate
Diffstat (limited to 'src/settings.sml')
-rw-r--r-- | src/settings.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index 45e8640a..6839d39e 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -615,11 +615,11 @@ val sql = ref (NONE : string option) fun setSql so = sql := so fun getSql () = !sql -val coreInline = ref 20 +val coreInline = ref 5 fun setCoreInline n = coreInline := n fun getCoreInline () = !coreInline -val monoInline = ref 100 +val monoInline = ref 5 fun setMonoInline n = monoInline := n fun getMonoInline () = !monoInline |