It does not really qualify as a compiler, but there is the built-in assembler. Because Parrot has so many opcodes, complex datatypes, objects, a native call interface and a macro facility, it is much easier to use than "real" assembly language.

On the other hand, I can already see my motivation to write directly in IMC drop rapidly with the amazing progress of Pugs' Perl6 compiler.