* elf-m10200.c (mn10200_elf_relax_section): Cast assignment to

[deliverable/binutils-gdb.git] / binutils / arlex.l

diff --git a/binutils/arlex.l b/binutils/arlex.l
index 47f8361bce1915bb6a02e6e8ff8acdcf698e987c..71ef56ee6f9be1262aaa4552f90ed3de0e5eb1a6 100644 (file)
--- a/binutils/arlex.l
+++ b/binutils/arlex.l
@@ -1,7 +1,7 @@
 %{
 /* arlex.l - Strange script language lexer */
 
-/*   Copyright (C) 1992 Free Software Foundation, Inc.
+/*   Copyright 1992, 1997, 2000 Free Software Foundation, Inc.
 
 This file is part of GNU Binutils.
 
@@ -17,7 +17,7 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 
 /* Contributed by Steve Chamberlain
@@ -26,10 +26,15 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 */
 #define DONTDECLARE_MALLOC
 #include <ansidecl.h>
-#include <sysdep.h>
+#include "libiberty.h"
 #include "arparse.h"
+
 int linenumber;
 %}
+
+%a 10000
+%o 25000
+
 %%
 
 "ADDLIB"       { return ADDLIB; }
@@ -66,8 +71,8 @@ int linenumber;
 "("             { return '('; }
 ")"             { return ')'; }
 ","             { return ','; }
-[A-Za-z0-9/$:.\-]+  {  
-               yylval.name =  strdup(yytext);
+[A-Za-z0-9/$:.\-\_]+  {        
+               yylval.name =  xstrdup (yytext);
                return FILENAME;
                }
 "*".*          { }
@@ -75,3 +80,8 @@ int linenumber;
 " "            { }
 "\n"            { linenumber ++; return NEWLINE; }     
 
+%%
+#ifndef yywrap
+/* Needed for lex, though not flex. */
+int yywrap() { return 1; }
+#endif