summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/ext/B/typemap
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/perl5/ext/B/typemap')
-rw-r--r--contrib/perl5/ext/B/typemap69
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));
OpenPOWER on IntegriCloud