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!
8 #if defined(PERL_CORE) || defined (PERL_EXT)
10 #define HINT_FEATURE_SHIFT 26
12 #define FEATURE_BUNDLE_DEFAULT 0
13 #define FEATURE_BUNDLE_510 1
14 #define FEATURE_BUNDLE_511 2
15 #define FEATURE_BUNDLE_515 3
16 #define FEATURE_BUNDLE_523 4
17 #define FEATURE_BUNDLE_527 5
18 #define FEATURE_BUNDLE_CUSTOM (HINT_FEATURE_MASK >> HINT_FEATURE_SHIFT)
20 #define CURRENT_HINTS \
21 (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
22 #define CURRENT_FEATURE_BUNDLE \
23 ((CURRENT_HINTS & HINT_FEATURE_MASK) >> HINT_FEATURE_SHIFT)
25 /* Avoid using ... && Perl_feature_is_enabled(...) as that triggers a bug in
26 the HP-UX cc on PA-RISC */
27 #define FEATURE_IS_ENABLED(name) \
30 ? Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name)) : FALSE)
31 /* The longest string we pass in. */
32 #define MAX_FEATURE_LEN (sizeof("postderef_qq")-1)
34 #define FEATURE_FC_IS_ENABLED \
36 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
37 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
38 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
39 FEATURE_IS_ENABLED("fc")) \
42 #define FEATURE_SAY_IS_ENABLED \
44 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
45 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
46 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
47 FEATURE_IS_ENABLED("say")) \
50 #define FEATURE_STATE_IS_ENABLED \
52 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
53 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
54 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
55 FEATURE_IS_ENABLED("state")) \
58 #define FEATURE_SWITCH_IS_ENABLED \
60 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
61 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
62 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
63 FEATURE_IS_ENABLED("switch")) \
66 #define FEATURE_BITWISE_IS_ENABLED \
68 CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_527 \
69 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
70 FEATURE_IS_ENABLED("bitwise")) \
73 #define FEATURE_EVALBYTES_IS_ENABLED \
75 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
76 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
77 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
78 FEATURE_IS_ENABLED("evalbytes")) \
81 #define FEATURE_SIGNATURES_IS_ENABLED \
83 CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
84 FEATURE_IS_ENABLED("signatures") \
87 #define FEATURE___SUB___IS_ENABLED \
89 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
90 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
91 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
92 FEATURE_IS_ENABLED("__SUB__")) \
95 #define FEATURE_REFALIASING_IS_ENABLED \
97 CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
98 FEATURE_IS_ENABLED("refaliasing") \
101 #define FEATURE_POSTDEREF_QQ_IS_ENABLED \
103 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_523 && \
104 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
105 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
106 FEATURE_IS_ENABLED("postderef_qq")) \
109 #define FEATURE_UNIEVAL_IS_ENABLED \
111 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
112 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
113 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
114 FEATURE_IS_ENABLED("unieval")) \
117 #define FEATURE_MYREF_IS_ENABLED \
119 CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
120 FEATURE_IS_ENABLED("myref") \
123 #define FEATURE_UNICODE_IS_ENABLED \
125 (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_511 && \
126 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_527) \
127 || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
128 FEATURE_IS_ENABLED("unicode")) \
132 #endif /* PERL_CORE or PERL_EXT */
135 PERL_STATIC_INLINE void
136 S_enable_feature_bundle(pTHX_ SV *ver)
138 SV *comp_ver = sv_newmortal();
139 PL_hints = (PL_hints &~ HINT_FEATURE_MASK)
141 (sv_setnv(comp_ver, 5.027),
142 vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
143 ? FEATURE_BUNDLE_527 :
144 (sv_setnv(comp_ver, 5.023),
145 vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
146 ? FEATURE_BUNDLE_523 :
147 (sv_setnv(comp_ver, 5.015),
148 vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
149 ? FEATURE_BUNDLE_515 :
150 (sv_setnv(comp_ver, 5.011),
151 vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
152 ? FEATURE_BUNDLE_511 :
153 (sv_setnv(comp_ver, 5.009005),
154 vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
155 ? FEATURE_BUNDLE_510 :
156 FEATURE_BUNDLE_DEFAULT
157 ) << HINT_FEATURE_SHIFT;
159 assert(PL_curcop == &PL_compiling);
160 if (FEATURE_UNICODE_IS_ENABLED) PL_hints |= HINT_UNI_8_BIT;
161 else PL_hints &= ~HINT_UNI_8_BIT;
163 #endif /* PERL_IN_OP_C */