JCF2: Support nested procedure types. Issue #31823, patch from CCRDude.

git-svn-id: trunk@54963 -

components/jcf2/Parse/BuildParseTree.pas

@@ -1193,6 +1193,12 @@ begin
     RecogniseGenericType;
   end;
 
+  if fcTokenList.FirstSolidTokenType = ttIs then
+  begin
+    Recognise(ttIs);
+    Recognise(ttNested);
+  end;
+
   // the type can be deprecated
   if fcTokenList.FirstSolidTokenType = ttDeprecated then
     Recognise(ttDeprecated);

components/jcf2/Parse/Tokens.pas

@@ -191,6 +191,7 @@ type
     ttGeneric,
     ttCVar,
     ttNostackframe,
+    ttNested,
     // used in asm
     ttOffset,
     ttPtr,
@@ -687,6 +688,7 @@ begin
 
   AddKeyword('cvar', wtReservedWordDirective, ttCVar);
   AddKeyword('nostackframe', wtReservedWordDirective, ttNostackframe);
+  AddKeyword('nested', wtReservedWordDirective, ttNested);
 
   // asm
   AddKeyword('offset', wtReservedWordDirective, ttOffset);