tenderlove / gvl_release.rb

Last active June 11, 2014


    
    View gvl_release.rb 
  
  
      gvl_release.rb
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
            21
            22
            23
            24
            25
            26
            27
            28
            29
            30
            31
          
          
            require 'fiddle'
 
class GVL
  handle  = Fiddle::Handle::DEFAULT
  address = handle['rb_thread_blocking_region']
  func = Fiddle::Function.new address, [Fiddle::TYPE_VOIDP,
                                        Fiddle::TYPE_VOIDP,
                                        Fiddle::TYPE_VOIDP,
                                        Fiddle::TYPE_VOIDP], Fiddle::TYPE_VOIDP
 
  define_method(:unlocked) do |&block|
    closure = Class.new(Fiddle::Closure) {
      define_method(:call) { |ptr|
        Fiddle.dlwrap block.call
      }
    }.new(Fiddle::TYPE_VOIDP, [Fiddle::TYPE_VOIDP])
 
    func.call(closure, nil, nil, nil).to_value
  end
end
 
def fib n
  if n < 3
    1
  else
    fib(n-1) + fib(n-2)
  end
end
 
gvl = GVL.new
p gvl.unlocked { fib(34) }