Mercurial > octave-nkf

diff src/ov-fcn-handle.cc @ 9509:c5330ef7aecd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix handles to private functions, simplify out-of-date checks in symtab
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 10 Aug 2009 10:08:10 +0200
parents 2ebd0717c12d
children a9b37bae1802
line wrap: on
line diff
--- a/src/ov-fcn-handle.cc	Fri Aug 07 08:46:51 2009 +0200
+++ b/src/ov-fcn-handle.cc	Mon Aug 10 10:08:10 2009 +0200
@@ -123,7 +123,7 @@
   octave_value_list retval;
 
   if (fcn.is_defined ())
-    out_of_date_check (fcn);
+    out_of_date_check (fcn, std::string (), false);
 
   if (disp.get () && ! args.empty ())
     {
@@ -142,7 +142,7 @@
               str_ov_map::iterator pos = disp->find (sdt);
               if (pos != disp->end ())
                 {
-                  out_of_date_check (pos->second, sdt);
+                  out_of_date_check (pos->second, sdt, false);
                   ovfcn = pos->second;
                 }
             }
@@ -152,7 +152,7 @@
           str_ov_map::iterator pos = disp->find (ddt);
           if (pos != disp->end ())
             {
-              out_of_date_check (pos->second, ddt);
+              out_of_date_check (pos->second, ddt, false);
               ovfcn = pos->second;
             }
           else
@@ -1573,6 +1573,8 @@
 		      parentage.elem(1) = fcn->parent_fcn_name ();
 		      m.assign ("parentage", octave_value (parentage)); 
 		    }
+                  else if (fcn->is_private_function ())
+		    m.assign ("type", "private");
                   else if (fh->is_overloaded ())
 		    m.assign ("type", "overloaded");
 		  else