Leopold Tötsch
/
parrot-0.0.13
/
build_tools/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;
REG_INT(0) = $stack_returns;
REG_INT(1) = $int_returns;
REG_INT(2) = $string_returns;
REG_INT(3) = $pmc_returns;
REG_INT(4) = $num_returns;
return;
}
EOR
} =end comment