anchor.diff:      function GetBytes: TBytes;
       property Bytes: TBytes read GetBytes;
     end;
  -
  -  TStringStreamHelper = class helper for TStringStream
  -    function GetDataString: string;
  -    property DataString: string read GetDataString;
  -  end;
  +  {$IFNDEF FPC}
  +    TStringStreamHelper = class helper for TStringStream
  +      function GetDataString: string;
  +      property DataString: string read GetDataString;
  +    end;
  +  {$ENDIF}
   
   function TBytesStreamHelper.GetBytes: TBytes;
   begin
  
positive.code:   {$ENDIF}
  end;
  
  function TStringStreamHelper.GetDataString: string;
  begin
    // try to read a bom from the buffer to create the correct encoding
    // but only if the encoding is still the default encoding
    {$IFNDEF FPC}
    if Self.FEncoding = TEncoding.Default then
    begin
      Self.FEncoding := nil;
  
negative.code:   end
    else
      Result := Self.FEncoding.GetString(Bytes, 0, Size);
  end;
  {$ENDIF}
  
  procedure TmwSimplePasPar.Run(const UnitName: string; SourceStream: TStream);
  var
  