3642   HeapWord* block = NULL;

  3642   HeapWord* block = NULL;

  3643   size_t free_words;

  3643   size_t free_words;

  3644   do {

  3644   do {

  3645     free_words = r->free()/HeapWordSize;

  3645     free_words = r->free()/HeapWordSize;

  3646     // If there's too little space, no one can allocate, so we're done.

  3646     // If there's too little space, no one can allocate, so we're done.

  3648     // Otherwise, try to claim it.

  3648     // Otherwise, try to claim it.

  3649     block = r->par_allocate(free_words);

  3649     block = r->par_allocate(free_words);

  3650   } while (block == NULL);

  3650   } while (block == NULL);

  3651   fill_with_object(block, free_words);

  3651   fill_with_object(block, free_words);

  3652 }

  3652 }