Mercurial > octave

comparison liboctave/LSODE-opts.in @ 11574:a83bad07f7e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
11573:6f8ffe2c6f76 11574:a83bad07f7e3
28 28
29 END_DOC_ITEM 29 END_DOC_ITEM
30 TYPE = "Array<double>" 30 TYPE = "Array<double>"
31 SET_ARG_TYPE = "const $TYPE&" 31 SET_ARG_TYPE = "const $TYPE&"
32 INIT_BODY 32 INIT_BODY
33 $OPTVAR.resize (1, 1); 33 $OPTVAR.resize (dim_vector (1, 1));
34 $OPTVAR(0) = ::sqrt (DBL_EPSILON); 34 $OPTVAR(0) = ::sqrt (DBL_EPSILON);
35 END_INIT_BODY 35 END_INIT_BODY
36 SET_CODE 36 SET_CODE
37 void set_$OPT (double val) 37 void set_$OPT (double val)
38 { 38 {
39 $OPTVAR.resize (1, 1); 39 $OPTVAR.resize (dim_vector (1, 1));
40 $OPTVAR(0) = (val > 0.0) ? val : ::sqrt (DBL_EPSILON); 40 $OPTVAR(0) = (val > 0.0) ? val : ::sqrt (DBL_EPSILON);
41 reset = true; 41 reset = true;
42 } 42 }
43 43
44 void set_$OPT (const $TYPE& val) 44 void set_$OPT (const $TYPE& val)