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 632, Sun Mar 13 21:00:53 2005 UTC revision 633, Sun Mar 13 21:01:15 2005 UTC
# Line 2  Line 2 
2    
3  #include "dtrMatrix.h"  #include "dtrMatrix.h"
4    
5  /* FIXME: dtrMatrix_as_dgeMatrix()  {below}  /* FIXME: Validation works "funny": dtrMatrix_as_dgeMatrix()  {below}
6   * -----  is called *before* the following - presumably in order to   * -----  is called *before* the following - presumably in order to
7   *        apply the higher level validation first   *        apply the higher level validation first
8  */  */
# Line 106  Line 106 
106    
107      SET_SLOT(val, Matrix_rcondSym, duplicate(GET_SLOT(from, Matrix_rcondSym)));      SET_SLOT(val, Matrix_rcondSym, duplicate(GET_SLOT(from, Matrix_rcondSym)));
108      SET_SLOT(val, Matrix_xSym, duplicate(GET_SLOT(from, Matrix_xSym)));      SET_SLOT(val, Matrix_xSym, duplicate(GET_SLOT(from, Matrix_xSym)));
109      /* Dim < 2 can give a seg.fault problem in make_array_triangular(): */      /* Dim < 2 can give a seg.fault problem in make_array_triangular(),
110         * by new("dtrMatrix", Dim = 2:2, x=as.double(1:4)) )# length(Dim) !=2 */
111      if (LENGTH(GET_SLOT(from, Matrix_DimSym)) < 2)      if (LENGTH(GET_SLOT(from, Matrix_DimSym)) < 2)
112          error(_("'Dim' slot has length less than two"));          error(_("'Dim' slot has length less than two"));
113      SET_SLOT(val, Matrix_DimSym, duplicate(GET_SLOT(from, Matrix_DimSym)));      SET_SLOT(val, Matrix_DimSym, duplicate(GET_SLOT(from, Matrix_DimSym)));

Legend:
Removed from v.632  
changed lines
  Added in v.633

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