[sdlgit/SDL_perl.git] / src / defines.h

//
// Copyright (C) 2004 David J. Goehrig
//
//

#ifndef SDL_PERL_DEFINES_H
#define SDL_PERL_DEFINES_H

#ifdef HAVE_TLS_CONTEXT
PerlInterpreter *parent_perl = NULL;
extern PerlInterpreter *parent_perl;
#define GET_TLS_CONTEXT parent_perl =  PERL_GET_CONTEXT;
#define ENTER_TLS_CONTEXT \
        PerlInterpreter *current_perl = PERL_GET_CONTEXT; \
	        PERL_SET_CONTEXT(parent_perl); { \
			                PerlInterpreter *my_perl = parent_perl;
#define LEAVE_TLS_CONTEXT \
					        } PERL_SET_CONTEXT(current_perl);
#else
#define GET_TLS_CONTEXT         /* TLS context not enabled */
#define ENTER_TLS_CONTEXT       /* TLS context not enabled */
#define LEAVE_TLS_CONTEXT       /* TLS context not enabled */
#endif

#endif
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