diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-26 13:58:34 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-26 13:58:34 +0000 |
| commit | de8ae2fc69d472264b2d9639137e6169ff5a8c69 (patch) | |
| tree | c00b6ca70ded99b03d0fbaffcd198432091fa598 /ext | |
| parent | bc2cbbac0f53cbaf01b7ec8ef920f3910698f71d (diff) | |
| download | perl-de8ae2fc69d472264b2d9639137e6169ff5a8c69.tar.gz | |
Remove the Thread typemap
p4raw-id: //depot/perl@31088
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Thread/typemap | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/ext/Thread/typemap b/ext/Thread/typemap deleted file mode 100644 index 5df5b2646f..0000000000 --- a/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\") - |