diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-21 12:46:43 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-21 12:46:43 +0000 |
| commit | 76234dfb9b5ce1d0a5dafb80ee9a735679c4d6a3 (patch) | |
| tree | 1c9f07537bc8e526463f3a7900579e28c0495bc0 /regcomp.c | |
| parent | 83f21520f5a54c9513027c729005d6adb6ddea45 (diff) | |
| download | perl-76234dfb9b5ce1d0a5dafb80ee9a735679c4d6a3.tar.gz | |
Why hide functions (and duplicate them) when you can just avoid
compiling them in the first place?
p4raw-id: //depot/perl@27931
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -48,9 +48,6 @@ # define Perl_pregfree my_regfree # define Perl_re_intuit_string my_re_intuit_string /* *These* symbols are masked to allow static link. */ -# define Perl_regnext my_regnext -# define Perl_save_re_context my_save_re_context -# define Perl_reginitcolors my_reginitcolors # define PERL_NO_GET_CONTEXT #endif @@ -2753,6 +2750,7 @@ S_add_data(RExC_state_t *pRExC_state, I32 n, const char *s) return RExC_rx->data->count - n; } +#ifndef PERL_IN_XSUB_RE void Perl_reginitcolors(pTHX) { @@ -2778,7 +2776,7 @@ Perl_reginitcolors(pTHX) } PL_colorset = 1; } - +#endif /* - pregcomp - compile a regular expression into internal code @@ -6106,6 +6104,7 @@ Perl_pregfree(pTHX_ struct regexp *r) Safefree(r); } +#ifndef PERL_IN_XSUB_RE /* - regnext - dig the "next" pointer out of a node */ @@ -6124,6 +6123,7 @@ Perl_regnext(pTHX_ register regnode *p) return(p+offset); } +#endif STATIC void S_re_croak2(pTHX_ const char* pat1,const char* pat2,...) @@ -6161,6 +6161,7 @@ S_re_croak2(pTHX_ const char* pat1,const char* pat2,...) /* XXX Here's a total kludge. But we need to re-enter for swash routines. */ +#ifndef PERL_IN_XSUB_RE void Perl_save_re_context(pTHX) { @@ -6209,6 +6210,7 @@ Perl_save_re_context(pTHX) } } } +#endif static void clear_re(pTHX_ void *r) |