carray 1.5.9 → 2.0.0

data/ext/carray_attribute.c

@@ -24,7 +24,7 @@ VALUE
 rb_ca_obj_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return INT2NUM(ca->obj_type);
 }
 
@@ -38,7 +38,7 @@ VALUE
 rb_ca_data_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return INT2NUM(ca->data_type);
 }
 
@@ -52,7 +52,7 @@ VALUE
 rb_ca_ndim (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return INT2NUM(ca->ndim);
 }
 
@@ -70,7 +70,7 @@ VALUE
 rb_ca_bytes (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return SIZE2NUM(ca->bytes);
 }
 
@@ -84,7 +84,7 @@ VALUE
 rb_ca_elements (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return SIZE2NUM(ca->elements);
 }
 
@@ -101,7 +101,7 @@ rb_ca_dim (VALUE self)
   volatile VALUE dim;
   CArray *ca;
   int i;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   dim = rb_ary_new2(ca->ndim);
   for (i=0; i<ca->ndim; i++) {
     rb_ary_store(dim, i, SIZE2NUM(ca->dim[i]));
@@ -120,7 +120,7 @@ VALUE
 rb_ca_dim0 (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return SIZE2NUM(ca->dim[0]);
 }
 
@@ -135,7 +135,7 @@ VALUE
 rb_ca_dim1 (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca->ndim >= 2 ) ? SIZE2NUM(ca->dim[1]) : Qnil;
 }
 
@@ -150,7 +150,7 @@ VALUE
 rb_ca_dim2 (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca->ndim >= 3 ) ? SIZE2NUM(ca->dim[2]) : Qnil;
 }
 
@@ -165,7 +165,7 @@ VALUE
 rb_ca_dim3 (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca->ndim >= 4 ) ? SIZE2NUM(ca->dim[3]) : Qnil;
 }
 
@@ -179,7 +179,7 @@ VALUE
 rb_ca_data_type_name (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return rb_str_new2(ca_type_name[ca->data_type]);
 }
 
@@ -201,7 +201,7 @@ VALUE
 rb_ca_is_scalar (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_scalar(ca) ) ? Qtrue : Qfalse;
 }
 
@@ -212,7 +212,7 @@ rb_obj_is_cscalar (VALUE obj)
 {
   CArray *ca;
   if ( rb_obj_is_carray(obj) ) {
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     return ( ca_is_scalar(ca) ) ? Qtrue : Qfalse;
   }
   return Qfalse;
@@ -236,7 +236,7 @@ VALUE
 rb_ca_is_entity (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_virtual(ca) ) ? Qfalse : Qtrue;
 }
 
@@ -250,7 +250,7 @@ VALUE
 rb_ca_is_virtual (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_virtual(ca) ) ? Qtrue : Qfalse;
 }
 
@@ -265,7 +265,7 @@ VALUE
 rb_ca_is_attached (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_attached(ca) ) ? Qtrue : Qfalse;
 }
 
@@ -280,7 +280,7 @@ VALUE
 rb_ca_is_empty (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca->elements == 0 ) ? Qtrue : Qfalse;
 }
 
@@ -313,7 +313,7 @@ VALUE
 rb_ca_is_read_only (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_readonly(ca) ) ? Qtrue : Qfalse;
 }
 
@@ -346,7 +346,7 @@ VALUE
 rb_ca_is_mask_array (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_mask_array(ca) ) ? Qtrue : Qfalse;
 }
 
@@ -379,7 +379,7 @@ VALUE
 rb_ca_is_value_array (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ( ca_is_value_array(ca) ) ? Qtrue : Qfalse;
 }
 
@@ -401,7 +401,8 @@ VALUE
 rb_ca_is_fixlen_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_fixlen_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -423,7 +424,7 @@ VALUE
 rb_ca_is_boolean_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_boolean_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -446,7 +447,7 @@ VALUE
 rb_ca_is_numeric_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_numeric_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -469,7 +470,7 @@ VALUE
 rb_ca_is_integer_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_integer_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -499,7 +500,7 @@ VALUE
 rb_ca_is_unsigned_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_unsigned_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -522,7 +523,7 @@ VALUE
 rb_ca_is_float_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_float_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -545,7 +546,7 @@ VALUE
 rb_ca_is_complex_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_complex_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -567,7 +568,7 @@ VALUE
 rb_ca_is_object_type (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   return ca_is_object_type(ca) ? Qtrue : Qfalse;
 }
 
