diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index c3f2df805b..67d66515ac 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-19  Joel Brobecker  <brobecker@adacore.com>
+
+	"delete" ada-lex.c:input function, not used.
+	* ada-lex.l: #define YY_NO_INPUT.
+
 2010-01-19  Joel Brobecker  <brobecker@adacore.com>
 
 	Delete free_named_symtabs and associated cleanup.
diff --git a/gdb/ada-lex.l b/gdb/ada-lex.l
index 2e6136e6f7..f198ea790c 100644
--- a/gdb/ada-lex.l
+++ b/gdb/ada-lex.l
@@ -58,6 +58,10 @@ static int find_dot_all (const char *);
 #undef YY_DECL
 #define YY_DECL static int yylex ( void )
 
+/* Flex generates a static function "input" which is not used.
+   Defining YY_NO_INPUT comments it out.  */
+#define YY_NO_INPUT
+
 #undef YY_INPUT
 #define YY_INPUT(BUF, RESULT, MAX_SIZE) \
     if ( *lexptr == '\000' ) \