[p5sagit/p5-mst-13.2.git] / typemap

Thread		T_IVOBJ

INPUT
T_IVOBJ
	if (sv_isobject($arg)) {
	    $var = ($type) SvIV((SV*)SvRV($arg));
	    DEBUG_L(PerlIO_printf(PerlIO_stderr(),
				  \"XSUB ${func_name}: 0x%lx\\n\",
				  (unsigned long)$var););
	}
	else
	    croak(\"$var is not an object\")
T_IVREF
	if (SvROK($arg))
	    $var = ($type) SvIV((SV*)SvRV($arg));
	else
	    croak(\"$var is not a reference\")

OUTPUT
T_IVOBJ	
	sv_setref_iv($arg, \"${ntype}\", (IV)($var));
    	DEBUG_L(PerlIO_printf(PerlIO_stderr(), \"XSUB $func_name: 0x%lx\\n\",
			      (unsigned long)$var););
Commit	Line	Data
d9bb3666	1	Thread T_IVOBJ
d9bb3666	2
	3	INPUT
	4	T_IVOBJ
dd32f564	5	if (sv_isobject($arg)) {
d9bb3666	6	$var = ($type) SvIV((SV*)SvRV($arg));
dd32f564	7	DEBUG_L(PerlIO_printf(PerlIO_stderr(),
	8	\"XSUB ${func_name}: 0x%lx\\n\",
	9	(unsigned long)$var););
	10	}
d9bb3666	11	else
d9bb3666	12	croak(\"$var is not an object\")
734689b1	13	T_IVREF
	14	if (SvROK($arg))
	15	$var = ($type) SvIV((SV*)SvRV($arg));
	16	else
	17	croak(\"$var is not a reference\")
d9bb3666	18
	19	OUTPUT
	20	T_IVOBJ
	21	sv_setref_iv($arg, \"${ntype}\", (IV)($var));
dd32f564	22	DEBUG_L(PerlIO_printf(PerlIO_stderr(), \"XSUB $func_name: 0x%lx\\n\",
dd32f564	23	(unsigned long)$var););