anchor.diff:          try
             FStack.AddChild(Variable.Clone);
             FStack.AddChild(TypeInfo.Clone);
  +
  +          if Assigned(ValueInfo) then
  +            FStack.AddChild(ValueInfo.Clone);
           finally
             FStack.Pop;
           end;
  
positive.code:     for VarList in VarSect.ChildNodes do
      begin
        TypeInfo := VarList.FindNode(UpperCase(sTYPE));
        for Variable in VarList.ChildNodes do
        begin
          if not SameText(Variable.Name, sNAME) then
  
negative.code: procedure TPasSyntaxTreeBuilder.VarSection;
  var
    VarSect: TSyntaxNode;
    VarList, Variable, TypeInfo, ValueInfo: TSyntaxNode;
  begin
    VarSect := TSyntaxNode.Create('variables');
    try
  