diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2010-10-17 23:03:58 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-22 09:17:41 -0800 |
| commit | b58757d5ff9c7545317c6f3c3c7e6aaad3b34de6 (patch) | |
| tree | ea37a92085a7607f325cdcb2cb28dcb8006cf7c2 /ext | |
| parent | 09f38561c0e16ef4eadf11200be60cd6a4518285 (diff) | |
| download | perl-b58757d5ff9c7545317c6f3c3c7e6aaad3b34de6.tar.gz | |
%x can't be used directly with pointers.
(I keep forgetting this.) Change the four occurrences in the new custom
op tests to UVxf with a PTR2UV around the pointer.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 60047ea47e..358159bb7d 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -914,8 +914,8 @@ static void peep_xop(pTHX_ OP *o, OP *oldop) { dMY_CXT; - av_push(MY_CXT.xop_record, newSVpvf("peep:%x", o)); - av_push(MY_CXT.xop_record, newSVpvf("oldop:%x", oldop)); + av_push(MY_CXT.xop_record, newSVpvf("peep:%"UVxf, PTR2UV(o))); + av_push(MY_CXT.xop_record, newSVpvf("oldop:%"UVxf, PTR2UV(oldop))); } XS(XS_XS__APItest__XSUB_XS_VERSION_undef); @@ -1456,8 +1456,8 @@ xop_build_optree () unop->op_next = NULL; kid->op_next = (OP*)unop; - av_push(MY_CXT.xop_record, newSVpvf("unop:%x", unop)); - av_push(MY_CXT.xop_record, newSVpvf("kid:%x", kid)); + av_push(MY_CXT.xop_record, newSVpvf("unop:%"UVxf, PTR2UV(unop))); + av_push(MY_CXT.xop_record, newSVpvf("kid:%"UVxf, PTR2UV(kid))); av_push(MY_CXT.xop_record, newSVpvf("NAME:%s", OP_NAME((OP*)unop))); av_push(MY_CXT.xop_record, newSVpvf("DESC:%s", OP_DESC((OP*)unop))); |