Mercurial > urweb

diff src/compiler.sml @ 1815:28986cfac833

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added 'coreInline' and 'monoInline' .urp options
author Vladimir Shabanov <vshabanoff@gmail.com>
date Tue, 04 Sep 2012 03:32:59 +0400
parents 38297294cf98
children 8bc16ff91d32
line wrap: on
line diff
--- a/src/compiler.sml	Mon Sep 03 09:51:23 2012 -0400
+++ b/src/compiler.sml	Tue Sep 04 03:32:59 2012 +0400
@@ -853,6 +853,14 @@
                                      (case Int.fromString arg of
                                           NONE => ErrorMsg.error ("invalid min heap '" ^ arg ^ "'")
                                         | SOME n => minHeap := n)
+                                   | "coreInline" =>
+                                     (case Int.fromString arg of
+                                          NONE => ErrorMsg.error ("invalid core inline level '" ^ arg ^ "'")
+                                        | SOME n => Settings.setCoreInline n)
+                                   | "monoInline" =>
+                                     (case Int.fromString arg of
+                                          NONE => ErrorMsg.error ("invalid mono inline level '" ^ arg ^ "'")
+                                        | SOME n => Settings.setMonoInline n)
                                    | "alwaysInline" => Settings.addAlwaysInline arg
                                    | "noXsrfProtection" => Settings.addNoXsrfProtection arg
                                    | "timeFormat" => Settings.setTimeFormat arg