This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial check-in of Thread module.
[perl5.git] / typemap
1 Thread          T_IVOBJ
2 Thread::Cond    T_IVOBJ
3
4 INPUT
5 T_IVOBJ
6         if (sv_isobject($arg))
7             $var = ($type) SvIV((SV*)SvRV($arg));
8         else
9             croak(\"$var is not an object\")
10
11 OUTPUT
12 T_IVOBJ 
13         sv_setref_iv($arg, \"${ntype}\", (IV)($var));