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

@@ -79,11 +79,12 @@
 static int calc_jac(double t, const double y[], double *dfdy, double dfdt[], void *data);
 
 static int calc_func(double t, const double y[], double dydt[], void *data)
 {
   VALUE ary, params, proc;
-  VALUE result;
+  // local variable "result" declared and set, but never used
+  //VALUE result;
   VALUE vy, vdydt;
   gsl_vector_view ytmp, dydttmp;
   size_t dim;
 
   ary = (VALUE) data;
@@ -98,21 +99,23 @@
   dydttmp.vector.stride = 1;
   dydttmp.vector.size = dim;
   vy = Data_Wrap_Struct(cgsl_vector_view_ro, 0, NULL, &ytmp);
   vdydt = Data_Wrap_Struct(cgsl_vector_view, 0, NULL, &dydttmp);
 
-  if (NIL_P(params)) result = rb_funcall((VALUE) proc, RBGSL_ID_call, 3, rb_float_new(t), 
+  if (NIL_P(params)) /*result =*/ rb_funcall((VALUE) proc, RBGSL_ID_call, 3, rb_float_new(t), 
 					 vy, vdydt);
-  else result = rb_funcall((VALUE) proc, RBGSL_ID_call, 4, rb_float_new(t), vy, vdydt, params);
+  else /*result =*/ rb_funcall((VALUE) proc, RBGSL_ID_call, 4, rb_float_new(t), vy, vdydt, params);
  
   return GSL_SUCCESS;
 }
 
 static int calc_jac(double t, const double y[], double *dfdy, double dfdt[], void *data)
 {
   VALUE params, proc, ary;
-  VALUE result, vdfdt;
+  VALUE vdfdt;
+  // local variable "result" declared and set, but never used
+  //VALUE result;
   VALUE vy, vmjac;
   gsl_vector_view ytmp, dfdttmp;
   gsl_matrix_view mv;
   size_t dim;
   
@@ -131,12 +134,12 @@
   dfdttmp.vector.stride = 1;
   mv = gsl_matrix_view_array(dfdy, dim, dim);
   vy = Data_Wrap_Struct(cgsl_vector_view_ro, 0, NULL, &ytmp);
   vmjac = Data_Wrap_Struct(cgsl_matrix_view, 0, NULL, &mv);
   vdfdt = Data_Wrap_Struct(cgsl_vector_view, 0, NULL, &dfdttmp);
-  if (NIL_P(params)) result = rb_funcall((VALUE) proc, RBGSL_ID_call, 4, rb_float_new(t),
+  if (NIL_P(params)) /*result =*/ rb_funcall((VALUE) proc, RBGSL_ID_call, 4, rb_float_new(t),
 					 vy, vmjac, vdfdt);
-  else result = rb_funcall((VALUE) proc, RBGSL_ID_call, 5, rb_float_new(t), 
+  else /*result =*/ rb_funcall((VALUE) proc, RBGSL_ID_call, 5, rb_float_new(t), 
 			   vy, vmjac, vdfdt, params);
   return GSL_SUCCESS;
 }
 
 static void gsl_odeiv_system_mark(gsl_odeiv_system *sys);