X-Git-Url: http://git.efficios.com/?a=blobdiff_plain;f=gdb%2Fada-lex.l;h=6aa3b7d5bff5fff3062c6d8d8a79422f1f30b2a8;hb=c24162389c22a438dc7561eb6d69061b5330059d;hp=6ecd849cdbc593bc8e06bc22b3e23d1e311ac286;hpb=72d5681a84985b3eef4cb6bf613026c151f4a5b4;p=deliverable%2Fbinutils-gdb.git

diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index 6ecd849cdb..6aa3b7d5bf 100644
--- 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
+};