On Sat, 19 Jul 2008 00:37:30 +0100 Ben Morrow <ben@[...].uk>  wrote: 

BM>  Something like this

BM>      IV
BM>      callsite()
BM>          INIT:
BM>      #if PERL_VERSION > 8
BM>              register PERL_CONTEXT *cx;
BM>      #endif
BM>          CODE:
BM>      #if PERL_VERSION > 8
BM>              cx = &cxstack[cxstack_ix];
BM>              RETVAL = (IV)(cx->blk_sub.retop);
BM>      #else
BM>              RETVAL = (IV)(PL_retstack[PL_retstack_ix - 1]);
BM>      #endif
BM>          OUTPUT:
BM>              RETVAL

BM>  might help... it returns the address of the op the current sub will
BM>  return to, which should be as unique as you need.

On Wed, 23 Jul 2008 15:47:43 -0500 "David Nicol" <davidnicol@[...].com>  wrote: 

DN>  Ben Morrow posted some XS to get a unique code for every instance of a
DN>  function call, although it wasn't wrapped in a module or anything like
DN>  that.  Did you find time to experiment with it?

I put together a module for it (Devel::Opcode, attached, copied from
Devel::Leak's structure) which reports the same opcode for two separate
calls of callsite() in test 5 (hence the warn() I left in there).  The
module is not ready for release (needs docs, plus test fails) and Ben
can choose to release it himself, of course, since I've done nothing but
packaging.  Ben, let me know if you want to take over.

Perhaps I've missed something; my XS experience is tiny and I may be
calling it wrong.

Ted