[perl5.git] / feature.h

/* -*- buffer-read-only: t -*-
   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   This file is built by regen/feature.pl.
   Any changes made here will be lost!
 */


#if defined(PERL_CORE) || defined (PERL_EXT)

#define HINT_FEATURE_SHIFT	26

#define FEATURE_BUNDLE_DEFAULT	0
#define FEATURE_BUNDLE_510	1
#define FEATURE_BUNDLE_511	2
#define FEATURE_BUNDLE_515	3
#define FEATURE_BUNDLE_CUSTOM	(HINT_FEATURE_MASK >> HINT_FEATURE_SHIFT)

#define CURRENT_HINTS \
    (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
#define CURRENT_FEATURE_BUNDLE	(CURRENT_HINTS >> HINT_FEATURE_SHIFT)

#endif /* PERL_CORE or PERL_EXT */

/* ex: set ro: */
Commit	Line	Data
f2c01b15 FC	1	/* -- buffer-read-only: t --
	2	!!!!!!! DO NOT EDIT THIS FILE !!!!!!!
	3	This file is built by regen/feature.pl.
	4	Any changes made here will be lost!
	5	*/
	6
	7
	8	#if defined(PERL_CORE) \|\| defined (PERL_EXT)
	9
	10	#define HINT_FEATURE_SHIFT 26
	11
	12	#define FEATURE_BUNDLE_DEFAULT 0
	13	#define FEATURE_BUNDLE_510 1
	14	#define FEATURE_BUNDLE_511 2
	15	#define FEATURE_BUNDLE_515 3
2b9e0ab7	16	#define FEATURE_BUNDLE_CUSTOM (HINT_FEATURE_MASK >> HINT_FEATURE_SHIFT)
f2c01b15	17
d1fd0100 FC	18	#define CURRENT_HINTS \
	19	(PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
	20	#define CURRENT_FEATURE_BUNDLE (CURRENT_HINTS >> HINT_FEATURE_SHIFT)
	21
f2c01b15 FC	22	#endif /* PERL_CORE or PERL_EXT */
	23
	24	/* ex: set ro: */