38 IV tmp = SvIV((SV*)SvRV($arg));
39 $var = INT2PTR($type,tmp);
42 croak(\"$var is not a reference\")
46 IV tmp = SvIV((SV*)SvRV($arg));
47 $var = INT2PTR($type,tmp);
50 croak(\"$var is not a reference\")
54 IV tmp = SvIV((SV*)SvRV($arg));
55 $var = INT2PTR($type,tmp);
58 croak(\"$var is not a reference\")
62 sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var));
65 make_sv_object(aTHX_ ($arg), (SV*)($var));
69 sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var));