Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^5: SvPV Segmentation Fault

by dave_the_m (Prior)
on Apr 25, 2012 at 23:14 UTC ( #967202=note: print w/replies, xml ) Need Help??

in reply to Re^4: SvPV Segmentation Fault
in thread SvPV Segmentation Fault

See perlguts.pod for more details about the [adp]THX_? macros, but basically, you're using a perl compiled for multiplicility/threading, and in those perls, most perl functions (including SvPV()) expect to take an extra first argument, called my_perl, which is a pointer to the current perl interpreter.

The idea is that on threaded perls, these macros typically expand as follows:

aTHX my_perl aTHX_ my_perl, pTHX PerlInterpreter* my_perl pTHX_ PerlInterpreter* my_perl, dTHX PerlInterpreter* my_perl = something_that_retrieves_the_current_perl();
while on unthreaded perls they expand to null strings.

You typically declare any function as expecting an interpreter as the first arg:

void foo(pTHX_ SV * sv) { ... }
and invoke it as
foo(aTHX_ some_sv);

Normally your XS sub will have been passed a my_perl arg, and you can pass this on down the chain of called subs using aTHX/pTHX. In those cases where this isn't possible, dTHX can be used within the declaration section of a function to recreate my_perl 'on the fly', but it's expensive:

void foo(SV * sv) { dTHX; ... }

All the above assumes that PERL_NO_GET_CONTEXT is defined in your source. If it isn't then aTHX is redefined to directly compute the interpreter address, like dTHX. This means everything 'just works' without messing with aTHX/pTHX, but is slow. Since you were getting compilation errors about missing my_perl, I'm assuming you must have had PERL_NO_GET_CONTEXT defined.


Replies are listed 'Best First'.
Re^6: SvPV Segmentation Fault
by adler187 (Initiate) on Apr 25, 2012 at 23:20 UTC
    Thanks, I also found this page when looking up dTHX on google. Looks like I should be able to figure it out now.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://967202]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2018-06-24 07:54 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.