ext/stats.c in gsl-1.14.7 vs ext/stats.c in gsl-1.15.3
- old
+ new
@@ -43,9 +43,10 @@
static VALUE rb_gsl_stats_XXX1(int argc, VALUE *argv, VALUE obj,
double (*f)(const double*, size_t, size_t, double))
{
size_t stride, size;
double *data = NULL;
+ if (argc < 1) rb_raise(rb_eArgError, "too few arguments");
data = get_vector_stats2(argc, argv, obj, &stride, &size);
return rb_float_new((*f)(data, stride, size, NUM2DBL(argv[argc-1])));
}
static VALUE rb_gsl_stats_XXX2(int argc, VALUE *argv, VALUE obj,