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