From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 17 Jan 1999 09:47:07 +0000 (+0000)
Subject: PERL_OBJECT tweaks for change#2426
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb1ab10a22402f281618389d37c3ca06ba5f71b2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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. */