42 IV tmp = SvIV((SV*)SvRV($arg));
43 $var = INT2PTR($type,tmp);
46 croak(\"$var is not a reference\")
50 IV tmp = SvIV((SV*)SvRV($arg));
51 $var = INT2PTR($type,tmp);
54 croak(\"$var is not a reference\")
58 IV tmp = SvIV((SV*)SvRV($arg));
59 $var = INT2PTR($type,tmp);
62 croak(\"$var is not a reference\")
66 IV tmp = SvIV((SV*)SvRV($arg));
67 $var = INT2PTR($type,tmp);
70 croak(\"$var is not a reference\")
74 IV tmp = SvIV((SV*)SvRV($arg));
75 $var = INT2PTR($type,tmp);
78 croak(\"$var is not a reference\")
82 make_sv_object(aTHX_ ($arg), (SV*)($var));
86 sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var));
89 sv_setiv(newSVrv($arg, "B::HE"), PTR2IV($var));
92 sv_setiv(newSVrv($arg, "B::RHE"), PTR2IV($var));