Mercurial > hg > octave-lojdl
changeset 7912:75df1f0b4c9d
toplev.h (octave_call_stack::instance_ok): push top scope when creating instance
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 09 Jul 2008 16:16:19 -0400 |
parents | 3b46230f7a4d |
children | f46e73bcb85b |
files | src/ChangeLog src/toplev.h |
diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2008-07-09 John W. Eaton <jwe@octave.org> + * toplev.h (octave_call_stack::instance_ok): Push top scope when + creating instance. + * DLD-FUNCTIONS/inv.cc (Finv): Avoid GCC warning. * DLD-FUNCTIONS/expm.cc (Fexpm): Avoid GCC warning.
--- a/src/toplev.h +++ b/src/toplev.h @@ -110,13 +110,17 @@ bool retval = true; if (! instance) - instance = new octave_call_stack (); + { + instance = new octave_call_stack (); - if (! instance) - { - ::error ("unable to create call stack object!"); + if (instance) + instance->do_push (0, symbol_table::top_scope (), 0); + else + { + ::error ("unable to create call stack object!"); - retval = false; + retval = false; + } } return retval;