Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

(experimental) Changing *_TLS_CONTEXT to parent perls context in SDL:…

…:Mixer::Channels
  • Loading branch information...
commit 4aa27a8ab7cb11456bf00eb74bf105f212ef1fbf 1 parent 41e2778
Tobias Leich authored
Showing with 3 additions and 3 deletions.
  1. +1 −0  CHANGELOG
  2. +2 −3 src/Mixer/Channels.xs
View
1  CHANGELOG
@@ -8,6 +8,7 @@ Revision history for Perl extension SDL_perl.
- Fixed typo in MANIFEST.SKIP file, scripts-folder is now in dist [FROGGS]
- Setting LD_LIBRARY_PATH to Alien::SDL's libdir for OpenBSD [FROGGS]
- Using UV instead of IV for SDL::Event attributes [kthakore]
+ - (experimental) Changing *_TLS_CONTEXT to parent perls context in SDL::Mixer::Channels [FROGGS]
* 2.524
- Fix for t/mixer_channels.t.bak
View
5 src/Mixer/Channels.xs
@@ -26,7 +26,7 @@ static SV * cb = (SV*)NULL;
void callback(int channel)
{
- ENTER_TLS_CONTEXT;
+ PERL_SET_CONTEXT(parent_perl);
dSP;
ENTER;
@@ -41,7 +41,6 @@ void callback(int channel)
FREETMPS;
LEAVE;
- LEAVE_TLS_CONTEXT;
}
MODULE = SDL::Mixer::Channels PACKAGE = SDL::Mixer::Channels PREFIX = mixchan_
@@ -161,7 +160,7 @@ void
mixchan_channel_finished( fn )
SV* fn
CODE:
- GET_TLS_CONTEXT;
+ parent_perl = PERL_GET_CONTEXT;
if (cb == (SV*)NULL)
cb = newSVsv(fn);
Please sign in to comment.
Something went wrong with that request. Please try again.