* ldlex.l: now parses comment correctly, added ~ to acceptable

	chars in filenames

	* ldexp.c (exp_unop): pass down abs_output_section - now can have
	unary -ve constants.

	* ldlang.c (lang_finish): warn when an entry symbol supplied on
	the command line can't be found.

3 files changed, 189 insertions, 149 deletions

diff --git a/ld/ChangeLog b/ld/ChangeLog
index e65f345..3774505 100644
--- a/ld/ChangeLog
+++ b/ld/ChangeLog
@@ -1,3 +1,14 @@
+Thu Aug 13 11:49:34 1992  Steve Chamberlain  (sac@thepub.cygnus.com)
+
+	* ldlex.l: now parses comment correctly, added ~ to acceptable
+	chars in filenames
+	
+	* ldexp.c (exp_unop): pass down abs_output_section - now can have
+	unary -ve constants.
+
+	* ldlang.c (lang_finish): warn when an entry symbol supplied on
+	the command line can't be found.
+
 Fri Aug  7 12:31:10 1992  Steve Chamberlain  (sac@thepub.cygnus.com)
 
 	* ldlang.h: add new field "loadable" to output_section_statement.
diff --git a/ld/ldlex.l b/ld/ldlex.l
index 2c21a58..f98e8fd 100644
--- a/ld/ldlex.l
+++ b/ld/ldlex.l
@@ -43,6 +43,37 @@ char *buystring();
 unsigned int lineno = 1;
 int old;
 
+comment()
+{
+  int c;
+  while (1)
+  {
+    c = input();
+    while (c !='*' && c != EOF) 
+    {
+      if (c == '\n') lineno++;
+      c = input();
+    }
+
+
+    if (c == '*')
+    {
+      c = input();
+      while ( c == '*')
+       c = input();
+      if ( c == '/' )
+       break;			/* found the end */
+    }
+
+    if ( c == EOF )
+    {
+      einfo( "%F%P :EOF in comment");
+      break;
+    }
+  }
+}
+
+
 #undef YY_INPUT
 #define YY_INPUT(buf,result,max_size) yy_input(buf, &result, max_size)
 #undef YY_FATAL_ERROR
@@ -66,11 +97,11 @@ unsigned int include_stack_ptr = 0;
 %a 4000
 %o 5000
 
-CMDFILENAMECHAR   [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\-]
-CMDFILENAMECHAR1  [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>]
-FILENAMECHAR1	[_a-zA-Z\/\.\\]
+CMDFILENAMECHAR   [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\-\~]
+CMDFILENAMECHAR1  [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\~]
+FILENAMECHAR1	[_a-zA-Z\/\.\\\$\_\~]
 SYMBOLCHARN     [_a-zA-Z\/\.\\0-9]
-FILENAMECHAR	[_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\]
+FILENAMECHAR	[_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\\,\~]
 FILENAME	{FILENAMECHAR}+
 WHITE		[ \t\n]+ 
 
@@ -83,6 +114,10 @@ WHITE		[ \t\n]+
 %s MRI
 %%
 
+
+<BOTH,SCRIPT,EXPRESSION,COMMAND>"/*"	{ comment(); }
+
+
 <DEFSYMEXP>"-"                  { RTOKEN('-');}
 <DEFSYMEXP>"+"                  { RTOKEN('+');}
 <DEFSYMEXP>{FILENAMECHAR1}{SYMBOLCHARN}*   { yylval.name = buystring(yytext); return NAME; }
@@ -300,7 +335,7 @@ WHITE		[ \t\n]+
 <MRI>"FORMAT"                   { RTOKEN(FORMAT); }
 <MRI>"LIST".*                   { RTOKEN(LIST); /* LIST and ignore to end of line */ }
 <MRI>"SECT"			{ RTOKEN(SECT); }
-<MRI>"ABSOLUTE"			{ RTOKEN(ABSOLUTE); }
+<EXPRESSION,BOTH,SCRIPT,MRI>"ABSOLUTE"			{ RTOKEN(ABSOLUTE); }
 <MRI>"end"                      { RTOKEN(ENDWORD); }
 <MRI>"chip"                     { RTOKEN(CHIP); }
 <MRI>"load"                     { RTOKEN(LOAD); }
