SCM

SCM Repository

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

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

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

revision 3078, Tue Mar 31 15:27:56 2015 UTC revision 3079, Tue Mar 31 15:29:43 2015 UTC
# Line 292  Line 292 
292              sqr = (adims[0] == adims[1]),              sqr = (adims[0] == adims[1]),
293              tru = (k1 >= 0), trl = (k2 <= 0);              tru = (k1 >= 0), trl = (k2 <= 0);
294          const char *cl = class_P(ans);          const char *cl = class_P(ans);
295          enum dense_enum { ddense, ldense, ndense          enum dense_enum M_type = ( (cl[0] == 'd') ? ddense :
         } M_type = ( (cl[0] == 'd') ? ddense :  
296                      ((cl[0] == 'l') ? ldense : ndense));                      ((cl[0] == 'l') ? ldense : ndense));
297    
298    
# Line 349  Line 348 
348      SEXP ans, dns, nms_dns;      SEXP ans, dns, nms_dns;
349      const char *cl = class_P(dx);      const char *cl = class_P(dx);
350      /* same as in ..._geMatrix() above:*/      /* same as in ..._geMatrix() above:*/
351      enum dense_enum { ddense, ldense, ndense      enum dense_enum M_type = ( (cl[0] == 'd') ? ddense :
     } M_type = ( (cl[0] == 'd') ? ddense :  
352                  ((cl[0] == 'l') ? ldense : ndense));                  ((cl[0] == 'l') ? ldense : ndense));
353      int *adims = INTEGER(GET_SLOT(dx, Matrix_DimSym)), n = adims[0];      int *adims = INTEGER(GET_SLOT(dx, Matrix_DimSym)), n = adims[0];
354      if(n != adims[1]) {      if(n != adims[1]) {

Legend:
Removed from v.3078  
changed lines
  Added in v.3079

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