anchor.diff:    end;
   
     // line comment / region beg-end
  -  if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkAsm]) then if readDelim(reader, fTokStop, '//') then
  +  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
  
positive.code:   end;
  
    // string 1
    if fCurrRange.rangeKinds = [] then if readDelim(reader, fTokStop, stringPrefixes) then
    begin
      if readerPrev^ in ['r','x','q'] then
      begin
  
negative.code:   end else readerReset;
  
    // char literals
    if (fCurrRange.rangeKinds = []) or (fCurrRange.rangeKinds = [rkTokString])
      then if readDelim(reader, fTokStop, #39) then
    begin
      fTokKind := tkStrng;
      while true do
  