Mercurial > hg > octave-lyh

diff src/parse.y @ 908:efb4cbdaac26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-09 23:03:37 by jwe]
author jwe
date Wed, 09 Nov 1994 23:04:29 +0000
parents 0f3237aa35b7
children 2f35156aa18b
line wrap: on
line diff
--- a/src/parse.y
+++ b/src/parse.y
@@ -953,6 +953,8 @@
 // file does not match the name of the function stated in the file.
 // Matlab doesn't provide a diagnostic (it ignores the stated name).
 
+		    $4->stash_function_name (id_name);
+
 		    if (reading_fcn_file)
 		      {
 			if (strcmp (curr_fcn_file_name, id_name) != 0)
@@ -969,6 +971,7 @@
 			    id_name = $1->name ();
 			  }
 
+			$4->stash_function_name (id_name);
 			$4->stash_fcn_file_name ();
 			$4->stash_fcn_file_time (time (0));
 			$4->mark_as_system_fcn_file ();
@@ -984,8 +987,6 @@
 
 		    top_level_sym_tab->clear (id_name);
 
-		    $4->stash_function_name (id_name);
-
 		    $1->define ($4);
 		    $1->document (help_buf);