Mercurial > octave

diff src/toplev.h @ 7942:db6478d9c669
out_of_date_check_internal: make it work for class methods
author: John W. Eaton <jwe@octave.org>
date: Thu, 17 Jul 2008 14:25:11 -0400
parents: c3d21b9b94b6
children: 0d607e8dbbfa
--- a/src/toplev.h	Thu Jul 17 10:56:22 2008 -0400
+++ b/src/toplev.h	Thu Jul 17 14:25:11 2008 -0400
@@ -157,7 +157,7 @@
   // Caller function, may be built-in.
   static octave_function *caller (void)
   {
-    return element (1);
+    return instance_ok () ? instance->do_caller () : 0;
   }
 
   static size_t current_frame (void)
@@ -286,6 +286,11 @@
 
   int do_caller_user_code_column (void) const;
 
+  octave_function *do_caller (void) const
+  {
+    return curr_frame > 1 ? cs[curr_frame-1].fcn : cs[0].fcn;
+  }
+
   size_t do_current_frame (void) { return curr_frame; }
 
   size_t do_size (void) { return cs.size (); }