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 3146, Thu Oct 8 15:52:08 2015 UTC revision 3147, Thu Oct 29 16:56:10 2015 UTC
# Line 45  Line 45 
45      int npt = length(pP) - 1;      int npt = length(pP) - 1;
46      char *ncl = strdup(class_P(x));      char *ncl = strdup(class_P(x));
47      static const char *valid[] = { MATRIX_VALID_Csparse, MATRIX_VALID_Rsparse, ""};      static const char *valid[] = { MATRIX_VALID_Csparse, MATRIX_VALID_Rsparse, ""};
48      int ctype = Matrix_check_class_etc(x, valid);      int ctype = R_check_class_etc(x, valid);
49    
50      if (ctype < 0)      if (ctype < 0)
51          error(_("invalid class(x) '%s' in compressed_to_TMatrix(x)"), ncl);          error(_("invalid class(x) '%s' in compressed_to_TMatrix(x)"), ncl);
# Line 78  Line 78 
78      SEXP ans, tri = PROTECT(allocVector(LGLSXP, 1));      SEXP ans, tri = PROTECT(allocVector(LGLSXP, 1));
79      char *ncl = strdup(class_P(x));      char *ncl = strdup(class_P(x));
80      static const char *valid[] = { MATRIX_VALID_Rsparse, ""};      static const char *valid[] = { MATRIX_VALID_Rsparse, ""};
81      int ctype = Matrix_check_class_etc(x, valid);      int ctype = R_check_class_etc(x, valid);
82      int *x_dims = INTEGER(GET_SLOT(x, Matrix_DimSym)), *a_dims;      int *x_dims = INTEGER(GET_SLOT(x, Matrix_DimSym)), *a_dims;
83      PROTECT_INDEX ipx;      PROTECT_INDEX ipx;
84    

Legend:
Removed from v.3146  
changed lines
  Added in v.3147

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