The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

static void pcf_$funcname(struct Parrot_Interp *interpreter, PMC *self) { $ret_type (*pointer)(); $ret_type return_data;

    pointer = self->cache.struct_val;
    return_data = ($ret_type)(*pointer)($params);
    $ret_reg  = return_data;
    INT_REG(0) = $stack_returns;
    INT_REG(1) = $int_returns;
    INT_REG(2) = $string_returns;
    INT_REG(3) = $pmc_returns;
    INT_REG(4) = $num_returns;
    return;
}
EOR

} =end comment