Mercurial > octave
comparison libinterp/corefcn/octave-link.cc @ 27209:ac92aa74fa1a
eliminate some direct access to call stack in gui and octave_base_value
* file-editor-tab.cc (file_editor_tab::exit_debug_and_clear):
Eliminate direct access to call stack.
* main-window.cc (main_window::rename_variable_callback,
main_window::open_any_callback, main_window::force_refresh_workspace):
Likewise.
* octave-cmd.cc (octave_cmd_builtin::execute): Likewise.
* octave-link.cc (octave_link::set_workspace): Likewise.
* ov-base.cc (called_from_builtin): Likewise.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Mon, 01 Apr 2019 20:53:00 +0000 |
| parents | 775643b5eae4 |
| children | a42821748671 |
comparison
equal
deleted
inserted
replaced
| 27208:5b40cf4896f0 | 27209:ac92aa74fa1a |
|---|---|
| 66 void | 66 void |
| 67 octave_link::set_workspace (void) | 67 octave_link::set_workspace (void) |
| 68 { | 68 { |
| 69 if (enabled ()) | 69 if (enabled ()) |
| 70 { | 70 { |
| 71 octave::call_stack& cs | 71 octave::tree_evaluator& tw |
| 72 = octave::__get_call_stack__ ("octave_link::set_workspace"); | 72 = octave::__get_evaluator__ ("octave_link::set_workspace"); |
| 73 | 73 |
| 74 instance->do_set_workspace (cs.at_top_level (), | 74 instance->do_set_workspace (tw.at_top_level (), |
| 75 instance->debugging, | 75 instance->debugging, |
| 76 cs.get_symbol_info (), true); | 76 tw.get_symbol_info (), true); |
| 77 } | 77 } |
| 78 } | 78 } |
| 79 | 79 |
| 80 // OBJ should be an object of a class that is derived from the base | 80 // OBJ should be an object of a class that is derived from the base |
| 81 // class octave_link, or 0 to disconnect the link. It is the | 81 // class octave_link, or 0 to disconnect the link. It is the |