2 // Copyright (C) 2004 David J. Goehrig
6 #ifndef SDL_PERL_DEFINES_H
7 #define SDL_PERL_DEFINES_H
9 #ifdef HAVE_TLS_CONTEXT
10 PerlInterpreter *parent_perl = NULL;
11 extern PerlInterpreter *parent_perl;
12 #define GET_TLS_CONTEXT parent_perl = PERL_GET_CONTEXT;
13 #define ENTER_TLS_CONTEXT \
14 PerlInterpreter *current_perl = PERL_GET_CONTEXT; \
15 PERL_SET_CONTEXT(parent_perl); { \
16 PerlInterpreter *my_perl = parent_perl;
17 #define LEAVE_TLS_CONTEXT \
18 } PERL_SET_CONTEXT(current_perl);
20 #define GET_TLS_CONTEXT /* TLS context not enabled */
21 #define ENTER_TLS_CONTEXT /* TLS context not enabled */
22 #define LEAVE_TLS_CONTEXT /* TLS context not enabled */