Merge pull request #3215 from masatake/revise-ntrel-pas-type-partial

Pascal: fix looking for an identifier when there's a comment

Author: masatake

Units/review-needed.r/bug612019.pas.t/expected.tags renamed to Units/parser-pascal.r/bug612019.pas.t/expected.tags

@@ -0,0 +1 @@
+Fun1	input.pas	/^function {} Fun1: integer;$/;"	f	typeref:typename:integer

Units/review-needed.r/bug612019.pas.t/input.pas renamed to Units/parser-pascal.r/bug612019.pas.t/input.pas

@@ -0,0 +1,10 @@
+program hello;
+
+function {} Fun1: integer;
+begin
+   Fun1 := 1;
+end;
+
+begin
+   Fun1();
+end.

Units/parser-pascal.r/comment-after-keyword.d/expected.tags

@@ -274,6 +274,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);