sf_bessel.c in gsl-1.15.3

- old
+ new

@@ -286,18 +286,20 @@
 }
 
 static VALUE rb_gsl_sf_bessel_xl_array(VALUE obj, VALUE n1, VALUE x,
 				       int (*f)(int, double, double[]))
 {
-  int nmax, n, status;
+  int nmax, n;
+  // local variable "status" declared and set, but never used
+  //int status;
   gsl_vector *v = NULL;
   CHECK_FIXNUM(n1);
   Need_Float(x);
   nmax = FIX2INT(n1);
   n = nmax  + 1;
   v = gsl_vector_alloc(n);
-  status = (*f)(nmax, NUM2DBL(x), v->data);
+  /*status =*/ (*f)(nmax, NUM2DBL(x), v->data);
   return Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v);
 }
 
 static VALUE rb_gsl_sf_bessel_jl_array(VALUE obj, VALUE n1, VALUE x)
 {
@@ -463,11 +465,13 @@
 
 /* The new array will be returned, the original array "ary" is not modified */
 static VALUE rb_gsl_sf_bessel_sequence_Jnu_e(int argc, VALUE *argv, VALUE obj)
 {
   size_t i, size;
-  int status, flag = 0;
+  // local variable "status" declared and set, but never used
+  //int status;
+  int flag = 0;
   gsl_vector *v = NULL;
   gsl_mode_t mode;
   char c;
   VALUE nu, m, ary;
 
@@ -513,10 +517,10 @@
     Data_Get_Struct(ary, gsl_vector, v);
     size = v->size;
     flag = 0;
     break;
   }
-  status = gsl_sf_bessel_sequence_Jnu_e(NUM2DBL(nu), mode, size, v->data);
+  /*status =*/ gsl_sf_bessel_sequence_Jnu_e(NUM2DBL(nu), mode, size, v->data);
   if (flag == 1) return Data_Wrap_Struct(cgsl_vector, 0, gsl_vector_free, v);
   else return ary;
 }
 
 /* Irregular Bessel Function - Fractional Order */