anchor.diff:    end;
   
     TmwSimplePasParEx = class(TmwSimplePasPar)
  -  strict protected type
  +  public type
       TNameListStack = class;
       TNameList = class
  -    strict private type
  +    public type
         TNameItem = class
  -      strict private type
  +      public type
           TNameItemToken = class
           strict private
             FTokenFileName: string;
  
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:   NameList: TNameList;
  begin
    if FNameListStack.Count > 0 then
      for NameList in FNameListStack.ToArray do
        if (NameList.Count > 0) and not NameList.LastItem.EndNameCalled then
          NameList.AddToken;
    inherited;
  end;
  
  