SCM

SCM Repository

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

Diff of /pkg/Matrix/src/dgeMatrix.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 1  Line 1 
1  #include "dgeMatrix.h"  #include "dgeMatrix.h"
2    // -> Mutils.h  etc
3    
4  SEXP dMatrix_validate(SEXP obj)  SEXP dMatrix_validate(SEXP obj)
5  {  {
# Line 106  Line 107 
107    
108    
109  double* gematrix_real_x(SEXP x, int nn) {  double* gematrix_real_x(SEXP x, int nn) {
110      if(class_P(x)[0] == 'd') // <<- FIXME: use Matrix_check_class_etc(x, valid)  !!!      if(class_P(x)[0] == 'd') // <<- FIXME: use R_check_class_etc(x, valid)  !!!
111          return REAL(GET_SLOT(x, Matrix_xSym));          return REAL(GET_SLOT(x, Matrix_xSym));
112  #ifdef _potentically_more_efficient_but_not_working  #ifdef _potentically_more_efficient_but_not_working
113      // else : 'l' or 'n' (for now !!)      // else : 'l' or 'n' (for now !!)

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