This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Improve handling of Fortran keywords
- From: Greg Watson <g dot watson at computer dot org>
- To: gdb-patches at sourceware dot org
- Date: Tue, 14 Dec 2010 11:18:16 -0500
- Subject: Improve handling of Fortran keywords
- Authentication-results: cm-omr6 smtp.user=greg@watson.id.au; auth=pass (LOGIN)
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;