[ruby-dev:10259] thread bug?

前田です。

添付するスクリプトでおちるようです。

shugo@studly[ruby]$ ruby -v test.rb
ruby 1.4.5 (2000-06-24) [i486-linux]
test.rb:40: [BUG] Segmentation fault
Aborted
shugo@studly[ruby]$ ruby-cvs -v test.rb
ruby 1.5.4 (2000-06-12) [i586-linux]
test.rb:40: [BUG] Segmentation fault
Aborted

-- 
前田 修吾

require "thread"

class ThreadLimiter
  def initialize(max)
    super()
    @count = 0
    @max = max
    @mutex = Mutex.new
    @full_cond = ConditionVariable.new
  end

  def new_thread
    @mutex.synchronize do
      while @count >= @max
	@full_cond.wait(@mutex)
      end
      @count += 1
      return Thread.start { |th|
	yield(th)
	@mutex.synchronize do
	  @count -= 1
	  @full_cond.signal
	end
      }
    end
  end
end

def foo
  $threads.push $thlimit.new_thread {
    sleep(0.1)
  }
end

$thlimit = ThreadLimiter.new(5)
$threads = []

100.times do
  foo
  GC.start
end

for th in $threads
  th.join
end