anchor.diff:  begin
     wrapped := false;
     if (P^ = '{') then begin
  -    Inc(P);
  +    IncP;
       wrapped := true;
     end;
     Start := P;
     while (P^ in ['0'..'9', 'a'..'z', 'A'..'Z', '_', '#', #0]) do begin
  -    Inc(P);
  +    IncP;
     end;
     SetString(result, Start, P-Start);
     if (wrapped) then begin
  
positive.code: implementation
  
  uses
    SysUtils, unit_definitions;
  
  const
    ParseBufSize = $1000;
  
negative.code:     result[idx] := arg;
      Inc(idx);
    end;
    if (P^ <> ')') then begin
      raise Exception.Create('Missing )');
    end;
    IncP;
  end;
  
  function TUE3PreProcessor.ProcMacro(): string;
  