Mercurial > forge
changeset 9127:35d3e4d190ac octave-forge
sparsersb: compile fixes for the no-complex-librsb case.
| author | michelemartone |
|---|---|
| date | Thu, 08 Dec 2011 22:30:43 +0000 |
| parents | 7069b5759138 |
| children | cd0ae5eebc67 |
| files | main/sparsersb/src/sparsersb.cc |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/main/sparsersb/src/sparsersb.cc Thu Dec 08 21:34:05 2011 +0000 +++ b/main/sparsersb/src/sparsersb.cc Thu Dec 08 22:30:43 2011 +0000 @@ -870,13 +870,18 @@ if(is_real_type()) m = new octave_sparse_rsb_matrix( rsb_clone_transformed(this->A,RSB_TRANSPOSITION_N,&alpha,RSB_NUMERICAL_TYPE_DOUBLE) ); else +#if RSBOI_WANT_DOUBLE_COMPLEX {Complex calpha;calpha+=alpha; m = new octave_sparse_rsb_matrix( rsb_clone_transformed(this->A,RSB_TRANSPOSITION_N,&calpha,RSB_NUMERICAL_TYPE_DOUBLE_COMPLEX) ); } +#else + {RSBOI_0_ERROR(RSBOI_0_NOCOERRMSG);} +#endif #endif return m; } +#if RSBOI_WANT_DOUBLE_COMPLEX octave_value rsboi_get_scaled_copy(const Complex alpha)const { rsb_err_t errval=RSB_ERR_NO_ERROR; @@ -892,6 +897,7 @@ #endif return m; } +#endif private: