37 IV tmp = SvIV((SV*)SvRV($arg));
38 $var = INT2PTR($type,tmp);
41 croak(\"$var is not a reference\")
45 IV tmp = SvIV((SV*)SvRV($arg));
46 $var = INT2PTR($type,tmp);
49 croak(\"$var is not a reference\")
53 IV tmp = SvIV((SV*)SvRV($arg));
54 $var = INT2PTR($type,tmp);
57 croak(\"$var is not a reference\")
61 sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var));
64 make_sv_object(aTHX_ ($arg), (SV*)($var));
68 sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var));