Ignore the growth policy when fragmentation prevents allocation.

runtime/vm/pages.cc

 // Copyright (c) 2012, the Dart project authors.  Please see the AUTHORS file
 // for details. All rights reserved. Use of this source code is governed by a
 // BSD-style license that can be found in the LICENSE file.
 
 #include "vm/pages.h"
 
 #include "platform/assert.h"
 #include "vm/gc_marker.h"
 #include "vm/gc_sweeper.h"
 #include "vm/object.h"
@@ skipping 181 matching lines @@
 
 uword PageSpace::TryAllocate(intptr_t size) {
   ASSERT(size >= kObjectAlignment);
   ASSERT(Utils::IsAligned(size, kObjectAlignment));
   uword result = 0;
   if (size < kAllocatablePageSize) {
     result = TryBumpAllocate(size);
     if (result == 0) {
       result = freelist_.TryAllocate(size);
       if ((result == 0) &&
-          page_space_controller_.CanGrowPageSpace(size) &&
+          (page_space_controller_.CanGrowPageSpace(size) ||
+           (size < (capacity() - in_use()))) &&  // Fragmentation

[Ivan Posva, 2012/05/31 23:32:53]

The problem with this solution is that it has no memory. The likelihood of
allowing growth is too high.

           CanIncreaseCapacity(kPageSize)) {
         AllocatePage();
         result = TryBumpAllocate(size);
         ASSERT(result != 0);
       }
     }
   } else {
     // Large page allocation.
     intptr_t page_size = LargePageSizeFor(size);
     if (page_size < size) {
@@ skipping 249 matching lines @@
   }
   if (total_time == 0) {
     return 0;
   } else {
     return static_cast<int>((static_cast<double>(gc_time) /
                              static_cast<double>(total_time))*100);
   }
 }
 
 }  // namespace dart