From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 9 Sep 1997 16:26:47 +0000 (+0000)
Subject: Add debug info to Thread typemap.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd32f56474e10b163d84432c0d3936f5b114c3df;p=p5sagit%2Fp5-mst-13.2.git

Add debug info to Thread typemap.

p4raw-id: //depot/perlext/Thread@57
---

diff --git a/typemap b/typemap
index 4918b11..6ef6036 100644
--- a/typemap
+++ b/typemap
@@ -2,8 +2,12 @@ Thread		T_IVOBJ
 
 INPUT
 T_IVOBJ
-	if (sv_isobject($arg))
+	if (sv_isobject($arg)) {
 	    $var = ($type) SvIV((SV*)SvRV($arg));
+	    DEBUG_L(PerlIO_printf(PerlIO_stderr(),
+				  \"XSUB ${func_name}: 0x%lx\\n\",
+				  (unsigned long)$var););
+	}
 	else
 	    croak(\"$var is not an object\")
 T_IVREF
@@ -15,3 +19,5 @@ T_IVREF
 OUTPUT
 T_IVOBJ	
 	sv_setref_iv($arg, \"${ntype}\", (IV)($var));
+    	DEBUG_L(PerlIO_printf(PerlIO_stderr(), \"XSUB $func_name: 0x%lx\\n\",
+			      (unsigned long)$var););