using MD5 parrot library in Q:PIR block

[Gerd Pokorra]

Here is a simple example that works.

#!/usr/bin/perl6

Q:PIR {
    load_bytecode 'Digest/MD5.pbc'
    .local pmc md5sum, md5print
    md5sum = get_root_global ['parrot'; 'Digest'], '_md5sum'
    $P0 = md5sum('foo')
    md5print = get_root_global ['parrot'; 'Digest'], '_md5_print'
    md5print($P0)
}


-- Gerd