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