Multiple call of the initialize.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@2687 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 9 insertions, 0 deletions

diff --git a/ext/dl/handle.c b/ext/dl/handle.c
index 0ba439701..4b0a12979 100644
--- a/ext/dl/handle.c
+++ b/ext/dl/handle.c
@@ -75,6 +75,9 @@ rb_dlhandle_initialize(int argc, VALUE argv[], VALUE self)
   };
 #endif
   Data_Get_Struct(self, struct dl_handle, dlhandle);
+  if( dlhandle->ptr && dlhandle->open && dlhandle->enable_close ){
+    dlclose(dlhandle->ptr);
+  }
   dlhandle->ptr = ptr;
   dlhandle->open = 1;
   dlhandle->enable_close = 0;
diff --git a/ext/dl/ptr.c b/ext/dl/ptr.c
index 1a31861c8..149f33e4e 100644
--- a/ext/dl/ptr.c
+++ b/ext/dl/ptr.c
@@ -202,6 +202,10 @@ rb_dlptr_initialize(int argc, VALUE argv[], VALUE self)
 
   if( p ){
     Data_Get_Struct(self, struct ptr_data, data);
+    if( data->ptr && data->free ){
+      /* Free previous memory. Use of inappropriate initialize may cause SEGV. */
+      (*(data->free))(data->ptr);
+    }
     data->ptr  = p;
     data->size = s;
     data->free = f;
diff --git a/ext/dl/sym.c b/ext/dl/sym.c
index 7e269b7c9..7531c7969 100644
--- a/ext/dl/sym.c
+++ b/ext/dl/sym.c
@@ -158,6 +158,8 @@ rb_dlsym_initialize(int argc, VALUE argv[], VALUE self)
 
   if( saddr ){
     Data_Get_Struct(self, struct sym_data, data);
+    if( data->name ) free(data->name);
+    if( data->type ) free(data->type);
     data->func = saddr;
     data->name = sname ? strdup(sname) : 0;
     data->type = stype ? strdup(stype) : 0;