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

- old
+ new

@@ -1297,22 +1297,23 @@ { GSL_TYPE(gsl_vector) *v = NULL; char buf[32], format[32], format2[32]; size_t i; VALUE str; - BASE x, min; + BASE x; int dig = 8; #ifdef BASE_INT + BASE min; BASE max; dig = 1; #endif Data_Get_Struct(obj, GSL_TYPE(gsl_vector), v); if (v->size == 0) return rb_str_new2("[ ]"); - min = FUNCTION(gsl_vector,min)(v); str = rb_str_new2("[ "); if (VEC_COL_P(obj)) { #ifdef BASE_INT + min = FUNCTION(gsl_vector,min)(v); max = gsl_vector_int_max(v); dig = (int) GSL_MAX(fabs(max),fabs(min)); if (dig > 0) dig = ceil(log10(dig+1e-10)); else dig = 1; if (min < 0) dig += 1; @@ -2557,20 +2558,20 @@ gsl_block_uchar*)) { GSL_TYPE(gsl_vector) *a, *b; /* gsl_vector_int *c;*/ gsl_block_uchar *c; - int status; + //int status; Data_Get_Struct(aa, GSL_TYPE(gsl_vector), a); c = gsl_block_uchar_alloc(a->size); if (VEC_P(bb)) { Data_Get_Struct(bb, GSL_TYPE(gsl_vector), b); if (a->size != b->size) rb_raise(rb_eRuntimeError, "Vector size mismatch, %d and %d", (int) a->size, (int) b->size); - status = (*cmp)(a, b, c); + /*status =*/ (*cmp)(a, b, c); } else { - status = (*cmp2)(a, NUMCONV(bb), c); + /*status =*/ (*cmp2)(a, NUMCONV(bb), c); } return Data_Wrap_Struct(cgsl_block_uchar, 0, gsl_block_uchar_free, c); } static VALUE FUNCTION(rb_gsl_vector,eq)(VALUE aa, VALUE bb)