@@ -309,7 +344,7 @@ WHITE		[ \t\n]+
 <MRI>"format"                   { RTOKEN(FORMAT); }
 <MRI>"list".*                   { RTOKEN(LIST); /* LIST and ignore to end of line */ }
 <MRI>"sect"			{ RTOKEN(SECT); }
-<MRI>"absolute"			{ RTOKEN(ABSOLUTE); }
+<EXPRESSION,BOTH,SCRIPT,MRI>"absolute"			{ RTOKEN(ABSOLUTE); }
 
 <COMMAND>{CMDFILENAMECHAR1}{CMDFILENAMECHAR}*	{
 				 yylval.name = buystring(yytext); 
@@ -335,16 +370,6 @@ WHITE		[ \t\n]+
 <BOTH,SCRIPT,EXPRESSION>"\n"		{ lineno++;}
 <MRI,COMMAND,BOTH,SCRIPT,EXPRESSION>[ \t]
 
-"/*"				{ old = INITIAL; BEGIN(COMMENT); }
-<COMMAND>"/*"			{ old = COMMAND; BEGIN(COMMENT); }
-<BOTH>"/*"			{ old =BOTH; BEGIN(COMMENT); }
-<SCRIPT>"/*"			{ old = EXPRESSION; BEGIN(COMMENT); }
-<EXPRESSION>"/*"		{ old = SCRIPT; BEGIN(COMMENT); }
-"/*"				{ old = INITIAL; BEGIN(COMMENT); }
-<COMMENT>[^*\\n]*
-<COMMENT>"*"+[^*/\\n]*
-<COMMENT>\\n             	{ ++lineno;}
-<COMMENT>"*"+"/" 		{ BEGIN(old); }
 <<EOF>> {
     include_stack_ptr--;
     
@@ -501,3 +526,4 @@ int max_size;
       YY_FATAL_ERROR( "read() in flex scanner failed" );
   }
 }
+
diff --git a/ld/ldmisc.c b/ld/ldmisc.c
index 87a91c9..9a70af9 100644
--- a/ld/ldmisc.c
+++ b/ld/ldmisc.c
@@ -19,12 +19,6 @@ You should have received a copy of the GNU General Public License
 along with GLD; see the file COPYING.  If not, write to
 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-/*
-$Id$ 
-
-
- */
-
 #include "bfd.h"
 #include "sysdep.h"
 #include <varargs.h>
@@ -41,12 +35,6 @@ extern FILE *ldlex_input_stack;
 extern char *ldfile_input_filename;
 extern ld_config_type config;
 
-void
-yyerror(arg) 
-char *arg;
-{ 
-  einfo("%P%F: %S %s\n",arg);
-}
 
 extern int errno;
 extern   int  sys_nerr;
