File: typemap

package info (click to toggle)
libdevel-cover-perl 1.51-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 2,036 kB
  • sloc: perl: 10,861; sh: 687; makefile: 7
file content (29 lines) | stat: -rw-r--r-- 528 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
TYPEMAP

B::OP T_OP_OBJ
B::AV T_SV_OBJ

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\")


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));