anchor.diff:    end;
   
     // string 1
  -  if fCurrRange.rangeKinds = [] then if readDelim(reader, fTokStop, stringPrefixes) then
  +  if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkTokString])
  +    then if readDelim(reader, fTokStop, stringPrefixes) then
     begin
       if readerPrev^ in ['r','x','q'] then
       begin
  
positive.code:   end;
  
    // line comment / region beg-end
    if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkAsm]) then if readDelim(reader, fTokStop, '//') then
    begin
      fTokKind := tkCommt;
      if readDelim(reader, fTokStop, '/') then
  
negative.code:   end else readerReset;
  
    // block comments 1
    if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkTokString])
      then if readDelim(reader, fTokStop, '/*') then
    begin
      fTokKind := tkCommt;
      if readDelim(reader, fTokStop, '*') then
  