[MLton-commit] r5416

[Matthew Fluet]

Increase inlining parameters on x86
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/Makefile
U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state.c
U   mlton/branches/on-20050822-x86_64-branch/runtime/gc/init-world.c

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/Makefile
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/Makefile	2007-03-11 16:08:33 UTC (rev 5415)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/Makefile	2007-03-11 16:51:23 UTC (rev 5416)
@@ -58,6 +58,7 @@
 GCOPTFLAGS += --param max-inline-insns-single=1000
 ifeq ($(findstring $(GCC_VERSION), 3.4 4.0),$(GCC_VERSION))
 GCOPTFLAGS += --param inline-unit-growth=125
+GCOPTFLAGS += --param large-function-growth=1100
 OPTWARNFLAGS += -Winline
 endif
 endif

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state.c	2007-03-11 16:08:33 UTC (rev 5415)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/gc_state.c	2007-03-11 16:51:23 UTC (rev 5416)
@@ -67,7 +67,8 @@
       and (nurseryBytesRequested
            <= (size_t)(s->limitPlusSlop
                        - alignFrontier (s, (s->limitPlusSlop 
-                                            - nurserySize / 2 + 2))))
+                                            - nurserySize / 2
+                                            - s->alignment / 2))))
       /* The nursery is large enough to be worth it. */
       and (((float)(h->size - s->lastMajorStatistics.bytesLive) 
             / (float)nurserySize) 

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/gc/init-world.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/gc/init-world.c	2007-03-11 16:08:33 UTC (rev 5415)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/gc/init-world.c	2007-03-11 16:51:23 UTC (rev 5416)
@@ -152,7 +152,7 @@
   initIntInfs (s);
   initVectors (s);
   assert ((size_t)(s->frontier - start) <= s->lastMajorStatistics.bytesLive);
-  s->heap.oldGenSize = s->frontier - s->heap.start;
+  s->heap.oldGenSize = align(s->frontier - s->heap.start, s->alignment);
   setGCStateCurrentHeap (s, 0, 0);
   thread = newThread (s, sizeofStackInitial (s));
   switchToThread (s, pointerToObjptr((pointer)thread - offsetofThread (s), s->heap.start));