anchor.diff:        end;
   
         {$IFDEF DELPHI2009_UP}
  -      if (pd > 2) and not CharInSet(ansilargeblock[pd - 1], [#$0A,#$0D,#$07,#$20]) then
  +      if (pd > 2) and not CharInSet(largeblock[pd - 1], [#$0A,#$0D,#$07,#$20]) then
         {$ELSE}
  -      if (pd > 2) and not (ansilargeblock[pd - 1] in [#$0A,#$0D,#$07,#$20]) then
  +      if (pd > 2) and not (largeblock[pd - 1] in [#$0A,#$0D,#$07,#$20]) then
         {$ENDIF}
         begin
           iSkip := Min(pd + 11, iSkip);
  
positive.code:             sMethodDef := '';
            end;
  
            ansilargeblock := Copy(ansilargeblock, i + 1);
            i := 1;
          end;
        end;
  
negative.code:   bEof := False;
    while not (bEof and (i >= Length(ansilargeblock))) do
    begin
      SetLength(ansiblock, FBufferSize);
  
      if i >= Length(ansilargeblock) then
      begin
  