ext/gsl_narray.c in gsl-1.14.7 vs ext/gsl_narray.c in gsl-1.15.3

@@ -29,12 +29,10 @@
   nary = na_make_object(NA_DFLOAT, 1, shape, klass);
   if (v->stride == 1) {
     memcpy(NA_PTR_TYPE(nary,double*), v->data, shape[0]*sizeof(double));
   } else {
     int i;
-    struct NARRAY *na;
-    GetNArray(nary, na);
     for(i=0; i < v->size; i++) {
       (NA_PTR_TYPE(nary,double*))[i] = gsl_vector_get(v, i);
     }
   }
   return nary;
@@ -50,12 +48,10 @@
   nary = na_make_object(NA_DCOMPLEX, 1, shape, klass);
   if (v->stride == 1) {
     memcpy(NA_PTR_TYPE(nary,double*), v->data, shape[0]*2*sizeof(double));
   } else {
     int i;
-    struct NARRAY *na;
-    GetNArray(nary, na);
     for(i=0; i < 2*v->size; i++) {
       (NA_PTR_TYPE(nary,gsl_complex*))[i] = gsl_vector_complex_get(v, i);
     }
   }
   return nary;
@@ -172,12 +168,10 @@
   nary = na_make_object(NA_LINT, 1, shape, klass);
   if (v->stride == 1) {
     memcpy(NA_PTR_TYPE(nary,int*), v->data, shape[0]*sizeof(int));
   } else {
     int i;
-    struct NARRAY *na;
-    GetNArray(nary, na);
     for(i=0; i < v->size; i++) {
       (NA_PTR_TYPE(nary,int*))[i] = gsl_vector_int_get(v, i);
     }
   }
   return nary;
@@ -242,10 +236,10 @@
         na_to_gv(na));
 
   return v;
 }
 
-static VALUE rb_gsl_na_to_gsl_vector_view_method(VALUE na)
+VALUE rb_gsl_na_to_gsl_vector_view_method(VALUE na)
 {
   VALUE v;
 
   if(NA_TYPE(na) == NA_SCOMPLEX || NA_TYPE(na) == NA_DCOMPLEX)
     v = Data_Wrap_Struct(cgsl_vector_complex_view, 0, gsl_vector_complex_view_free,