[Xts-commits] r794 - pkg/xts/src

[noreply at r-forge.r-project.org]

Author: bodanker
Date: 2013-10-31 20:54:29 +0100 (Thu, 31 Oct 2013)
New Revision: 794

Modified:
   pkg/xts/src/leadingNA.c
Log:
- fix copy/paste error that caused segfault


Modified: pkg/xts/src/leadingNA.c
===================================================================
--- pkg/xts/src/leadingNA.c	2013-10-28 18:32:07 UTC (rev 793)
+++ pkg/xts/src/leadingNA.c	2013-10-31 19:54:29 UTC (rev 794)
@@ -511,7 +511,7 @@
         }
       } else {                      /* fromLast=TRUE */
         for(j=0; j < nc; j++) {
-          real_result[nr-1+j*nr] = int_x[nr-1+j*nr];
+          real_result[nr-1+j*nr] = real_x[nr-1+j*nr];
           for(i=nr-2 + j*nr; i>=0+j*nr; i--) {
             real_result[i] = real_x[i];
             if(ISNA(real_result[i]) || ISNAN(real_result[i])) {