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

- old
+ new

@@ -114,35 +114,38 @@ } static VALUE rb_gsl_blas_ddot(int argc, VALUE *argv, VALUE obj) { double r; - int status; + // local variable "status" declared and set, but never used + //int status; gsl_vector *x = NULL, *y = NULL; get_vector2(argc, argv, obj, &x, &y); - status = gsl_blas_ddot(x, y, &r); + /*status =*/ gsl_blas_ddot(x, y, &r); return rb_float_new(r); } static VALUE rb_gsl_blas_zdotu(int argc, VALUE *argv, VALUE obj) { gsl_complex *r; - int status; + // local variable "status" declared and set, but never used + //int status; gsl_vector_complex *x = NULL, *y = NULL; get_vector_complex2(argc, argv, obj, &x, &y); r = ALLOC(gsl_complex); - status = gsl_blas_zdotu(x, y, r); + /*status =*/ gsl_blas_zdotu(x, y, r); return Data_Wrap_Struct(cgsl_complex, 0, free, r); } static VALUE rb_gsl_blas_zdotc(int argc, VALUE *argv, VALUE obj) { gsl_complex *r; - int status; + // local variable "status" declared and set, but never used + //int status; gsl_vector_complex *x = NULL, *y = NULL; get_vector_complex2(argc, argv, obj, &x, &y); r = ALLOC(gsl_complex); - status = gsl_blas_zdotc(x, y, r); + /*status =*/ gsl_blas_zdotc(x, y, r); return Data_Wrap_Struct(cgsl_complex, 0, free, r); } static VALUE rb_gsl_blas_dnrm2(int argc, VALUE *argv, VALUE obj) {