SCM

SCM Repository

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

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

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

revision 2989, Mon Apr 28 20:32:22 2014 UTC revision 2990, Thu May 8 10:31:52 2014 UTC
# Line 798  Line 798 
798    
799          DUP_MMATRIX_NON_CLASS;          DUP_MMATRIX_NON_CLASS;
800    
801            if (!isReal(A)) {
802          if (isInteger(A) || isLogical(A)) {          if (isInteger(A) || isLogical(A)) {
803              A = PROTECT(coerceVector(A, REALSXP));              A = PROTECT(coerceVector(A, REALSXP));
804              nprot++;              nprot++;
805          }              } else
         if (!isReal(A))  
806              error(_("invalid class '%s' to dup_mMatrix_as_dgeMatrix"),              error(_("invalid class '%s' to dup_mMatrix_as_dgeMatrix"),
807                    class_P(A));                    class_P(A));
808      }      }
809        }
810    
811      DUP_MMATRIX_SET_1;      DUP_MMATRIX_SET_1;
812    

Legend:
Removed from v.2989  
changed lines
  Added in v.2990

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