Steve A Fink
/
parrot-0.0.10
/
build_nativecall.pl
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