Mercurial > hg > octave-lyh
diff liboctave/DASSL-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/DASSL-opts.in +++ b/liboctave/DASSL-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; }