Mercurial > forge
diff main/fixed/src/fixed.cc @ 9481:d84d2fea3c90 octave-forge
Re-enable compilation of fixed package
author | jordigh |
---|---|
date | Wed, 22 Feb 2012 22:07:33 +0000 |
parents | f8d77845533f |
children | a9d1f82e4f62 |
line wrap: on
line diff
--- a/main/fixed/src/fixed.cc Wed Feb 22 21:56:05 2012 +0000 +++ b/main/fixed/src/fixed.cc Wed Feb 22 22:07:33 2012 +0000 @@ -213,7 +213,7 @@ } else { if (args(0).is_complex_type()) { ComplexMatrix a = args(0).complex_matrix_value(); - MArray2<int> b(a.rows(),a.cols()); + MArray<int> b(dim_vector (a.rows(),a.cols())); for (int j = 0; j < a.cols(); j++) for (int i = 0; i < a.rows(); i++) b(i,j) = (int)real(a(i,j)); @@ -225,7 +225,7 @@ retval = new octave_fixed_complex_matrix (fr, fi); } else { Matrix a = args(0).matrix_value(); - MArray2<int> b(a.rows(),a.cols()); + MArray<int> b(dim_vector (a.rows(),a.cols())); for (int j = 0; j < a.cols(); j++) for (int i = 0; i < a.rows(); i++) b(i,j) = (int)a(i,j); @@ -237,7 +237,7 @@ if (args(0).is_complex_type() || args(1).is_complex_type() || ((nargin > 2) && args(2).is_complex_type())) { - MArray2<int> mir, mii, mdr, mdi; + MArray<int> mir, mii, mdr, mdi; ComplexMatrix a, b; if (args(0).is_complex_type()) a = args(0).complex_matrix_value(); @@ -252,8 +252,8 @@ b = b + Complex(0.,1.)*b; } - mir.resize(a.rows(),a.cols()); - mii.resize(a.rows(),a.cols()); + mir.resize(dim_vector (a.rows(),a.cols())); + mii.resize(dim_vector (a.rows(),a.cols())); for (int j = 0; j < a.cols(); j++) for (int i = 0; i < a.rows(); i++) { mir(i,j) = (int) real(a(i,j)); @@ -266,8 +266,8 @@ } } - mdr.resize(b.rows(),b.cols()); - mdi.resize(b.rows(),b.cols()); + mdr.resize(dim_vector (b.rows(),b.cols())); + mdi.resize(dim_vector (b.rows(),b.cols())); for (int j = 0; j < b.cols(); j++) for (int i = 0; i < b.rows(); i++) { mdr(i,j) = (int) real(b(i,j)); @@ -281,12 +281,12 @@ } if ((mir.rows() == 1) && (mir.cols() == 1)) { - mir.resize(mdr.rows(),mdr.cols(),mir(0,0)); - mii.resize(mdr.rows(),mdr.cols(),mii(0,0)); + mir.resize(dim_vector (mdr.rows(),mdr.cols()), mir(0,0)); + mii.resize(dim_vector (mdr.rows(),mdr.cols()), mii(0,0)); } if ((mdr.rows() == 1) && (mdr.cols() == 1)) { - mdr.resize(mir.rows(),mir.cols(),mdr(0,0)); - mdi.resize(mir.rows(),mir.cols(),mdi(0,0)); + mdr.resize(dim_vector (mir.rows(),mir.cols()), mdr(0,0)); + mdi.resize(dim_vector (mir.rows(),mir.cols()), mdi(0,0)); } if ((mir.rows() != mdr.rows()) || (mir.cols() != mdr.cols())) { @@ -326,11 +326,11 @@ } } } else { - MArray2<int> mis, mds; + MArray<int> mis, mds; Matrix a = args(0).matrix_value(); Matrix b = args(1).matrix_value(); - mis.resize(a.rows(),a.cols()); + mis.resize(dim_vector (a.rows(),a.cols())); for (int j = 0; j < a.cols(); j++) for (int i = 0; i < a.rows(); i++) { mis(i,j) = (int)a(i,j); @@ -339,7 +339,7 @@ return retval; } } - mds.resize(b.rows(),b.cols()); + mds.resize(dim_vector (b.rows(),b.cols())); for (int j=0; j < b.cols(); j++) for (int i=0; i < b.rows(); i++) { mds(i,j) = (int)b(i,j); @@ -350,9 +350,9 @@ } if ((mis.rows() == 1) && (mis.cols() == 1)) - mis.resize(mds.rows(),mds.cols(),mis(0,0)); + mis.resize(dim_vector (mds.rows(),mds.cols()),mis(0,0)); if ((mds.rows() == 1) && (mds.cols() == 1)) - mds.resize(mis.rows(),mis.cols(),mds(0,0)); + mds.resize(dim_vector (mis.rows(),mis.cols()),mds(0,0)); if ((mis.rows() != mds.rows()) || (mis.cols() != mds.cols())) { error("fixed: dimension mismatch in args"); @@ -414,8 +414,8 @@ if (args(0).type_id () == octave_fixed::static_type_id ()) { \ FixedPoint f = ((const octave_fixed&) args(0).get_rep()) \ .fixed_value (); \ - if ((REAL_CAN_RET_CMPLX_UPPER && (f.fixedpoint() > UPPER)) || \ - (REAL_CAN_RET_CMPLX_LOWER && (f.fixedpoint() < LOWER))) \ + if ((REAL_CAN_RET_CMPLX_UPPER && (f > UPPER)) || \ + (REAL_CAN_RET_CMPLX_LOWER && (f < LOWER))) \ retval = new octave_fixed_complex \ (FUNC (FixedPointComplex(f,FixedPoint(f.getintsize(), \ f.getdecsize())))); \ @@ -425,9 +425,9 @@ octave_fixed_matrix::static_type_id ()) { \ FixedMatrix f = ((const octave_fixed_matrix&) args(0).get_rep()) \ .fixed_matrix_value (); \ - if ((REAL_CAN_RET_CMPLX_UPPER && (f.row_max().max().fixedpoint() \ + if ((REAL_CAN_RET_CMPLX_UPPER && (f.row_max().max() \ > UPPER)) || \ - (REAL_CAN_RET_CMPLX_LOWER && (f.row_min().min().fixedpoint() \ + (REAL_CAN_RET_CMPLX_LOWER && (f.row_min().min() \ < LOWER))) { \ retval = new octave_fixed_complex_matrix \ (FUNC (FixedComplexMatrix(f))); \ @@ -955,9 +955,9 @@ int n = nc + k; FixedComplexMatrix r; if (same) - r.resize(n,n,FixedPointComplex(is,ds)); + r.resize(dim_vector (n,n), FixedPointComplex(is,ds)); else - r.resize(n,n); + r.resize(dim_vector (n,n)); for (int i = 0; i < nc; i++) r (i+roff, i+coff) = m (0, i); retval = new octave_fixed_complex_matrix (r); @@ -965,9 +965,9 @@ int n = nr + k; FixedComplexMatrix r; if (same) - r.resize(n,n,FixedPointComplex(is,ds)); + r.resize(dim_vector (n,n), FixedPointComplex(is,ds)); else - r.resize(n,n); + r.resize(dim_vector (n,n)); for (int i = 0; i < nr; i++) r (i+roff, i+coff) = m (i, 0); retval = new octave_fixed_complex_matrix (r); @@ -1024,7 +1024,7 @@ int n = nc + k; FixedMatrix r; if (same) - r.resize(n,n,FixedPoint(is,ds)); + r.resize(n,n, FixedPoint(is,ds)); else r.resize(n,n); for (int i = 0; i < nc; i++)