From 1fcde7c2e2bd780fc3bf4bf98fad7054177de5aa Mon Sep 17 00:00:00 2001
From: ngoto <ngoto@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 11 Dec 2012 15:24:31 +0000
Subject: * ext/dl/lib/dl/func.rb (DL::Function#unbind, #bound?): suppress
 NoMethodError when Fiddle is available. [ruby-core:50756] [Bug #7543] *
 test/dl/test_func.rb (test_bound*, test_unbind*): tests for the above.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@38324 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/dl/lib/dl/func.rb | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'ext/dl')

diff --git a/ext/dl/lib/dl/func.rb b/ext/dl/lib/dl/func.rb
index 434f1bc868..a2e503835f 100644
--- a/ext/dl/lib/dl/func.rb
+++ b/ext/dl/lib/dl/func.rb
@@ -36,6 +36,9 @@ module DL
         def name
           @name
         end
+        def ptr
+          to_i
+        end
       end
       private_constant :FiddleClosureCFunc
 
@@ -157,6 +160,25 @@ module DL
     end
 
     def unbind()
+      if DL.fiddle? then
+        if @cfunc.kind_of?(Fiddle::Closure) and @cfunc.ptr != 0 then
+          call_type = case abi
+                      when CALL_TYPE_TO_ABI[nil]
+                        nil
+                      when CALL_TYPE_TO_ABI[:stdcall]
+                        :stdcall
+                      else
+                        raise(RuntimeError, "unsupported abi: #{abi}")
+                      end
+          @cfunc = CFunc.new(0, @cfunc.ctype, name, call_type)
+          return 0
+        elsif @cfunc.ptr != 0 then
+          @cfunc.ptr = 0
+          return 0
+        else
+          return nil
+        end
+      end
       if( @cfunc.ptr != 0 )
         case @cfunc.calltype
         when :cdecl
-- 
cgit v1.2.3