projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8f4f90a
)
Add debug info to Thread typemap.
author
Malcolm Beattie
<mbeattie@sable.ox.ac.uk>
Tue, 9 Sep 1997 16:26:47 +0000
(16:26 +0000)
committer
Malcolm Beattie
<mbeattie@sable.ox.ac.uk>
Tue, 9 Sep 1997 16:26:47 +0000
(16:26 +0000)
p4raw-id: //depot/perlext/Thread@57
typemap
patch
|
blob
|
history
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););