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)