anchor.diff:  
   procedure TPasSyntaxTreeBuilder.AsmStatement;
   begin
  -  FStack.Push(FStack.Peek.AddChild(TCompoundSyntaxNode.Create(ntStatements))).SetAttribute('type', 'asm');
  -  try
  -    inherited;
  -    TCompoundSyntaxNode(FStack.Peek).EndCol  := Lexer.PosXY.X;
  -    TCompoundSyntaxNode(FStack.Peek).EndLine := Lexer.PosXY.Y;
  +  FStack.PushCompoundSyntaxNode(ntStatements).SetAttribute('type', 'asm');
  +  try
  +    inherited;
  +    SetCurrentCompoundNodesEndPosition;
     finally
       FStack.Pop;
     end;
  
positive.code: begin
    ExpressionMethod := CallInheritedExpression;
    BuildExpressionTree(ExpressionMethod);
  end;
  
  procedure TPasSyntaxTreeBuilder.CallInheritedExpression;
  
negative.code:     function NodeListToString(NamesNode: TSyntaxNode): string;
      procedure CallInheritedConstantExpression;
      procedure CallInheritedExpression;
      procedure SetCurrentCompoundNodesEndPosition;
    protected
      FStack: TNodeStack;
  
  