From 45ccdddcbfd0eea3165b732191613dc85f016b8c Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 15 Dec 2010 19:28:31 +0000 Subject: 2010-12-15 Greg Watson * f-exp.y (yylex): Check entire token against keywords. --- gdb/f-exp.y | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gdb/f-exp.y') diff --git a/gdb/f-exp.y b/gdb/f-exp.y index 415819a..feffe79 100644 --- a/gdb/f-exp.y +++ b/gdb/f-exp.y @@ -1150,8 +1150,8 @@ yylex () /* 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) + if (strlen (f77_keywords[i].operator) == namelen + && strncmp (tokstart, f77_keywords[i].operator, namelen) == 0) { /* lexptr += strlen(f77_keywords[i].operator); */ yylval.opcode = f77_keywords[i].opcode; -- cgit v1.1