Improve handling of Fortran keywords

[Greg Watson <g.watson@computer.org>]

Hi,

Currently, gdb 7.2 will not allow me to use identifier names such as "integer_var" as it treats the first "integer" part as a keyword without checking that the identifier is actually longer than the keyword. Here's a simple patch to fix this (and make Fortran debugging more useful).

Regards,
Greg

*** f-exp.y.orig	2010-12-14 10:28:34.542834692 -0500
--- f-exp.y	2010-12-14 11:06:04.798853514 -0500
***************
*** 955,960 ****
--- 955,961 ----
  {
    int c;
    int namelen;
+   int keylen;
    unsigned int i,token;
    char *tokstart;
    
***************
*** 1149,1162 ****
    
    /* Catch specific keywords.  */
    
!   for (i = 0; f77_keywords[i].operator != NULL; i++)
!     if (strncmp (tokstart, f77_keywords[i].operator,
! 		 strlen(f77_keywords[i].operator)) == 0)
        {
  	/* 	lexptr += strlen(f77_keywords[i].operator); */ 
  	yylval.opcode = f77_keywords[i].opcode;
  	return f77_keywords[i].token;
        }
    
    yylval.sval.ptr = tokstart;
    yylval.sval.length = namelen;
--- 1150,1165 ----
    
    /* Catch specific keywords.  */
    
!   for (i = 0; f77_keywords[i].operator != NULL; i++) {
!     keylen = strlen(f77_keywords[i].operator);
!     if (strlen(tokstart) == keylen &&
!             strncmp (tokstart, f77_keywords[i].operator, keylen) == 0)
        {
  	/* 	lexptr += strlen(f77_keywords[i].operator); */ 
  	yylval.opcode = f77_keywords[i].opcode;
  	return f77_keywords[i].token;
        }
+   }
    
    yylval.sval.ptr = tokstart;
    yylval.sval.length = namelen;