This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Make internal function static
[perl5.git] / embed.h
diff --git a/embed.h b/embed.h
index 3be6c42..e7cd573 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define find_span_end          S_find_span_end
 #define find_span_end_mask     S_find_span_end_mask
 #define foldEQ_latin1_s2_folded        S_foldEQ_latin1_s2_folded
+#define isFOO_lc(a,b)          S_isFOO_lc(aTHX_ a,b)
 #define isFOO_utf8_lc(a,b,c)   S_isFOO_utf8_lc(aTHX_ a,b,c)
 #define isGCB(a,b,c,d,e)       S_isGCB(aTHX_ a,b,c,d,e)
 #define isLB(a,b,c,d,e,f)      S_isLB(aTHX_ a,b,c,d,e,f)
 #define to_byte_substr(a)      S_to_byte_substr(aTHX_ a)
 #define to_utf8_substr(a)      S_to_utf8_substr(aTHX_ a)
 #  endif
-#  if defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C)
-#define isFOO_lc(a,b)          Perl_isFOO_lc(aTHX_ a,b)
-#  endif
 #endif
 #ifdef PERL_CORE
 #define PerlLIO_dup2_cloexec(a,b)      Perl_PerlLIO_dup2_cloexec(aTHX_ a,b)