diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-26 13:39:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-26 13:39:14 +0000 |
| commit | 873ef191be9d12eed8116e23926efe319c6ed859 (patch) | |
| tree | 88d2e70ffc2b1d49d8556a53ae1709fb84e6e6b6 /regcomp.c | |
| parent | cedea190b107621491e9374674b8382221691335 (diff) | |
| download | perl-873ef191be9d12eed8116e23926efe319c6ed859.tar.gz | |
[asperl] tweaks to make it build with the Borland compiler. Won't run
testsuite because @INC intuition from location of perlcore.dll seems
to be broken. Also, system() and qx// seem broken as well.
p4raw-id: //depot/asperl@1033
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -102,7 +102,6 @@ * Forward declarations for pregcomp()'s friends. */ -static char* regwhite _((char *, char *)); #ifndef PERL_OBJECT static regnode *reg _((I32, I32 *)); static regnode *reganode _((U8, U32)); @@ -116,8 +115,8 @@ static regnode *regpiece _((I32 *)); static void reginsert _((U8, regnode *)); static void regoptail _((regnode *, regnode *)); 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)); #endif @@ -1798,7 +1797,7 @@ tryagain: return(ret); } -static char * +STATIC char * regwhite(char *p, char *e) { while (p < e) { |