anchor.diff:    {$ENDIF}
   end;
   
  +{$IFNDEF FPC}
   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;
  
positive.code:     function GetBytes: TBytes;
      property Bytes: TBytes read GetBytes;
    end;
  
    TStringStreamHelper = class helper for TStringStream
      function GetDataString: string;
      property DataString: string read GetDataString;
    end;
  
  function TBytesStreamHelper.GetBytes: TBytes;
  begin
  
negative.code:   end
    else
      Result := Self.FEncoding.GetString(Bytes, 0, Size);
  end;
  {$ENDIF}
  
  procedure TmwSimplePasPar.Run(const UnitName: string; SourceStream: TStream);
  var
  