Oh, and I haven't heard any solution of how to port XS code to Parrot short of rewriting it.

Linking Parrot against libperl, and sharing runloops?

That's probably not easy, but conceptually possible. (And notice that smop, another possible Perl 6 backend, already has XS bindings).