diff options
author | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
commit | f56e05005c751822074f0a22aa9a98d2eb189924 (patch) | |
tree | e28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/ext/Thread/typemap | |
parent | 344ddc14973a1519f100f54051dcb068069fe43c (diff) | |
download | FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz |
Perl is no longer in base. Long live the port!
Diffstat (limited to 'contrib/perl5/ext/Thread/typemap')
-rw-r--r-- | contrib/perl5/ext/Thread/typemap | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/contrib/perl5/ext/Thread/typemap b/contrib/perl5/ext/Thread/typemap deleted file mode 100644 index 7ce7d5c..0000000 --- a/contrib/perl5/ext/Thread/typemap +++ /dev/null @@ -1,24 +0,0 @@ -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(Perl_debug_log, - \"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\") - |