SCM

SCM Repository

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

Diff of /pkg/src/dtrMatrix.c

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

revision 534, Tue Feb 8 08:59:31 2005 UTC revision 576, Sat Feb 26 18:18:30 2005 UTC
# Line 2  Line 2 
2    
3  #include "dtrMatrix.h"  #include "dtrMatrix.h"
4    
5    /* FIXME: dtrMatrix_as_dgeMatrix()  {below}
6     * -----  is called *before* the following - presumably in order to
7     *        apply the higher level validation first
8    */
9  SEXP dtrMatrix_validate(SEXP obj)  SEXP dtrMatrix_validate(SEXP obj)
10  {  {
11      SEXP uplo = GET_SLOT(obj, Matrix_uploSym),      SEXP uplo = GET_SLOT(obj, Matrix_uploSym),
# Line 141  Line 145 
145      SET_SLOT(val, Matrix_rcondSym,      SET_SLOT(val, Matrix_rcondSym,
146               duplicate(GET_SLOT(from, Matrix_rcondSym)));               duplicate(GET_SLOT(from, Matrix_rcondSym)));
147      SET_SLOT(val, Matrix_xSym, duplicate(GET_SLOT(from, Matrix_xSym)));      SET_SLOT(val, Matrix_xSym, duplicate(GET_SLOT(from, Matrix_xSym)));
148        /* Dim < 2 can give a seg.fault problem in make_array_triangular(): */
149        if (LENGTH(GET_SLOT(from, Matrix_DimSym)) < 2)
150            error("'Dim' slot has length less than two");
151      SET_SLOT(val, Matrix_DimSym,      SET_SLOT(val, Matrix_DimSym,
152               duplicate(GET_SLOT(from, Matrix_DimSym)));               duplicate(GET_SLOT(from, Matrix_DimSym)));
153      SET_SLOT(val, Matrix_factorSym, allocVector(VECSXP, 0));      SET_SLOT(val, Matrix_factorSym, allocVector(VECSXP, 0));

Legend:
Removed from v.534  
changed lines
  Added in v.576

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