[Genabel-commits] r1467 - pkg/GenABEL/src/ITERlib
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Dec 13 20:28:58 CET 2013
Author: maartenk
Date: 2013-12-13 20:28:57 +0100 (Fri, 13 Dec 2013)
New Revision: 1467
Modified:
pkg/GenABEL/src/ITERlib/iterator.cpp
pkg/GenABEL/src/ITERlib/iterator_functions.cpp
Log:
remove keyword register since this produce warning and not functional anymore due to impoved compilers
Modified: pkg/GenABEL/src/ITERlib/iterator.cpp
===================================================================
--- pkg/GenABEL/src/ITERlib/iterator.cpp 2013-12-13 19:21:07 UTC (rev 1466)
+++ pkg/GenABEL/src/ITERlib/iterator.cpp 2013-12-13 19:28:57 UTC (rev 1467)
@@ -247,7 +247,7 @@
if (argList == NULL) {error_R("can not allocate RAM for argList\n");return R_NilValue;}
va_list ap;
va_start(ap, nrarg); // nrarg is last known parameter
- for (unsigned register int i = 0; i < narg; i++) {
+ for (unsigned int i = 0; i < narg; i++) {
argList[i] = va_arg(ap, SEXP);
}
va_end(ap);
Modified: pkg/GenABEL/src/ITERlib/iterator_functions.cpp
===================================================================
--- pkg/GenABEL/src/ITERlib/iterator_functions.cpp 2013-12-13 19:21:07 UTC (rev 1466)
+++ pkg/GenABEL/src/ITERlib/iterator_functions.cpp 2013-12-13 19:28:57 UTC (rev 1467)
@@ -11,7 +11,7 @@
double prod(double *mydata, unsigned int size)
{
double prodtotal = mydata[0];
- for (register unsigned int i = 1; i < size; i++)
+ for (unsigned int i = 1; i < size; i++)
{
prodtotal *= mydata[i];
}
@@ -38,7 +38,7 @@
double sumtotal = 0.;
double zero = 0;
//Rprintf("%f\n", mydata[0]);
- for (register unsigned int i = 0; i < size; i++)
+ for (unsigned int i = 0; i < size; i++)
{
if (!ISNAN(mydata[i]))
@@ -72,7 +72,7 @@
double sumpower(double *mydata, unsigned int size, int power)
{
double sumpowertotal = 0.;
- for (register unsigned int i = 0; i < size; i++)
+ for (unsigned int i = 0; i < size; i++)
{
sumpowertotal += pow(mydata[i], power);
}
More information about the Genabel-commits
mailing list