SCM

SCM Repository

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

Diff of /pkg/Matrix/src/dgCMatrix.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 59  Line 59 
59    
60      /* replace 'C' or 'R' with 'T' :*/      /* replace 'C' or 'R' with 'T' :*/
61      ncl[2] = 'T';      ncl[2] = 'T';
62      ans = PROTECT(NEW_OBJECT(MAKE_CLASS(ncl)));      ans = PROTECT(NEW_OBJECT_OF_CLASS(ncl));
63    
64      slot_dup(ans, x, Matrix_DimSym);      slot_dup(ans, x, Matrix_DimSym);
65      if((ctype / 3) % 4 != 2) /* not n..Matrix */      if((ctype / 3) % 4 != 2) /* not n..Matrix */
# Line 94  Line 94 
94    
95      /* replace 'R' with 'C' : */      /* replace 'R' with 'C' : */
96      ncl[2] = 'C';      ncl[2] = 'C';
97      PROTECT_WITH_INDEX(ans = NEW_OBJECT(MAKE_CLASS(ncl)), &ipx);      PROTECT_WITH_INDEX(ans = NEW_OBJECT_OF_CLASS(ncl), &ipx);
98    
99      a_dims = INTEGER(ALLOC_SLOT(ans, Matrix_DimSym, INTSXP, 2));      a_dims = INTEGER(ALLOC_SLOT(ans, Matrix_DimSym, INTSXP, 2));
100      /* reversed dim() since we will transpose: */      /* reversed dim() since we will transpose: */

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

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