PERL_OBJECT tweaks for change#2426

p4raw-link: @2426 on //depot/cfgperl: 620e46c53f8c7c9f3fd77bcea9cd19e919047cba

p4raw-id: //depot/perl@2626

diff --git a/embed.pl b/embed.pl
index c00c260..5b9be53 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -351,6 +351,7 @@ my @staticfuncs = qw(
     study_chunk
     add_data
     re_croak2
+    regpposixcc
     regmatch
     regrepeat
     regrepeat_hard

diff --git a/proto.h b/proto.h
index 333bd23..8e6e363 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -864,6 +864,7 @@ void scan_commit _((scan_data_t *data));
 I32 study_chunk _((regnode **scanp, I32 *deltap, regnode *last, scan_data_t *data, U32 flags));
 I32 add_data _((I32 n, char *s));
 void   re_croak2 _((const char* pat1,const char* pat2,...)) __attribute__((noreturn));
+char* regpposixcc _((I32 value));
 I32 regmatch _((regnode *prog));
 I32 regrepeat _((regnode *p, I32 max));
 I32 regrepeat_hard _((regnode *p, I32 max, I32 *lp));

diff --git a/regcomp.c b/regcomp.c
index b930e8a..f78388b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -146,6 +146,7 @@ static void regtail _((regnode *, regnode *));
 static char* regwhite _((char *, char *));
 static char* nextchar _((void));
 static void re_croak2 _((const char* pat1,const char* pat2,...)) __attribute__((noreturn));
+static char* regpposixcc _((I32 value));
 #endif
 
 /* Length of a variant. */