diff options
-rw-r--r-- | feature.h | 5 | ||||
-rw-r--r-- | invlist_inline.h | 5 | ||||
-rw-r--r-- | regcomp.h | 6 | ||||
-rwxr-xr-x | regen/feature.pl | 5 |
4 files changed, 21 insertions, 0 deletions
@@ -5,6 +5,9 @@ */ +#ifndef PERL_FEATURE_H_ +#define PERL_FEATURE_H_ + #if defined(PERL_CORE) || defined (PERL_EXT) #define HINT_FEATURE_SHIFT 26 @@ -162,4 +165,6 @@ S_enable_feature_bundle(pTHX_ SV *ver) } #endif /* PERL_IN_OP_C */ +#endif /* PERL_FEATURE_H_ */ + /* ex: set ro: */ diff --git a/invlist_inline.h b/invlist_inline.h index 48084d3d69..cd002cef19 100644 --- a/invlist_inline.h +++ b/invlist_inline.h @@ -6,6 +6,9 @@ * License or the Artistic License, as specified in the README file. */ +#ifndef PERL_INVLIST_INLINE_H_ +#define PERL_INVLIST_INLINE_H_ + #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_TOKE_C) /* An element is in an inversion list iff its index is even numbered: 0, 2, 4, @@ -93,3 +96,5 @@ S_invlist_array(SV* const invlist) # endif #endif + +#endif /* PERL_INVLIST_INLINE_H_ */ @@ -7,6 +7,10 @@ * License or the Artistic License, as specified in the README file. * */ + +#ifndef PERL_REGCOMP_H_ +#define PERL_REGCOMP_H_ + #include "regcharclass.h" /* Convert branch sequences to more efficient trie ops? */ @@ -1118,6 +1122,8 @@ typedef enum { WB_BOUND } bound_type; +#endif /* PERL_REGCOMP_H_ */ + /* * ex: set ts=8 sts=4 sw=4 et: */ diff --git a/regen/feature.pl b/regen/feature.pl index 89d46af907..12bf5a8068 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -242,6 +242,9 @@ read_only_bottom_close_and_rename($pm); print $h <<EOH; +#ifndef PERL_FEATURE_H_ +#define PERL_FEATURE_H_ + #if defined(PERL_CORE) || defined (PERL_EXT) #define HINT_FEATURE_SHIFT $HintShift @@ -364,6 +367,8 @@ print $h <<EOJ; else PL_hints &= ~HINT_UNI_8_BIT; } #endif /* PERL_IN_OP_C */ + +#endif /* PERL_FEATURE_H_ */ EOJ read_only_bottom_close_and_rename($h); |