anchor.diff:    end
     else
       Result := Self.FEncoding.GetString(Bytes, 0, Size);
  -  {$ELSE}
  -    // todo cw: find out how to work correctly with encodings in FPC
  -    Result := Self.DataString;
  -  {$ENDIF}
  -end;
  +end;
  +{$ENDIF}
   
   procedure TmwSimplePasPar.Run(const UnitName: string; SourceStream: TStream);
   var
  
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:     function GetBytes: TBytes;
      property Bytes: TBytes read GetBytes;
    end;
    {$IFNDEF FPC}
      TStringStreamHelper = class helper for TStringStream
        function GetDataString: string;
        property DataString: string read GetDataString;
      end;
    {$ENDIF}
  
  function TBytesStreamHelper.GetBytes: TBytes;
  begin
  