----------------
____________________________________________________________________________
+[ 1876] By: gsar on 1998/09/24 09:04:43
+ Log: From: Colin Kuskie <ckuskie@cadence.com>
+ Date: Wed, 26 Aug 1998 14:53:01 -0700 (PDT)
+ Message-ID: <Pine.GSO.3.96.980826143507.3258K-100000@pdxmail.cadence.com>
+ Subject: [PATCH 5.005_51] perlform.pod
+ Branch: perl
+ ! pod/perlform.pod
+____________________________________________________________________________
+[ 1875] By: gsar on 1998/09/24 08:47:47
+ Log: From: Ilya Zakharevich <ilya@math.ohio-state.edu>
+ Date: Tue, 25 Aug 1998 15:35:58 -0400 (EDT)
+ Message-Id: <199808251935.PAA11384@monk.mps.ohio-state.edu>
+ Subject: Re: problem with (?p{}) [PATCH 5.005_5*]
+ Branch: perl
+ ! regexec.c
+____________________________________________________________________________
+[ 1874] By: gsar on 1998/09/24 08:44:55
+ Log: From: Ilya Zakharevich <ilya@math.ohio-state.edu>
+ Date: Tue, 25 Aug 1998 14:56:06 -0400 (EDT)
+ Message-Id: <199808251856.OAA10825@monk.mps.ohio-state.edu>
+ Subject: Re: your Regexp.patch dated 21.8 [PATCH]
+ Branch: perl
+ ! toke.c
+____________________________________________________________________________
+[ 1873] By: gsar on 1998/09/24 08:39:41
+ Log: From: Ilya Zakharevich <ilya@math.ohio-state.edu>
+ Date: Tue, 25 Aug 1998 04:29:49 -0400 (EDT)
+ Message-Id: <199808250829.EAA02470@monk.mps.ohio-state.edu>
+ Subject: [PATCH 5.005_*] Extraneous warning for (?()A|B)
+ Branch: perl
+ ! Changes regcomp.c
+____________________________________________________________________________
+[ 1872] By: gsar on 1998/09/24 08:37:00
+ Log: From: Krishna Sethuraman <krishpl@shamu.engr.sgi.com>
+ Date: Sun, 23 Aug 1998 23:18:38 PDT
+ Message-Id: <199808240618.XAA05329@shamu.engr.sgi.com>
+ Subject: new irix_6.sh hints file
+ Branch: perl
+ ! hints/irix_6.sh
+____________________________________________________________________________
[ 1871] By: gsar on 1998/09/24 07:26:37
Log: correct FSF address in various places
Branch: perl
#include <signal.h>
#endif
-static I32
+#ifndef PERL_OBJECT
+static I32 do_trans_CC_simple _((SV *sv));
+static I32 do_trans_CC_count _((SV *sv));
+static I32 do_trans_CC_complex _((SV *sv));
+static I32 do_trans_UU_simple _((SV *sv));
+static I32 do_trans_UU_count _((SV *sv));
+static I32 do_trans_UU_complex _((SV *sv));
+static I32 do_trans_UC_simple _((SV *sv));
+static I32 do_trans_CU_simple _((SV *sv));
+static I32 do_trans_UC_trivial _((SV *sv));
+static I32 do_trans_CU_trivial _((SV *sv));
+#endif
+
+STATIC I32
do_trans_CC_simple(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_CC_count(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_CC_complex(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UU_simple(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UU_count(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UC_simple(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_CU_simple(SV *sv)
{
dTHR;
/* utf-8 to latin-1 */
-static I32
+STATIC I32
do_trans_UC_trivial(SV *sv)
{
dTHR;
/* latin-1 to utf-8 */
-static I32
+STATIC I32
do_trans_CU_trivial(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UU_complex(SV *sv)
{
dTHR;
#include <signal.h>
#endif
-int
+U32
magic_regdata_cnt(SV *sv, MAGIC *mg)
{
dTHR;
if (PL_curpm && (rx = PL_curpm->op_pmregexp))
return rx->lastparen;
- return -1;
+ return (U32)-1;
}
int
#define regcppush CPerlObj::regcppush
#undef regcppop
#define regcppop CPerlObj::regcppop
+#undef regcp_set_to
+#define regcp_set_to CPerlObj::regcp_set_to
+#undef cache_re
+#define cache_re CPerlObj::cache_re
#undef reghop
#define reghop CPerlObj::reghop
#undef reghopmaybe
#undef to_utf8_upper
#define to_utf8_upper CPerlObj::Perl_to_utf8_upper
+#undef do_trans_CC_simple
+#define do_trans_CC_simple CPerlObj::do_trans_CC_simple
+#undef do_trans_CC_count
+#define do_trans_CC_count CPerlObj::do_trans_CC_count
+#undef do_trans_CC_complex
+#define do_trans_CC_complex CPerlObj::do_trans_CC_complex
+#undef do_trans_UU_simple
+#define do_trans_UU_simple CPerlObj::do_trans_UU_simple
+#undef do_trans_UU_count
+#define do_trans_UU_count CPerlObj::do_trans_UU_count
+#undef do_trans_UU_complex
+#define do_trans_UU_complex CPerlObj::do_trans_UU_complex
+#undef do_trans_UC_simple
+#define do_trans_UC_simple CPerlObj::do_trans_UC_simple
+#undef do_trans_CU_simple
+#define do_trans_CU_simple CPerlObj::do_trans_CU_simple
+#undef do_trans_UC_trivial
+#define do_trans_UC_trivial CPerlObj::do_trans_UC_trivial
+#undef do_trans_CU_trivial
+#define do_trans_CU_trivial CPerlObj::do_trans_CU_trivial
+
#undef too_few_arguments
#define too_few_arguments CPerlObj::Perl_too_few_arguments
#undef too_many_arguments
VIRTUAL int magic_mutexfree _((SV* sv, MAGIC* mg));
#endif /* USE_THREADS */
VIRTUAL int magic_nextpack _((SV* sv, MAGIC* mg, SV* key));
-VIRTUAL int magic_regdata_cnt _((SV* sv, MAGIC* mg));
+VIRTUAL U32 magic_regdata_cnt _((SV* sv, MAGIC* mg));
VIRTUAL int magic_regdatum_get _((SV* sv, MAGIC* mg));
VIRTUAL int magic_set _((SV* sv, MAGIC* mg));
#ifdef OVERLOAD
typedef I32 (CPerlObj::*SVCOMPARE) _((SV*, SV*));
void qsortsv _((SV ** array, size_t num_elts, SVCOMPARE f));
I32 sortcv _((SV *a, SV *b));
-void save_magic _((MGS *mgs, SV *sv));
+void save_magic _((I32 mgs_ix, SV *sv));
int magic_methpack _((SV *sv, MAGIC *mg, char *meth));
int magic_methcall _((MAGIC *mg, char *meth, I32 flags, int n, SV *val));
OP * doform _((CV *cv, GV *gv, OP *retop));
bool reginclassutf8 _((regnode *f, U8* p));
CHECKPOINT regcppush _((I32 parenfloor));
char * regcppop _((void));
+char * regcp_set_to _((I32 ss));
+void cache_re _((regexp *prog));
U8 * reghop _((U8 *pos, I32 off));
U8 * reghopmaybe _((U8 *pos, I32 off));
void dump _((char *pat,...));
void *bset_obj_store _((void *obj, I32 ix));
OP *new_logop _((I32 type, I32 flags, OP **firstp, OP **otherp));
+I32 do_trans_CC_simple _((SV *sv));
+I32 do_trans_CC_count _((SV *sv));
+I32 do_trans_CC_complex _((SV *sv));
+I32 do_trans_UU_simple _((SV *sv));
+I32 do_trans_UU_count _((SV *sv));
+I32 do_trans_UU_complex _((SV *sv));
+I32 do_trans_UC_simple _((SV *sv));
+I32 do_trans_CU_simple _((SV *sv));
+I32 do_trans_UC_trivial _((SV *sv));
+I32 do_trans_CU_trivial _((SV *sv));
+
#define PPDEF(s) OP* CPerlObj::s _((ARGSproto));
public:
static bool reginclassutf8 _((regnode *f, U8* p));
static CHECKPOINT regcppush _((I32 parenfloor));
static char * regcppop _((void));
+static char * regcp_set_to _((I32 ss));
+static void cache_re _((regexp *prog));
#endif
#define REGINCLASS(p,c) (*(p) ? reginclass(p,c) : ANYOF_TEST(p,c))
PL_savestack_ix = ss;
regcppop();
PL_savestack_ix = tmp;
+ return Nullch;
}
typedef struct re_cc_state
void
fbm_compile(SV *sv, U32 flags /* not used yet */)
{
- register unsigned char *s;
- register unsigned char *table;
+ register U8 *s;
+ register U8 *table;
register U32 i;
STRLEN len;
I32 rarest = 0;
U32 frequency = 256;
- s = SvPV_force(sv, len);
+ s = (U8*)SvPV_force(sv, len);
sv_upgrade(sv, SVt_PVBM);
if (len > 255 || len == 0) /* TAIL might be on on a zero-length string. */
return; /* can't have offsets that big */
ors
opsave
eval_mutex
+strtab_mutex
orslen
ofmt
modcount
projects / p5sagit/p5-mst-13.2.git / commitdiff