Mercurial > hg > octave-lyh
diff liboctave/DASPK-opts.in @ 11574:a83bad07f7e3
attempt better backward compatibility for Array resize functions
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 20 Jan 2011 00:12:05 -0500 |
| parents | fd0a3ac60b0e |
| children | e81ddf9cacd5 |
line wrap: on
line diff
--- a/liboctave/DASPK-opts.in +++ b/liboctave/DASPK-opts.in @@ -31,13 +31,13 @@ TYPE = "Array<double>" SET_ARG_TYPE = "const $TYPE&" INIT_BODY - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = ::sqrt (DBL_EPSILON); END_INIT_BODY SET_CODE void set_$OPT (double val) { - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); reset = true; } @@ -67,13 +67,13 @@ TYPE = "Array<double>" SET_ARG_TYPE = "const $TYPE&" INIT_BODY - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = ::sqrt (DBL_EPSILON); END_INIT_BODY SET_CODE void set_$OPT (double val) { - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); reset = true; } @@ -167,7 +167,7 @@ TYPE = "Array<double>" SET_ARG_TYPE = "const $TYPE&" INIT_BODY - $OPTVAR.resize (6, 1); + $OPTVAR.resize (dim_vector (6, 1)); $OPTVAR(0) = 5.0; $OPTVAR(1) = 6.0; $OPTVAR(2) = 5.0; @@ -219,13 +219,13 @@ TYPE = "Array<octave_idx_type>" SET_ARG_TYPE = const $TYPE& INIT_BODY - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = 0; END_INIT_BODY SET_CODE void set_$OPT (int val) { - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = val; reset = true; } @@ -288,13 +288,13 @@ TYPE = "Array<octave_idx_type>" SET_ARG_TYPE = const $TYPE& INIT_BODY - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = 0; END_INIT_BODY SET_CODE void set_$OPT (octave_idx_type val) { - $OPTVAR.resize (1, 1); + $OPTVAR.resize (dim_vector (1, 1)); $OPTVAR(0) = val; reset = true; }