SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/src/sparseQR.c
ViewVC logotype

Diff of /pkg/Matrix/src/sparseQR.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3115, Tue May 19 16:34:46 2015 UTC revision 3213, Tue Apr 18 20:14:20 2017 UTC
# Line 66  Line 66 
66      if(m >= SMALL_4_Alloca) Free(x);      if(m >= SMALL_4_Alloca) Free(x);
67      if(!isNull(dmns)) { // assign rownames to 'ans' matrix      if(!isNull(dmns)) { // assign rownames to 'ans' matrix
68          // FIXME? colnames taken from 'y' ?!          // FIXME? colnames taken from 'y' ?!
69          if(!isNull(VECTOR_ELT(dmns, 0)))          if(!isNull(VECTOR_ELT(dmns, 0))) {
70              SET_VECTOR_ELT(GET_SLOT(ans, Matrix_DimNamesSym), 0,              SEXP nms_0 = PROTECT(duplicate(VECTOR_ELT(dmns, 0)));
71                             duplicate(VECTOR_ELT(dmns, 0)));              SET_VECTOR_ELT(GET_SLOT(ans, Matrix_DimNamesSym), 0, nms_0);
72                UNPROTECT(1);
73            }
74      }      }
75  }  }
76    

Legend:
Removed from v.3115  
changed lines
  Added in v.3213

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge