Fix end length for substring in FortranXref.lex

navinp0304 · Navin Parakkal · commit ba3e4773968e · 2024-11-16T14:56:54.000Z
diff --git a/opengrok-indexer/src/main/jflex/analysis/fortran/FortranXref.lex b/opengrok-indexer/src/main/jflex/analysis/fortran/FortranXref.lex
@@ -93,7 +93,7 @@ File = [a-zA-Z]{FNameChar}* "." ("i"|"inc")
     onNonSymbolMatched(cmatch.substring(0, 1), yychar);
     String file = cmatch.substring(1, cmatch.length() - 1);
     onFilelikeMatched(file, yychar + 1);
-    onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, 1), yychar + 1 + file.length());
+    onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, cmatch.length()), yychar + 1 + file.length());
 }
 
 /*{Hier}

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ File = [a-zA-Z]{FNameChar}* "." ("i"\|"inc")`
`93`	`93`	`onNonSymbolMatched(cmatch.substring(0, 1), yychar);`
`94`	`94`	`String file = cmatch.substring(1, cmatch.length() - 1);`
`95`	`95`	`onFilelikeMatched(file, yychar + 1);`
`96`		`- onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, 1), yychar + 1 + file.length());`
	`96`	`+ onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, cmatch.length()), yychar + 1 + file.length());`
`97`	`97`	`}`
`98`	`98`
`99`	`99`	`/*{Hier}`