From noreply at r-forge.r-project.org Thu Sep 19 14:00:40 2013 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Thu, 19 Sep 2013 14:00:40 +0200 (CEST) Subject: [Xts-commits] r792 - pkg/xts/src Message-ID: <20130919120040.E82CB185D9D@r-forge.r-project.org> Author: bodanker Date: 2013-09-19 14:00:40 +0200 (Thu, 19 Sep 2013) New Revision: 792 Modified: pkg/xts/src/endpoints.c Log: - Add error when k <= 0 Modified: pkg/xts/src/endpoints.c =================================================================== --- pkg/xts/src/endpoints.c 2013-08-29 12:56:54 UTC (rev 791) +++ pkg/xts/src/endpoints.c 2013-09-19 12:00:40 UTC (rev 792) @@ -21,6 +21,9 @@ int k = INTEGER(coerceVector(_k,INTSXP))[0]; nr = nrows(_x); + /* ensure k > 0 (bug #4920) */ + if(k <= 0) error("'k' must be > 0"); + /* endpoints objects. max nr+2 ( c(0,ep,nr) ) */ SEXP _ep = PROTECT(allocVector(INTSXP,nr+2)); P++; int *ep = INTEGER(_ep);