anchor.diff:      else
         fCurrRange.rangeKinds += [rkBlockCom1];
       readLine(reader, fTokStop);
  -    if fkComments1 in fFoldKinds then
  -      StartCodeFoldBlock(nil);
  +    StartCodeFoldBlock(nil, fkComments1 in fFoldKinds);
       exit;
     end else readerReset;
     if (rkBlockCom1 in fCurrRange.rangeKinds) or (rkBlockDoc1 in fCurrRange.rangeKinds) then
  
positive.code:     if readUntil(reader, fTokStop, '*/') then
      begin
        fCurrRange.rangeKinds -= [rkBlockDoc1, rkBlockCom1];
        if fkComments1 in fFoldKinds then
          EndCodeFoldBlock;
        exit;
      end;
      readLine(reader, fTokStop);
  
negative.code:       if fCurrRange.nestedCommentsCount <> 0 then
          exit;
        fCurrRange.rangeKinds -= [rkBlockDoc2, rkBlockCom2];
        EndCodeFoldBlock(fkComments2 in fFoldKinds);
        exit;
      end;
      readLine(reader, fTokStop);
  