anchor.diff:    inherited;
   end;
   
  +procedure TPasSyntaxTreeBuilder.ProceduralType;
  +begin
  +  FStack.Push(sTYPE).SetAttribute(sNAME, Lexer.Token);
  +  try
  +    inherited;
  +  finally
  +    FStack.Pop;
  +  end;
  +end;
  +
   procedure TPasSyntaxTreeBuilder.ProcedureDeclarationSection;
   begin
     FStack.Push('method');
  
positive.code:     procedure ParameterName; override;
      procedure PointerSymbol; override;
      procedure PointerType; override;
      procedure ProcedureHeading; override;
      procedure ProcedureDeclarationSection; override;
      procedure ProcedureProcedureName; override;
  
negative.code:       compound.SetAttribute(sNAME, compoundType);
        compound.SetAttribute('compound', 'true');
      end
      else
        compound := nil;
    end;
    try
      inherited;
  