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)