@@ -591,7 +592,6 @@ rb_ca_parent (VALUE self)
 VALUE
 rb_ca_set_parent (VALUE self, VALUE obj)
 {
-  OBJ_INFECT(self, obj);
   rb_ivar_set(self, id_parent, obj);
   if ( OBJ_FROZEN(obj) ) {
     rb_ca_freeze(self);
@@ -615,7 +615,7 @@ rb_ca_data_class (VALUE self)
 {
   volatile VALUE parent, data_class;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( ca_test_flag(ca, CA_FLAG_NOT_DATA_CLASS) ) {
     return Qnil;
   }
@@ -641,7 +641,7 @@ rb_ca_data_class (VALUE self)
       }
       else {
         CArray *cr;
-        Data_Get_Struct(parent, CArray, cr);
+        TypedData_Get_Struct(parent, CArray, &carray_data_type, cr);
         if ( cr->bytes != ca->bytes ) {  /* byte size mismatch */
           ca_set_flag(ca, CA_FLAG_NOT_DATA_CLASS);
           return Qnil;
@@ -670,7 +670,7 @@ VALUE
 rb_ca_has_data_class (VALUE self)
 {
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( ca_test_flag(ca, CA_FLAG_NOT_DATA_CLASS) ) {
     return Qfalse;
   }
@@ -756,7 +756,7 @@ rb_ca_root_array (VALUE self)
 {
   volatile VALUE refary;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( ca_is_entity(ca) ) {
     return self;
   }
@@ -778,7 +778,7 @@ rb_ca_ancestors_loop (VALUE self, VALUE list)
 {
   volatile VALUE refary;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   rb_ary_unshift(list, self);
   if ( ca_is_entity(ca) ) {
     return list;
@@ -805,7 +805,7 @@ rb_ca_ancestors (VALUE self)
 {
   volatile VALUE list;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   list = rb_ary_new();
   return rb_ca_ancestors_loop(self, list);
 }

data/ext/carray_call_cfunc.c

@@ -22,7 +22,7 @@ ca_call_cfunc_1 (void (*func)(void *p0), const char *fsync,
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
 
   ca_attach(cx0);
 
@@ -62,8 +62,8 @@ ca_call_cfunc_2 (void (*func)(void *p0, void *p1), const char *fsync,
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
-  Data_Get_Struct(rcx1, CArray, cx1);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
+  TypedData_Get_Struct(rcx1, CArray, &carray_data_type, cx1);
 
   ca_attach_n(2, cx0, cx1);
 
@@ -134,9 +134,9 @@ ca_call_cfunc_3 (void (*func)(void *p0, void *p1, void *p2), const char *fsync,
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
-  Data_Get_Struct(rcx1, CArray, cx1);
-  Data_Get_Struct(rcx2, CArray, cx2);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
+  TypedData_Get_Struct(rcx1, CArray, &carray_data_type, cx1);
+  TypedData_Get_Struct(rcx2, CArray, &carray_data_type, cx2);
 
   ca_attach_n(3, cx0, cx1, cx2);
 
@@ -214,10 +214,10 @@ ca_call_cfunc_4 (void (*func)(void *p0, void *p1, void *p2, void *p3), const cha
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
-  Data_Get_Struct(rcx1, CArray, cx1);
-  Data_Get_Struct(rcx2, CArray, cx2);
-  Data_Get_Struct(rcx3, CArray, cx3);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
+  TypedData_Get_Struct(rcx1, CArray, &carray_data_type, cx1);
+  TypedData_Get_Struct(rcx2, CArray, &carray_data_type, cx2);
+  TypedData_Get_Struct(rcx3, CArray, &carray_data_type, cx3);
 
   ca_attach_n(4, cx0, cx1, cx2, cx3);
 
@@ -303,11 +303,11 @@ ca_call_cfunc_5 (void (*func)(void*,void*,void*,void*,void*), const char *fsync,
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
-  Data_Get_Struct(rcx1, CArray, cx1);
-  Data_Get_Struct(rcx2, CArray, cx2);
-  Data_Get_Struct(rcx3, CArray, cx3);
-  Data_Get_Struct(rcx4, CArray, cx4);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
+  TypedData_Get_Struct(rcx1, CArray, &carray_data_type, cx1);
+  TypedData_Get_Struct(rcx2, CArray, &carray_data_type, cx2);
+  TypedData_Get_Struct(rcx3, CArray, &carray_data_type, cx3);
+  TypedData_Get_Struct(rcx4, CArray, &carray_data_type, cx4);
 
   ca_attach_n(5, cx0, cx1, cx2, cx3, cx4);
 
@@ -400,12 +400,12 @@ ca_call_cfunc_6 (void (*func)(void*,void*,void*,void*,void*,void*), const char *
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
-  Data_Get_Struct(rcx1, CArray, cx1);
-  Data_Get_Struct(rcx2, CArray, cx2);
-  Data_Get_Struct(rcx3, CArray, cx3);
-  Data_Get_Struct(rcx4, CArray, cx4);
-  Data_Get_Struct(rcx5, CArray, cx5);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
+  TypedData_Get_Struct(rcx1, CArray, &carray_data_type, cx1);
+  TypedData_Get_Struct(rcx2, CArray, &carray_data_type, cx2);
+  TypedData_Get_Struct(rcx3, CArray, &carray_data_type, cx3);
+  TypedData_Get_Struct(rcx4, CArray, &carray_data_type, cx4);
+  TypedData_Get_Struct(rcx5, CArray, &carray_data_type, cx5);
 
   ca_attach_n(6, cx0, cx1, cx2, cx3, cx4, cx5);
 
@@ -505,13 +505,13 @@ ca_call_cfunc_7 (void (*func)(void*,void*,void*,void*,void*,void*,void*), const
              "[BUG] invalid length of fsync arg in rb_ca_call_mathfunc");
   }
 
-  Data_Get_Struct(rcx0, CArray, cx0);
-  Data_Get_Struct(rcx1, CArray, cx1);
-  Data_Get_Struct(rcx2, CArray, cx2);
-  Data_Get_Struct(rcx3, CArray, cx3);
-  Data_Get_Struct(rcx4, CArray, cx4);
-  Data_Get_Struct(rcx5, CArray, cx5);
-  Data_Get_Struct(rcx6, CArray, cx6);
+  TypedData_Get_Struct(rcx0, CArray, &carray_data_type, cx0);
+  TypedData_Get_Struct(rcx1, CArray, &carray_data_type, cx1);
+  TypedData_Get_Struct(rcx2, CArray, &carray_data_type, cx2);
+  TypedData_Get_Struct(rcx3, CArray, &carray_data_type, cx3);
+  TypedData_Get_Struct(rcx4, CArray, &carray_data_type, cx4);
+  TypedData_Get_Struct(rcx5, CArray, &carray_data_type, cx5);
+  TypedData_Get_Struct(rcx6, CArray, &carray_data_type, cx6);
 
   ca_attach_n(7, cx0, cx1, cx2, cx3, cx4, cx5, cx6);
 

data/ext/carray_cast.c

@@ -232,7 +232,7 @@ rb_ca_data_class_to_object (VALUE self)
   CArray *ca;
   int i;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( ca_is_scalar(ca) ) {
     obj = rb_cscalar_new(CA_OBJECT, 0, ca->mask);
@@ -256,7 +256,7 @@ rb_ca_object_to_data_class (VALUE self, VALUE rtype, ca_size_t bytes)
   int i;
   ID id_encode = rb_intern("encode");
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   if ( ca_is_scalar(ca) ) {
     obj = rb_cscalar_new(CA_FIXLEN, bytes, ca->mask);
@@ -293,7 +293,7 @@ rb_ca_to_type_internal (int argc, VALUE *argv, VALUE self)
   int8_t data_type;
   ca_size_t bytes;
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
 
   rb_scan_args(argc, argv, "11", (VALUE *) &rtype, (VALUE *) &ropt);
   rb_scan_options(ropt, "bytes", &rbytes);
@@ -319,7 +319,7 @@ rb_ca_to_type_internal (int argc, VALUE *argv, VALUE self)
 
   rb_ca_data_type_import(obj, rtype);
 
-  Data_Get_Struct(obj, CArray, cb);
+  TypedData_Get_Struct(obj, CArray, &carray_data_type, cb);
 
   ca_attach(ca);
   if ( ca_has_mask(ca) ) {
@@ -526,7 +526,7 @@ rb_ca_as_type_internal (int argc, VALUE *argv, VALUE self)
 
   rb_ca_guess_type_and_bytes(rtype, rbytes, &data_type, &bytes);
 
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( ca->data_type == data_type ) {
     if ( ! ca_is_fixlen_type(ca) ) {
       return self;
@@ -725,8 +725,8 @@ rb_ca_cast_block (ca_size_t n, VALUE ra1, void *ptr1,
                   VALUE ra2, void *ptr2)
 {
   CArray *ca1, *ca2;
-  Data_Get_Struct(ra1, CArray, ca1);
-  Data_Get_Struct(ra2, CArray, ca2);
+  TypedData_Get_Struct(ra1, CArray, &carray_data_type, ca1);
+  TypedData_Get_Struct(ra2, CArray, &carray_data_type, ca2);
   if ( n < 0 ) {
     rb_raise(rb_eRuntimeError, "[BUG] in rb_ca_cast_block: negative count");
   }
@@ -738,8 +738,8 @@ VALUE
 rb_ca_ptr2ptr (VALUE ra1, void *ptr1, VALUE ra2, void *ptr2)
 {
   CArray *ca1, *ca2;
-  Data_Get_Struct(ra1, CArray, ca1);
-  Data_Get_Struct(ra2, CArray, ca2);
+  TypedData_Get_Struct(ra1, CArray, &carray_data_type, ca1);
+  TypedData_Get_Struct(ra2, CArray, &carray_data_type, ca2);
   ca_cast_func_table[ca1->data_type][ca2->data_type](1, ca1, ptr1, ca2, ptr2, NULL);
   return Qnil;
 }
@@ -751,11 +751,10 @@ rb_ca_ptr2obj (VALUE self, void *ptr)
   volatile VALUE obj;
   static CArray dummy;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   dummy.data_type = CA_OBJECT;
   ca_cast_func_table[ca->data_type][CA_OBJECT](1, ca, ptr, &dummy, (void*)&obj, NULL);
   if ( ca_is_fixlen_type(ca) ) {
-    OBJ_TAINT(obj);
     return rb_ca_data_class_decode(self, obj);
   }
   else {
@@ -768,7 +767,7 @@ rb_ca_obj2ptr (VALUE self, VALUE obj, void *ptr)
 {
   static CArray dummy;
   CArray *ca;
-  Data_Get_Struct(self, CArray, ca);
+  TypedData_Get_Struct(self, CArray, &carray_data_type, ca);
   if ( obj == CA_UNDEF ) {
     memset(ptr, 0, ca->bytes);
   }
@@ -788,7 +787,7 @@ rb_ca_wrap_writable (VALUE arg, VALUE rtype)
   int8_t data_type;
 
   if ( rb_obj_is_carray(obj) ) {                    /* obj == carray */
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     if ( ca_is_readonly(ca) ) {
       rb_raise(rb_eRuntimeError, "can't modify read-only carray");
     }
@@ -813,7 +812,7 @@ rb_ca_wrap_writable (VALUE arg, VALUE rtype)
   }
   else if ( rb_respond_to(obj, rb_intern("ca")) ) { /* respond_to obj.ca */
     obj = rb_funcall(obj, rb_intern("ca"), 0);
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     if ( NIL_P(rtype) ) {
       data_type = ca->data_type;
     }
@@ -855,7 +854,7 @@ rb_ca_wrap_readonly (VALUE arg, VALUE rtype)
   int8_t data_type;
 
   if ( rb_obj_is_carray(obj) ) {                     /* carray */
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     if ( NIL_P(rtype) ) {
       data_type = ca->data_type;
     }
@@ -877,7 +876,7 @@ rb_ca_wrap_readonly (VALUE arg, VALUE rtype)
   }
   else if ( TYPE(obj) == T_ARRAY ) {                 /* array */
     obj = rb_funcall(obj, rb_intern("to_ca"), 0);
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     if ( NIL_P(rtype) ) {
       data_type = CA_OBJECT;
     }
@@ -920,7 +919,7 @@ rb_ca_wrap_readonly (VALUE arg, VALUE rtype)
   }
   else if ( rb_respond_to(obj, rb_intern("ca")) ) {
     obj = rb_funcall(obj, rb_intern("ca"), 0);
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     if ( NIL_P(rtype) ) {
       data_type = ca->data_type;
     }
@@ -933,7 +932,7 @@ rb_ca_wrap_readonly (VALUE arg, VALUE rtype)
   }
   else if ( rb_respond_to(obj, rb_intern("to_ca")) ) {
     obj = rb_funcall(obj, rb_intern("to_ca"), 0);
-    Data_Get_Struct(obj, CArray, ca);
+    TypedData_Get_Struct(obj, CArray, &carray_data_type, ca);
     if ( NIL_P(rtype) ) {
       data_type = ca->data_type;
     }
@@ -1105,17 +1104,17 @@ rb_ca_cast_self_or_other (volatile VALUE *self, volatile VALUE *other)
     }
   }
 
-  Data_Get_Struct(*self, CArray, ca);
-  Data_Get_Struct(*other, CArray, cb);
+  TypedData_Get_Struct(*self, CArray, &carray_data_type, ca);
+  TypedData_Get_Struct(*other, CArray, &carray_data_type, cb);
 
   if ( ca->obj_type == CA_OBJ_UNBOUND_REPEAT ) {
     *self = ca_ubrep_bind_with(*self, *other);
-    Data_Get_Struct(*self, CArray, ca);
+    TypedData_Get_Struct(*self, CArray, &carray_data_type, ca);
   }
 
   if ( cb->obj_type == CA_OBJ_UNBOUND_REPEAT ) {
     *other = ca_ubrep_bind_with(*other, *self);
-    Data_Get_Struct(*other, CArray, cb);
+    TypedData_Get_Struct(*other, CArray, &carray_data_type, cb);
   }
 
   if ( ca_is_scalar(ca) ^ ca_is_scalar(cb) || 
@@ -1187,7 +1186,7 @@ rb_ca_cast_other (VALUE *self, volatile VALUE *other)
   CScalar *cs;
   int test0, test1;
 
-  Data_Get_Struct(*self, CArray, ca);
+  TypedData_Get_Struct(*self, CArray, &carray_data_type, ca);
 
   if ( ! rb_obj_is_carray(*other) ) {
     if ( rb_ca_is_object_type(*self) ) {
@@ -1227,7 +1226,7 @@ rb_ca_cast_other (VALUE *self, volatile VALUE *other)
       }
     }
     
-    Data_Get_Struct(*other, CScalar, cs);
+    TypedData_Get_Struct(*other, CScalar, &cscalar_data_type, cs);
 
     test0 = ca_cast_table2[cs->data_type][ca->data_type];
 
@@ -1237,11 +1236,11 @@ rb_ca_cast_other (VALUE *self, volatile VALUE *other)
 
   }
 
-  Data_Get_Struct(*other, CArray, cb);
+  TypedData_Get_Struct(*other, CArray, &carray_data_type, cb);
 
   if ( cb->obj_type == CA_OBJ_UNBOUND_REPEAT ) {
     *other = ca_ubrep_bind_with(*other, *self);
-    Data_Get_Struct(*other, CArray, cb);
+    TypedData_Get_Struct(*other, CArray, &carray_data_type, cb);
   }
 
   test1 = ca_cast_table[cb->data_type][ca->data_type];

data/ext/carray_cast_func.rb

@@ -250,14 +250,13 @@ FIXLEN.each do |type1|
          bytes = a1->bytes;
          if ( m ) {
            while ( n-- ) {
-             if ( !*m ) { *p2 = rb_str_new(p1, bytes); OBJ_TAINT(*p2); }
+             if ( !*m ) { *p2 = rb_str_new(p1, bytes); }
              p1+=bytes; p2++; m++;
            }
          }
          else {
            while ( n-- ) {
              *p2 = rb_str_new(p1, bytes); 
-             OBJ_TAINT(*p2); 
              p1+=bytes; p2++;
            }
          }