ext/odeiv.c in gsl-1.14.7 vs ext/odeiv.c in gsl-1.15.3
- old
+ new
@@ -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);