Mercurial > octave

diff libinterp/corefcn/debug.cc @ 25402:ef2b9d4abf4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate some global variables from tree_evaluator * debug.cc (F__db_next_breakpoint_quiet__): Define with DEFMETHOD. * octave-cmd.cc (octave_cmd_debug::execute): Call F__db_next_breakpoint_quiet__ as an interpreter method. * pt-eval.h, pt-eval.cc (tree_evaluator::m_current_frame, tree_evaluator::m_debug_mode, tree_evaluator::m_quiet_breakpoint_flag): New data members to replace static data members. (tree_evaluator::current_frame, tree_evaluator::debug_mode, tree_evaluator::quiet_breakpoint_flag): New functions. Adapat usage.
author John W. Eaton <jwe@octave.org>
date Tue, 22 May 2018 11:39:44 -0400
parents bc5f225bc578
children d6050ba12c0c
line wrap: on
line diff
--- a/libinterp/corefcn/debug.cc	Tue May 22 00:53:15 2018 -0400
+++ b/libinterp/corefcn/debug.cc	Tue May 22 11:39:44 2018 -0400
@@ -1202,8 +1202,8 @@
   return ovl (Vdebugging);
 }
 
-DEFUN (__db_next_breakpoint_quiet__, args, ,
-       doc: /* -*- texinfo -*-
+DEFMETHOD (__db_next_breakpoint_quiet__, interp, args, ,
+           doc: /* -*- texinfo -*-
 @deftypefn  {} {} __db_next_breakpoint_quiet__ ()
 @deftypefnx {} {} __db_next_breakpoint_quiet__ (@var{flag})
 Disable line info printing at the next breakpoint.
@@ -1221,7 +1221,9 @@
   if (nargin == 1)
     state = args(0).bool_value ();
 
-  octave::tree_evaluator::quiet_breakpoint_flag = state;
+  octave::tree_evaluator& tw = interp.get_evaluator ();
+
+  tw.quiet_breakpoint_flag (state);
 
   return ovl ();
 }