# HG changeset patch
# User jwe
# Date 812726291 0
# Node ID d361954e95ae3316c23725fc3de33811e7b74a05
# Parent  9e861d5519bde9bfe55073fbd977b975a9be62bb
[project @ 1995-10-03 13:18:11 by jwe]

diff --git a/src/parse.y b/src/parse.y
--- a/src/parse.y
+++ b/src/parse.y
@@ -332,15 +332,9 @@
 		| comma_semi
 		  { $$ = 0; }
 		| simple_list1
-		  {
-		    maybe_warn_missing_semi ($1);
-		    $$ = $1;
-		  }
+		  { $$ = $1; }
 		| simple_list1 comma_semi
-		  {
-		    maybe_warn_missing_semi ($1);
-		    $$ = $1;
-		  }
+		  { $$ = $1; }
 		| simple_list1 semi_comma
 		  {
 		    tree_statement *tmp = $1->rear ();
@@ -419,8 +413,8 @@
 		  }
 		| list1 comma_nl_sep statement
 		  {
+		    maybe_warn_missing_semi ($1);
 		    $1->append ($3);
-		    maybe_warn_missing_semi ($1);
 		    $$ = $1;
 		  }
 		| list1 semi_sep statement
@@ -1695,8 +1689,15 @@
     {
       tree_statement *tmp = t->rear();
       if (tmp->is_expression ())
+	{
+	  char *fname = input_from_command_line_file
+	    ? curr_fcn_file_name : fcn_file_in_path (curr_fcn_file_name);
 
-	warning ("missing semicolon near line %d, column %d in file `%s.m'",
-		 tmp->line (), tmp->column (), curr_fcn_file_name);
+	  warning ("missing semicolon near line %d, column %d in file `%s'",
+		   tmp->line (), tmp->column (), fname);
+
+	  if (fname != curr_fcn_file_name)
+	    delete [] fname;
+	}
     }
 }