Select Code to Download

my ($num, $str);
sub_from_xs(\$num, \$str);

void
sub_from_xs(SV *num, SV *str)
...
        sv_setiv_mg(SvRV(num), nx);
        sx = get_sx();
        sv_setpv_mg(SvRV(str), sx);