@@ -86,67 +74,67 @@ vfinfo(fp, fmt, arg)
       fmt ++;
       switch (*fmt++) 
       {
-      case 'X':
+       case 'X':
 	config.make_executable = false;
 	break;
-      case 'V':
-      {
-	bfd_vma value = va_arg(arg, bfd_vma);
-	fprintf_vma(fp, value);
-      }
+       case 'V':
+       {
+	 bfd_vma value = va_arg(arg, bfd_vma);
+	 fprintf_vma(fp, value);
+       }
 	break;
-      case 'T':
-      {
-	asymbol *symbol = va_arg(arg, asymbol *);
-	if (symbol) 
-	{
+       case 'T':
+       {
+	 asymbol *symbol = va_arg(arg, asymbol *);
+	 if (symbol) 
+	 {
 
 	    
-	  asection *section = symbol->section;
-	  char *cplusname = cplus_demangle(symbol->name, 1);
-	  CONST char *section_name =  section->name;
-	  if (section != &bfd_und_section) 
-	  {
-	    fprintf(fp,"%s (%s)", cplusname ? cplusname :
-		    symbol->name, section_name);
-	  }
-	  else 
-	  {
-	    fprintf(fp,"%s", cplusname ? cplusname : symbol->name);
-	  }
+	   asection *section = symbol->section;
+	   char *cplusname = cplus_demangle(symbol->name, 1);
+	   CONST char *section_name =  section->name;
+	   if (section != &bfd_und_section) 
+	   {
+	     fprintf(fp,"%s (%s)", cplusname ? cplusname :
+		     symbol->name, section_name);
+	   }
+	   else 
+	   {
+	     fprintf(fp,"%s", cplusname ? cplusname : symbol->name);
+	   }
 	    
-	  if (cplusname) 
-	  {
-	    free(cplusname);
-	  }
+	   if (cplusname) 
+	   {
+	     free(cplusname);
+	   }
 	    
-	}
-	else 
-	{
-	  fprintf(fp,"no symbol");
-	}
-      }
+	 }
+	 else 
+	 {
+	   fprintf(fp,"no symbol");
+	 }
+       }
 	break;
-      case 'B':
-      { 
-	bfd *abfd = va_arg(arg, bfd *);
-	if (abfd->my_archive) {
-	    fprintf(fp,"%s(%s)", abfd->my_archive->filename,
-		    abfd->filename);
-	  }
-	else {
-	    fprintf(fp,"%s", abfd->filename);
-
-	  }
-      }
+       case 'B':
+       { 
+	 bfd *abfd = va_arg(arg, bfd *);
+	 if (abfd->my_archive) {
+	   fprintf(fp,"%s(%s)", abfd->my_archive->filename,
+		   abfd->filename);
+	 }
+	 else {
+	   fprintf(fp,"%s", abfd->filename);
+
+	 }
+       }
 	break;
-      case 'F':
+       case 'F':
 	fatal = true;
 	break;
-      case 'P':
+       case 'P':
 	fprintf(fp,"%s", program_name);
 	break;
-      case 'E':
+       case 'E':
 	/* Replace with the most recent errno explanation */
 
 
@@ -154,115 +142,124 @@ vfinfo(fp, fmt, arg)
 
 
 	break;
-      case 'I':
-      {
-	lang_input_statement_type *i =
-	 va_arg(arg,lang_input_statement_type *);
+       case 'I':
+       {
+	 lang_input_statement_type *i =
+	  va_arg(arg,lang_input_statement_type *);
 	
-	fprintf(fp,"%s", i->local_sym_name);
-      }
+	 fprintf(fp,"%s", i->local_sym_name);
+       }
 	break;
-      case 'S':
+       case 'S':
 	/* Print source script file and line number */
 
-      {
+       {
 	
 	 
-	    extern unsigned int lineno;
-	    if (ldfile_input_filename == (char *)NULL) {
-		fprintf(fp,"command line");
-	      }
-	    else {
-		fprintf(fp,"%s:%u", ldfile_input_filename, lineno );
-	      }
-	  }
+	 extern unsigned int lineno;
+	 if (ldfile_input_filename == (char *)NULL) {
+	   fprintf(fp,"command line");
+	 }
+	 else {
+	   fprintf(fp,"%s:%u", ldfile_input_filename, lineno );
+	 }
+       }
 	
 	break;
 
-      case 'R':
+       case 'R':
 	/* Print all that's interesting about a relent */
-      {
-	arelent *relent = va_arg(arg, arelent *);
+       {
+	 arelent *relent = va_arg(arg, arelent *);
 	
-	fprintf(fp,"%s+0x%x (type %s)",
-		(*(relent->sym_ptr_ptr))->name,
-		relent->addend,
-		relent->howto->name);
+	 fprintf(fp,"%s+0x%x (type %s)",
+		 (*(relent->sym_ptr_ptr))->name,
+		 relent->addend,
+		 relent->howto->name);
 	
 
-      }
+       }
 	break;
 	
 
 
 	
-      case 'C':
-      {
-	CONST char *filename;
-	CONST char *functionname;
-	char *cplus_name;
+       case 'C':
+       {
+	 CONST char *filename;
+	 CONST char *functionname;
+	 char *cplus_name;
 	 
-	unsigned int linenumber;
-	bfd *abfd = va_arg(arg, bfd *);
-	asection *section = va_arg(arg, asection *);
-	asymbol **symbols = va_arg(arg, asymbol **);
-	bfd_vma offset = va_arg(arg, bfd_vma);
+	 unsigned int linenumber;
+	 bfd *abfd = va_arg(arg, bfd *);
+	 asection *section = va_arg(arg, asection *);
+	 asymbol **symbols = va_arg(arg, asymbol **);
+	 bfd_vma offset = va_arg(arg, bfd_vma);
 	 
-	if (bfd_find_nearest_line(abfd,
-				  section,
-				  symbols,
-				  offset,
-				  &filename,
-				  &functionname,
-				  &linenumber))
-	{
-	  if (filename == (char *)NULL) 	
-	   filename = abfd->filename;
-	  if (functionname != (char *)NULL) 
-	  {
-	    cplus_name = cplus_demangle(functionname, 1);
-	    fprintf(fp,"%s:%u: (%s)", filename, linenumber,
-		    cplus_name? cplus_name: functionname);
-	    if (cplus_name) 
-	     free(cplus_name);
+	 if (bfd_find_nearest_line(abfd,
+				   section,
+				   symbols,
+				   offset,
+				   &filename,
+				   &functionname,
+				   &linenumber))
+	 {
+	   if (filename == (char *)NULL) 	
+	    filename = abfd->filename;
+	   if (functionname != (char *)NULL) 
+	   {
+	     cplus_name = cplus_demangle(functionname, 1);
+	     fprintf(fp,"%s:%u: (%s)", filename, linenumber,
+		     cplus_name? cplus_name: functionname);
+	     if (cplus_name) 
+	      free(cplus_name);
 		  
 
-	  }
+	   }
 		
-	  else if (linenumber != 0) 
-	   fprintf(fp,"%s:%u", filename, linenumber);
-	  else
-	   fprintf(fp,"%s(%s+%0x)", filename,
-		   section->name,
-		   offset);
-
-	}
-	else {
-	    fprintf(fp,"%s(%s+%0x)", abfd->filename,
+	   else if (linenumber != 0) 
+	    fprintf(fp,"%s:%u", filename, linenumber);
+	   else
+	    fprintf(fp,"%s(%s+%0x)", filename,
 		    section->name,
 		    offset);
-	  }
-      }
+
+	 }
+	 else {
+	   fprintf(fp,"%s(%s+%0x)", abfd->filename,
+		   section->name,
+		   offset);
+	 }
+       }
 	break;
 		
-      case 's':
+       case 's':
 	fprintf(fp,"%s", va_arg(arg, char *));
 	break;
-      case 'd':
+       case 'd':
 	fprintf(fp,"%d", va_arg(arg, int));
 	break;
-      default:
+       default:
 	fprintf(fp,"%s", va_arg(arg, char *));
 	break;
       }
     }
   }
-  if (fatal == true) {
-      extern char *output_filename;
-      if (output_filename)
-       unlink(output_filename);
-      exit(1);
+  if (fatal == true) 
+  {
+    extern char *output_filename;
+    if (output_filename) 
+    {
+      char *new = malloc(strlen(output_filename)+2);
+      extern bfd *output_bfd;
+      
+      strcpy(new, output_filename);
+      if (output_bfd && output_bfd->iostream)
+       fclose((FILE *)(output_bfd->iostream));
+      unlink(new);
     }
+    exit(1);
+  }
 }
 
 /* Format info message and print on stdout. */
@@ -325,7 +322,6 @@ DEFUN(concat, (s1, s2, s3),
 }
 
 
-
 PTR
 DEFUN(ldmalloc, (size),
 bfd_size_type size)
@@ -338,6 +334,13 @@ bfd_size_type size)
   return result;
 } 
 
+PTR
+DEFUN(xmalloc,(size),
+int size)
+{
+return ldmalloc(size);
+}
+
 
 PTR
 DEFUN(ldrealloc, (ptr, size),