Mercurial > octave

changeset 905:0f3237aa35b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-09 21:49:34 by jwe]
author jwe
date Wed, 09 Nov 1994 21:55:11 +0000
parents 3470f1e25a79
children 471300b4a459
files src/error.cc src/parse.y src/pt-exp-base.cc src/pt-exp-base.h
diffstat 4 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/error.cc	Wed Nov 09 21:22:15 1994 +0000
+++ b/src/error.cc	Wed Nov 09 21:55:11 1994 +0000
@@ -77,6 +77,7 @@
 {
   va_list args;
   va_start (args, fmt);
+  error_state = -1;
   verror ("usage", fmt, args);
   va_end (args);
 }
@@ -107,7 +108,7 @@
   va_list args;
   va_start (args, fmt);
 
-  int len;
+  int len = 0;
   if (fmt && *fmt && fmt[(len = strlen (fmt)) - 1] == '\n')
     {
       error_state = -2;
--- a/src/parse.y	Wed Nov 09 21:22:15 1994 +0000
+++ b/src/parse.y	Wed Nov 09 21:55:11 1994 +0000
@@ -969,7 +969,7 @@
 			    id_name = $1->name ();
 			  }
 
-			$4->stash_fcn_file_name (curr_fcn_file_name);
+			$4->stash_fcn_file_name ();
 			$4->stash_fcn_file_time (time (0));
 			$4->mark_as_system_fcn_file ();
 		      }
--- a/src/pt-exp-base.cc	Wed Nov 09 21:22:15 1994 +0000
+++ b/src/pt-exp-base.cc	Wed Nov 09 21:55:11 1994 +0000
@@ -2529,10 +2529,10 @@
 }
 
 void
-tree_function::stash_fcn_file_name (char *s)
+tree_function::stash_fcn_file_name (void)
 {
   delete [] file_name;
-  file_name = strsave (s);
+  file_name = fcn_name ? fcn_fie_in_path (fcn_name) : 0
 }
 
 void
--- a/src/pt-exp-base.h	Wed Nov 09 21:22:15 1994 +0000
+++ b/src/pt-exp-base.h	Wed Nov 09 21:55:11 1994 +0000
@@ -839,7 +839,7 @@
   tree_function *define_param_list (tree_parameter_list *t);
   tree_function *define_ret_list (tree_parameter_list *t);
 
-  void stash_fcn_file_name (char * s);
+  void stash_fcn_file_name (void);
 
   void stash_fcn_file_time (time_t t)
     { t_parsed = t; }