From d4fb3227f96e01e9fbea4c038e536aad449427e9 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 9 May 2010 07:28:17 +0000
Subject: * cont.c (fiber_initialize_machine_stack_context): try to release  
 unnecessary fibers and retry to create.  based on a patch from   masaya tarui
 at [ruby-dev:41230].

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@27701 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 cont.c | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'cont.c')

diff --git a/cont.c b/cont.c
index 54f05aba8c..8bb9821c7c 100644
--- a/cont.c
+++ b/cont.c
@@ -548,6 +548,14 @@ fiber_initialize_machine_stack_context(rb_fiber_t *fib, size_t size)
 
 #ifdef _WIN32
     fib->fib_handle = CreateFiberEx(size - 1, size, 0, fiber_entry, NULL);
+    if (!fib->fib_handle) {
+	/* try to release unnecessary fibers & retry to create */
+	rb_gc();
+	fib->fib_handle = CreateFiberEx(size - 1, size, 0, fiber_entry, NULL);
+	if (!fib->fib_handle) {
+	    rb_raise(rb_eFiberError, "can't create fiber");
+	}
+    }
 #else /* not WIN32 */
     ucontext_t *context = &fib->context;
     VALUE *ptr;
-- 
cgit v1.2.3