* alpha-tdep.c (alpha_register_virtual_type): Use alpha-specific

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

diff --git a/binutils/arlex.l b/binutils/arlex.l
index 47f8361bce1915bb6a02e6e8ff8acdcf698e987c..c1771a55840b122cb2b5d9de2eddb2219a7dc2e8 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, 2002 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
@@ -25,11 +25,20 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 */
 #define DONTDECLARE_MALLOC
-#include <ansidecl.h>
-#include <sysdep.h>
+#include "ansidecl.h"
+#include "libiberty.h"
 #include "arparse.h"
+
+#define YY_NO_UNPUT
+
+extern int yylex PARAMS ((void));
+
 int linenumber;
 %}
+
+%a 10000
+%o 25000
+
 %%
 
 "ADDLIB"       { return ADDLIB; }
@@ -66,8 +75,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 +84,8 @@ int linenumber;
 " "            { }
 "\n"            { linenumber ++; return NEWLINE; }     
 
+%%
+#ifndef yywrap
+/* Needed for lex, though not flex. */
+int yywrap() { return 1; }
+#endif