TPasAnalyzer

type TPasAnalyzer = class

protected

  procedure RaiseInconsistency();

  procedure RaiseNotSupported();

  function FindTopImplScope();

  function Add();

  function PAElementExists();

  procedure CreateTree; virtual;

  function MarkElementAsUsed();

  function ElementVisited();

  procedure MarkImplScopeRef();

  function IsGenericElement(); virtual;

  function CanSkipGenericType(); virtual;

  function CanSkipGenericProc(); virtual;

  procedure UseElement(); virtual;

  procedure UseTypeInfo(); virtual;

  function UseAttributes(); virtual;

  function UseModule(); virtual;

  procedure UseSection(); virtual;

  procedure UseImplBlock(); virtual;

  procedure UseImplElement(); virtual;

  procedure UseExpr(); virtual;

  procedure UseExprRef(); virtual;

  procedure UseInheritedExpr(); virtual;

  procedure UseInlineSpecializeExpr(); virtual;

  procedure UseScopeReferences(); virtual;

  procedure UseProcedure(); virtual;

  procedure UseProcedureType(); virtual;

  procedure UseType(); virtual;

  procedure UseClassOrRecType(); virtual;

  procedure UseClassConstructor(); virtual;

  procedure UseSpecializeType(); virtual;

  procedure UseVariable(); virtual;

  procedure UseResourcestring(); virtual;

  procedure UseExportSymbol(); virtual;

  procedure UseArgument(); virtual;

  procedure UseResultElement(); virtual;

  procedure UseRecordFields(); virtual;

  procedure EmitElementHints(); virtual;

  procedure EmitSectionHints(); virtual;

  procedure EmitDeclarationsHints(); virtual;

  procedure EmitTypeHints(); virtual;

  procedure EmitVariableHints(); virtual;

  procedure EmitProcedureHints(); virtual;

  procedure EmitFunctionResultHints(); virtual;

public

  constructor Create;

  destructor Destroy; override;

  procedure Clear;

  procedure AnalyzeModule();

  procedure AnalyzeWholeProgram();

  procedure EmitModuleHints(); virtual;

  function FindElement();

  function FindUsedElement();

  function IsUsed();

  function IsTypeInfoUsed();

  function IsModuleInternal();

  function IsExport();

  function IsIdentifier();

  function IsImplBlockEmpty();

  function IsSpecializedGenericType();

  procedure EmitMessage();

  class function GetWarnIdentifierNumbers(); virtual;

  function GetUsedElements; virtual;

  property OnMessage: TPAMessageEvent; [rw]

  property Options: TPasAnalyzerOptions; [rw]

  property Resolver: TPasResolver; [rw]

  property ScopeModule: TPasModule; [rw]

end;

TPasAnalyzer

TObject