Add debug info to Thread typemap.
Malcolm Beattie [Tue, 9 Sep 1997 16:26:47 +0000 (16:26 +0000)]
p4raw-id: //depot/perlext/Thread@57

typemap

diff --git a/typemap b/typemap
index 4918b11..6ef6036 100644 (file)
--- 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););