anchor.diff:    NameList: TNameList;
   begin
     if FNameListStack.Count > 0 then
  -  begin
       for NameList in FNameListStack.ToArray do
         if (NameList.Count > 0) and not NameList.LastItem.EndNameCalled then
           NameList.AddToken;
  -  end;
  -
     inherited;
   end;
   
  
positive.code:           const ATokenPoint: TTokenPoint; const ATokenID: TptTokenKind;
            const ATokenPos, ATokenLen: Integer);
          property TokenList: TObjectList<TNameItemToken> read FTokenList;
          property TokenFileName: string read GetTokenFileName;
          property TokenPoint: TTokenPoint read GetTokenPoint;
          property TokenPos: Integer read GetTokenPos;
          property TokenLen: Integer read GetTokenLen;
          property EndNameCalled: Boolean read FEndNameCalled write FEndNameCalled;
        end;
      strict private
  
negative.code:       ATokenFileName, ATokenPoint, ATokenPos, ATokenLen));
  end;
  
  function TmwSimplePasParEx.TNameList.TNameItem.GetLastNameItemToken: TNameItemToken;
  begin
    Result := TokenList.Last;
  end;
  
  { TPasNamesBuilder.TNamesList }
  