Commit | Line | Data |
---|---|---|
a8a597b2 MB |
1 | TYPEMAP |
2 | ||
3 | B::OP T_OP_OBJ | |
4 | B::UNOP T_OP_OBJ | |
5 | B::BINOP T_OP_OBJ | |
6 | B::LOGOP T_OP_OBJ | |
a8a597b2 MB |
7 | B::LISTOP T_OP_OBJ |
8 | B::PMOP T_OP_OBJ | |
9 | B::SVOP T_OP_OBJ | |
7934575e | 10 | B::PADOP T_OP_OBJ |
a8a597b2 | 11 | B::PVOP T_OP_OBJ |
a8a597b2 MB |
12 | B::LOOP T_OP_OBJ |
13 | B::COP T_OP_OBJ | |
14 | ||
15 | B::SV T_SV_OBJ | |
16 | B::PV T_SV_OBJ | |
17 | B::IV T_SV_OBJ | |
18 | B::NV T_SV_OBJ | |
19 | B::PVMG T_SV_OBJ | |
20 | B::PVLV T_SV_OBJ | |
21 | B::BM T_SV_OBJ | |
22 | B::RV T_SV_OBJ | |
23 | B::GV T_SV_OBJ | |
24 | B::CV T_SV_OBJ | |
25 | B::HV T_SV_OBJ | |
26 | B::AV T_SV_OBJ | |
27 | B::IO T_SV_OBJ | |
1df34986 | 28 | B::FM T_SV_OBJ |
a8a597b2 MB |
29 | |
30 | B::MAGIC T_MG_OBJ | |
31 | SSize_t T_IV | |
fee282c3 | 32 | STRLEN T_UV |
7934575e | 33 | PADOFFSET T_UV |
a8a597b2 | 34 | |
fd9f6265 JJ |
35 | B::HE T_HE_OBJ |
36 | B::RHE T_RHE_OBJ | |
37 | ||
a8a597b2 MB |
38 | INPUT |
39 | T_OP_OBJ | |
40 | if (SvROK($arg)) { | |
41 | IV tmp = SvIV((SV*)SvRV($arg)); | |
56431972 | 42 | $var = INT2PTR($type,tmp); |
a8a597b2 MB |
43 | } |
44 | else | |
45 | croak(\"$var is not a reference\") | |
46 | ||
47 | T_SV_OBJ | |
48 | if (SvROK($arg)) { | |
49 | IV tmp = SvIV((SV*)SvRV($arg)); | |
56431972 | 50 | $var = INT2PTR($type,tmp); |
a8a597b2 MB |
51 | } |
52 | else | |
53 | croak(\"$var is not a reference\") | |
54 | ||
55 | T_MG_OBJ | |
56 | if (SvROK($arg)) { | |
57 | IV tmp = SvIV((SV*)SvRV($arg)); | |
56431972 | 58 | $var = INT2PTR($type,tmp); |
a8a597b2 MB |
59 | } |
60 | else | |
61 | croak(\"$var is not a reference\") | |
62 | ||
fd9f6265 JJ |
63 | T_HE_OBJ |
64 | if (SvROK($arg)) { | |
65 | IV tmp = SvIV((SV*)SvRV($arg)); | |
66 | $var = INT2PTR($type,tmp); | |
67 | } | |
68 | else | |
69 | croak(\"$var is not a reference\") | |
70 | ||
71 | T_RHE_OBJ | |
72 | if (SvROK($arg)) { | |
73 | IV tmp = SvIV((SV*)SvRV($arg)); | |
74 | $var = INT2PTR($type,tmp); | |
75 | } | |
76 | else | |
77 | croak(\"$var is not a reference\") | |
78 | ||
a8a597b2 MB |
79 | OUTPUT |
80 | T_OP_OBJ | |
56431972 | 81 | sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var)); |
a8a597b2 MB |
82 | |
83 | T_SV_OBJ | |
cea2e8a9 | 84 | make_sv_object(aTHX_ ($arg), (SV*)($var)); |
a8a597b2 MB |
85 | |
86 | ||
87 | T_MG_OBJ | |
56431972 | 88 | sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var)); |
fd9f6265 JJ |
89 | |
90 | T_HE_OBJ | |
91 | sv_setiv(newSVrv($arg, "B::HE"), PTR2IV($var)); | |
92 | ||
93 | T_RHE_OBJ | |
94 | sv_setiv(newSVrv($arg, "B::RHE"), PTR2IV($var)); |