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