anchor.diff:  
   procedure TPasSyntaxTreeBuilder.ExportedHeading;
   begin
  -  FStack.Push(ntMethod);
  -  try
  -    inherited;
  +  FStack.PushCompoundSyntaxNode(ntMethod);
  +  try
  +    inherited;
  +    SetCurrentCompoundNodesEndPosition;
     finally
       FStack.Pop;
     end;
  
positive.code: 
  procedure TPasSyntaxTreeBuilder.InitializationSection;
  begin
    FStack.Push(ntInitialization);
    try
      inherited;
    finally
      FStack.Pop;
    end;
  end;
  
  procedure TPasSyntaxTreeBuilder.InterfaceForward;
  
negative.code: 
  procedure TPasSyntaxTreeBuilder.MainUsesClause;
  begin
    FStack.PushCompoundSyntaxNode(ntUses);
    try
      inherited;
      SetCurrentCompoundNodesEndPosition;
    finally
      FStack.Pop;
    end;
  