anchor.diff:      if (fTokKind <> tkSymbl) then
         if (fTokKind <> tkKeywd) then
           if (fTokKind <> tkCommt) then
  -          result := fAsblrAttrib;
  +          if (fTokKind <> tkDDocs) then
  +            result := fAsblrAttrib;
   end;
   
   
  
positive.code:     else
        fCurrRange.rangeKinds += [rkBlockCom1];
      readLine(reader, fTokStop);
      StartCodeFoldBlock(nil, fkComments1 in fFoldKinds);
      exit;
    end else readerReset;
    if (rkBlockCom1 in fCurrRange.rangeKinds) or (rkBlockDoc1 in fCurrRange.rangeKinds) then
  
negative.code:   end;
  
    // block comments 2
    if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkTokString]) or
      (fCurrRange.rangeKinds = [rkAsm]) then if readDelim(reader, fTokStop, '/+') then
    begin
      fTokKind := tkCommt;
      if readDelim(reader, fTokStop, '+') then
  