Mercurial > octave-nkf
changeset 7733:bb614b3883a9
octave_call_stack::unwind_pop_script: delete unused function
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 24 Apr 2008 16:18:44 -0400 |
| parents | bc5c6999c600 |
| children | 2dee19385d32 |
| files | src/ChangeLog src/toplev.cc src/toplev.h |
| diffstat | 3 files changed, 3 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Thu Apr 24 15:42:57 2008 -0400 +++ b/src/ChangeLog Thu Apr 24 16:18:44 2008 -0400 @@ -1,5 +1,8 @@ 2008-04-24 John W. Eaton <jwe@octave.org> + * toplev.h, toplev.cc (octave_call_stack::unwind_pop_script): + Delete unused function. + * ov-usr-fcn.cc: Move constructor definitions here, from ov-usr-fcn.h. * ov-usr-fcn.h (octave_user_script::octave_user_script): Also Initialize t_parsed and t_checked.
--- a/src/toplev.cc Thu Apr 24 15:42:57 2008 -0400 +++ b/src/toplev.cc Thu Apr 24 16:18:44 2008 -0400 @@ -153,15 +153,6 @@ } void -octave_call_stack::unwind_pop_script (void *) -{ - octave_function *f = top (); - pop (); - assert (f && f->is_user_script ()); - delete f; -} - -void recover_from_exception (void) { can_interrupt = true;
--- a/src/toplev.h Thu Apr 24 15:42:57 2008 -0400 +++ b/src/toplev.h Thu Apr 24 16:18:44 2008 -0400 @@ -148,10 +148,6 @@ // for use as an unwind_protect handler. static void unwind_pop (void *) { pop (); } - // A function for popping an octave_user_script from the top of the - // call stack that is suitable for use as an unwind_protect handler. - static void unwind_pop_script (void *); - static void clear (void) { if (instance_ok ())