blob: 21eb6c32409bb5678099286afdf13961a88718ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Thread T_XSCPTR
INPUT
T_XSCPTR
STMT_START {
MAGIC *mg;
SV *sv = ($arg);
if (!sv_isobject(sv))
croak(\"$var is not an object\");
sv = (SV*)SvRV(sv);
if (!SvRMAGICAL(sv) || !(mg = mg_find(sv, '~'))
|| mg->mg_private != ${ntype}_MAGIC_SIGNATURE)
croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
$var = ($type) SvPVX(mg->mg_obj);
DEBUG_S(PerlIO_printf(PerlIO_stderr(),
\"XSUB ${func_name}: %p\\n\", $var);)
} STMT_END
T_IVREF
if (SvROK($arg))
$var = ($type) SvIV((SV*)SvRV($arg));
else
croak(\"$var is not a reference\")
|
