Fix looking for an identifier when there's a comment

geany · Oct 16, 2019 · aae0a21 · aae0a21
1 parent 95e4c3b
commit aae0a21
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/ctags/parsers/pascal.c b/ctags/parsers/pascal.c
@@ -284,6 +284,8 @@ static void findPascalTags (void)
 			/* grab block name */
 			while (isspace ((int) *dbp))
 				++dbp;
+			if (!starttoken(*dbp))
+				continue;
 			for (cp = dbp  ;  *cp != '\0' && !endtoken (*cp)  ;  cp++)
 				continue;
 			vStringNCopyS (name, (const char*) dbp,  cp - dbp);