diff options
Diffstat (limited to 'contrib/perl5/ext/B/typemap')
-rw-r--r-- | contrib/perl5/ext/B/typemap | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/contrib/perl5/ext/B/typemap b/contrib/perl5/ext/B/typemap deleted file mode 100644 index bafba1c..0000000 --- a/contrib/perl5/ext/B/typemap +++ /dev/null @@ -1,69 +0,0 @@ -TYPEMAP - -B::OP T_OP_OBJ -B::UNOP T_OP_OBJ -B::BINOP T_OP_OBJ -B::LOGOP T_OP_OBJ -B::LISTOP T_OP_OBJ -B::PMOP T_OP_OBJ -B::SVOP T_OP_OBJ -B::PADOP T_OP_OBJ -B::PVOP T_OP_OBJ -B::CVOP T_OP_OBJ -B::LOOP T_OP_OBJ -B::COP T_OP_OBJ - -B::SV T_SV_OBJ -B::PV T_SV_OBJ -B::IV T_SV_OBJ -B::NV T_SV_OBJ -B::PVMG T_SV_OBJ -B::PVLV T_SV_OBJ -B::BM T_SV_OBJ -B::RV T_SV_OBJ -B::GV T_SV_OBJ -B::CV T_SV_OBJ -B::HV T_SV_OBJ -B::AV T_SV_OBJ -B::IO T_SV_OBJ - -B::MAGIC T_MG_OBJ -SSize_t T_IV -STRLEN T_IV -PADOFFSET T_UV - -INPUT -T_OP_OBJ - if (SvROK($arg)) { - IV tmp = SvIV((SV*)SvRV($arg)); - $var = INT2PTR($type,tmp); - } - else - croak(\"$var is not a reference\") - -T_SV_OBJ - if (SvROK($arg)) { - IV tmp = SvIV((SV*)SvRV($arg)); - $var = INT2PTR($type,tmp); - } - else - croak(\"$var is not a reference\") - -T_MG_OBJ - if (SvROK($arg)) { - IV tmp = SvIV((SV*)SvRV($arg)); - $var = INT2PTR($type,tmp); - } - else - croak(\"$var is not a reference\") - -OUTPUT -T_OP_OBJ - sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var)); - -T_SV_OBJ - make_sv_object(aTHX_ ($arg), (SV*)($var)); - - -T_MG_OBJ - sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var)); |