SCM

SCM Repository

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

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

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

revision 3269, Wed Mar 21 23:15:18 2018 UTC revision 3270, Fri Mar 23 08:50:48 2018 UTC
# Line 179  Line 179 
179      double *xx = (double *)(cx -> x);      double *xx = (double *)(cx -> x);
180  #endif  #endif
181      // result value:  sparseResult (==> "*sparseVector") or dense (atomic)vector      // result value:  sparseResult (==> "*sparseVector") or dense (atomic)vector
182      SEXP ans = PROTECT(sp ? NEW_OBJECT(MAKE_CLASS(SparseResult_class))      SEXP ans = PROTECT(sp ? NEW_OBJECT_OF_CLASS(SparseResult_class)
183                         : allocVector(SXP_ans, nc));                         : allocVector(SXP_ans, nc));
184      if (sp) { // sparseResult, i.e. *sparseVector (never allocating length-nc)      if (sp) { // sparseResult, i.e. *sparseVector (never allocating length-nc)
185          int nza, i1, i2, p, *ai;          int nza, i1, i2, p, *ai;

Legend:
Removed from v.3269  
changed lines
  Added in v.3270

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