Mercurial > hg > octave-nkf

diff src/ov-usr-fcn.cc @ 7736:a059b5679fbb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implement dbstack
author John W. Eaton <jwe@octave.org>
date Fri, 25 Apr 2008 15:11:03 -0400
parents 2d2a969c731c
children 40c428ea3408
line wrap: on
line diff
--- a/src/ov-usr-fcn.cc
+++ b/src/ov-usr-fcn.cc
@@ -74,7 +74,10 @@
     t_parsed (static_cast<time_t> (0)),
     t_checked (static_cast<time_t> (0)),
     call_depth (0)
-{ }
+{
+  if (cmd_list)
+    cmd_list->mark_as_script_body ();
+}
 
 octave_user_script::octave_user_script (const std::string& fnm,
 					const std::string& nm,
@@ -204,7 +207,10 @@
     nested_function (false), inline_function (false),
     class_constructor (false), class_method (false), xdispatch_class (),
     args_passed (), num_args_passed (0), local_scope (sid)
-{ }
+{
+  if (cmd_list)
+    cmd_list->mark_as_function_body ();
+}
 
 octave_user_function::~octave_user_function (void)
 {