Fix failure with Ruby 3.3

The method of getting pointers from TypedData structure has changed since Ruby 3.3.

Ruby 3.2 or below can get the pointer with DATA_PTR().
https://github.com/ruby/ruby/blob/52bb2ac0a6971d0391efa2275f7a66bff319087c/error.c#L1073

Ruby 3.3 or later uses RTYPEDDATA_GET_DATA() to get pointer.
https://github.com/ruby/ruby/blob/5124f9ac7513eb590c37717337c430cb93caa151/error.c#L1326

Author: Watson1978

ext/numo/narray/extconf.rb

@@ -88,6 +88,7 @@ def d(file)
 end
 have_func("exp10")
 have_func("rb_arithmetic_sequence_extract")
+have_func("RTYPEDDATA_GET_DATA")
 
 have_var("rb_cComplex")
 

ext/numo/narray/index.c

@@ -272,7 +272,7 @@ na_parse_enumerator_step(VALUE enum_obj, VALUE *pstep )
     if (!RB_TYPE_P(enum_obj, T_DATA)) {
         rb_raise(rb_eTypeError,"wrong argument type (not T_DATA)");
     }
-    e = (struct enumerator *)DATA_PTR(enum_obj);
+    e = RENUMERATOR_PTR(enum_obj);
 
     if (!rb_obj_is_kind_of(e->obj, rb_cRange)) {
         rb_raise(rb_eTypeError,"not Range object");
@@ -306,7 +306,7 @@ na_parse_enumerator(VALUE enum_obj, int orig_dim, ssize_t size, na_index_arg_t *
         rb_raise(rb_eTypeError,"wrong argument type (not T_DATA)");
     }
     na_parse_enumerator_step(enum_obj, &step);
-    e = (struct enumerator *)DATA_PTR(enum_obj);
+    e = RENUMERATOR_PTR(enum_obj);
     na_parse_range(e->obj, NUM2SSIZET(step), orig_dim, size, q); // e->obj : Range Object
 }
 

ext/numo/narray/numo/narray.h

@@ -301,6 +301,12 @@ _na_get_narray_t(VALUE obj, unsigned char na_type)
 #define RNARRAY_VIEW(val)       ((narray_view_t*)DATA_PTR(val))
 #define RNARRAY_FILEMAP(val)    ((narray_filemap_t*)DATA_PTR(val))
 
+#ifdef HAVE_RTYPEDDATA_GET_DATA
+#define RENUMERATOR_PTR(ptr)    ((struct enumerator *)RTYPEDDATA_GET_DATA(ptr))
+#else
+#define RENUMERATOR_PTR(ptr)    ((struct enumerator *)DATA_PTR(ptr))
+#endif
+
 #define RNARRAY_NDIM(val)       (RNARRAY(val)->ndim)
 #define RNARRAY_TYPE(val)       (RNARRAY(val)->type)
 #define RNARRAY_FLAG(val)       (RNARRAY(val)->flag)

ext/numo/narray/step.c

@@ -60,7 +60,7 @@ nary_step_array_index(VALUE obj, size_t ary_size,
         vstep = rb_ivar_get(obj, id_step);
     } else { // Enumerator
         na_parse_enumerator_step(obj, &vstep);
-        e = (struct enumerator *)DATA_PTR(obj);
+        e = RENUMERATOR_PTR(obj);
         obj =  e->obj; // Range
     }
 
@@ -208,7 +208,7 @@ nary_step_sequence( VALUE obj, size_t *plen, double *pbeg, double *pstep )
         vstep = rb_ivar_get(obj, id_step);
     } else { // Enumerator
         na_parse_enumerator_step(obj, &vstep);
-        e = (struct enumerator *)DATA_PTR(obj);
+        e = RENUMERATOR_PTR(obj);
         obj =  e->obj; // Range
     }