diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-11 15:16:04 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-11 15:16:04 -0500 |
| commit | f327681cc734f2b478051f0174ca9d980ff2e5ae (patch) | |
| tree | 83876d7a5e776b30240a4894ea70dfa58ddf120b /src/cjr_print.sml | |
| parent | 019d9a9c56bab7876983b78613e621d884ec20ae (diff) | |
minHeap option in .urp files
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index 46de6a52..df11737e 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2834,6 +2834,16 @@ fun p_file env (ds, ps) = box [string "static void uw_setup_limits() {", newline, + case Settings.getMinHeap () of + 0 => box [] + | n => box [string "uw_min_heap", + space, + string "=", + space, + string (Int.toString n), + string ";", + newline, + newline], box [p_list_sep (box []) (fn (class, num) => let val num = case class of |