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);