anchor.diff:  procedure TPasSyntaxTreeBuilder.VarSection;
   var
     VarSect: TSyntaxNode;
  -  VarList, Variable, TypeInfo: TSyntaxNode;
  +  VarList, Variable, TypeInfo, ValueInfo: TSyntaxNode;
   begin
     VarSect := TSyntaxNode.Create('variables');
     try
  
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:         try
            FStack.AddChild(Variable.Clone);
            FStack.AddChild(TypeInfo.Clone);
  
            if Assigned(ValueInfo) then
              FStack.AddChild(ValueInfo.Clone);
          finally
            FStack.Pop;
          end;
  