Commit | Line | Data |
8fde61e3 |
1 | // |
2 | // Copyright (C) 2004 David J. Goehrig |
3 | // |
4 | // |
5 | |
6 | #ifndef SDL_PERL_DEFINES_H |
7 | #define SDL_PERL_DEFINES_H |
8 | |
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); |
19 | #else |
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 */ |
23 | #endif |
24 | |
25 | #endif |