src/defines.h

   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