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