This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the Thread typemap
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 26 Apr 2007 13:58:34 +0000 (13:58 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 26 Apr 2007 13:58:34 +0000 (13:58 +0000)
p4raw-id: //depot/perl@31088

MANIFEST
ext/Thread/typemap [deleted file]

index 4bb181b..e16bcfa 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1165,7 +1165,6 @@ ext/Thread/sync.tx                Test thread synchronisation
 ext/Thread/Thread/Signal.pm    Start a thread to run signal handlers
 ext/Thread/Thread/Specific.pm  Thread specific data access
 ext/Thread/Thread.xs           Thread extension external subroutines
 ext/Thread/Thread/Signal.pm    Start a thread to run signal handlers
 ext/Thread/Thread/Specific.pm  Thread specific data access
 ext/Thread/Thread.xs           Thread extension external subroutines
-ext/Thread/typemap             Thread extension interface types
 ext/Thread/unsync2.tx          Test thread implicit synchronisation
 ext/Thread/unsync3.tx          Test thread implicit synchronisation
 ext/Thread/unsync4.tx          Test thread implicit synchronisation
 ext/Thread/unsync2.tx          Test thread implicit synchronisation
 ext/Thread/unsync3.tx          Test thread implicit synchronisation
 ext/Thread/unsync4.tx          Test thread implicit synchronisation
diff --git a/ext/Thread/typemap b/ext/Thread/typemap
deleted file mode 100644 (file)
index 5df5b26..0000000
+++ /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\")
-