anchor.diff:  
   { TPasNamesBuilder.TNameListStack }
   
  +function TmwSimplePasParEx.TNameListStack.Count: Integer;
  +begin
  +  Result := FNameListStack.Count;
  +end;
  +
   constructor TmwSimplePasParEx.TNameListStack.Create(
     const AParser: TmwSimplePasParEx);
   begin
  
positive.code: var
    NameList: TNameList;
  begin
    for NameList in FNameListStack.ToArray do
      if (NameList.Count > 0) and not NameList.LastItem.EndNameCalled then
        NameList.AddToken;
    inherited;
  end;
  
  
negative.code:       function ExtractNames: TNameList; inline;
        function PeekNames: TNameList; inline;
        function ToArray: TArray<TNameList>; inline;
        function Count: Integer; inline;
      end;
    strict private
      FNameListStack: TNameListStack;
  