Merge pull request #3195 from masatake/ada-minor-fix

Ada: minor fix

Author: masatake

main/entry.c

@@ -1503,9 +1503,10 @@ static bool isTagWritable(const tagEntryInfo *const tag)
 	}
 	else if (isLanguageKindRefOnly(tag->langType, tag->kindIndex))
 	{
-		error (WARNING, "definition tag for refonly kind(%s) is made: %s",
+		error (WARNING, "PARSER BUG: a definition tag for a refonly kind(%s.%s) of is made: %s found in %s.",
+			   getLanguageName(tag->langType),
 			   getLanguageKind(tag->langType, tag->kindIndex)->name,
-			   tag->name);
+			   tag->name, tag->inputFileName);
 		/* This one is not so critical. */
 	}
 

parsers/ada.c

@@ -165,7 +165,7 @@ static kindDefinition AdaKinds[] =
 {
 	{ true,   'P', "packspec",    "package specifications" },
 	{ true,   'p', "package",     "packages",
-	  .referenceOnly = true, ATTACH_ROLES(AdaPackageRoles) },
+	  .referenceOnly = false, ATTACH_ROLES(AdaPackageRoles) },
 	{ false,  'T', "typespec",    "type specifications" },
 	{ true,   't', "type",        "types" },
 	{ false,  'U', "subspec",     "subtype specifications" },