From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 26 Apr 2007 13:58:34 +0000 (+0000)
Subject: Remove the Thread typemap
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de8ae2fc69d472264b2d9639137e6169ff5a8c69;p=p5sagit%2Fp5-mst-13.2.git

Remove the Thread typemap

p4raw-id: //depot/perl@31088
---

diff --git a/MANIFEST b/MANIFEST
index 4bb181b..e16bcfa 100644
--- 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/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
diff --git a/ext/Thread/typemap b/ext/Thread/typemap
deleted file mode 100644
index 5df5b26..0000000
--- 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\")
-