* config/djgpp/fnchange.lst: Add mappings for linux-ppc-low.c and

[deliverable/binutils-gdb.git] / gdb / ada-lex.l

diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index 6ecd849cdbc593bc8e06bc22b3e23d1e311ac286..6aa3b7d5bff5fff3062c6d8d8a79422f1f30b2a8 100644 (file)
--- a/gdb/ada-lex.l
+++ b/gdb/ada-lex.l
@@ -26,9 +26,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 /* each successive token and places a semantic value into yylval */
 /* (ada-lval), defined by the parser.   */
 
-/* Run flex with (at least) the -i option (case-insensitive), and the -I */
-/* option (interactive---no unnecessary lookahead).  */
-
 DIG    [0-9]
 NUM10  ({DIG}({DIG}|_)*)
 HEXDIG [0-9a-f]
@@ -45,8 +42,6 @@ EXP   (e[+-]{NUM10})
 POSEXP  (e"+"?{NUM10})
 
 %{
-#define malloc xmalloc
-#define free xfree
 
 #define NUMERAL_WIDTH 256
 #define LONGEST_SIGN ((ULONGEST) 1 << (sizeof(LONGEST) * HOST_CHAR_BIT - 1))
@@ -89,6 +84,8 @@ static int find_dot_all (const char *);
 
 %}
 
+%option case-insensitive interactive nodefault
+
 %s IN_STRING BEFORE_QUAL_QUOTE
 
 %%
@@ -157,8 +154,6 @@ static int find_dot_all (const char *);
                   return CHARLIT;
                }
 
-\"{OPER}\"/{WHITE}*"(" { return processId (yytext, yyleng); }
-
 <INITIAL>\"    {
                   tempbuf_len = 0;
                   BEGIN IN_STRING;
@@ -350,7 +345,7 @@ resize_tempbuf (unsigned int n)
   if (tempbufsize < n)
     {
       tempbufsize = (n+63) & ~63;
-      tempbuf = (char *) xrealloc (tempbuf, tempbufsize);
+      tempbuf = xrealloc (tempbuf, tempbufsize);
     }
 }
 
@@ -924,3 +919,10 @@ yywrap(void)
 {
   return 1;
 }
+
+/* Dummy definition to suppress warnings about unused static definitions. */
+typedef void (*dummy_function) ();
+dummy_function ada_flex_use[] = 
+{ 
+  (dummy_function) yyunput
+};