[p5sagit/p5-mst-13.2.git] / INTERN.h

/*    INTERN.h
 *
 *    Copyright (c) 1991-1994, Larry Wall
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

/*
 * EXT  designates a global var which is defined in perl.h
 * dEXT designates a global var which is defined in another
 *      file, so we can't count on finding it in perl.h
 *      (this practice should be avoided).
 */
#undef EXT
#undef dEXT
#if defined(VMS) && !defined(__GNUC__)
#  define EXT globaldef {"$GLOBAL_RW_VARS"} noshare
#  define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
#else
#  define EXT
#  define dEXT
#endif

#undef INIT
#define INIT(x) = x

#define DOINIT
Commit	Line	Data
a0d0e21e	1	/* INTERN.h
a687059c	2	*
a0d0e21e	3	* Copyright (c) 1991-1994, Larry Wall
a687059c	4	*
132b68a5	5	* You may distribute under the terms of either the GNU General Public
132b68a5	6	* License or the Artistic License, as specified in the README file.
8d063cd8	7	*
8d063cd8	8	*/
8d063cd8	9
4633a7c4	10	/*
	11	* EXT designates a global var which is defined in perl.h
	12	* dEXT designates a global var which is defined in another
	13	* file, so we can't count on finding it in perl.h
	14	* (this practice should be avoided).
	15	*/
8d063cd8	16	#undef EXT
4633a7c4	17	#undef dEXT
	18	#if defined(VMS) && !defined(__GNUC__)
	19	# define EXT globaldef {"$GLOBAL_RW_VARS"} noshare
	20	# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare
	21	#else
	22	# define EXT
	23	# define dEXT
	24	#endif
8d063cd8	25
	26	#undef INIT
	27	#define INIT(x) = x
	28
	29	#define DOINIT