diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-22 18:10:50 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-22 18:10:50 +0000 |
| commit | 161b471ac314d8d6343f9f351e5fb9ef816168a8 (patch) | |
| tree | c3a324553e0f560f723db6f25069f4eeca5f65eb /regcomp.c | |
| parent | 2caa6ce99d8e3323a4caebe8d1c7473fc0b66544 (diff) | |
| download | perl-161b471ac314d8d6343f9f351e5fb9ef816168a8.tar.gz | |
ansiperl builds with Borland C++ again
p4raw-id: //depot/ansiperl@280
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -372,7 +372,7 @@ study_chunk(regnode **scanp, I32 *deltap, regnode *last, scan_data_t *data, U32 data->last_start_max = is_inf ? I32_MAX : data->pos_min + data->pos_delta; } - sv_catpvn(data->last_found, OPERAND(scan)+1, l); + sv_catpvn(data->last_found, (char *)(OPERAND(scan)+1), l); data->last_end = data->pos_min + l; data->pos_min += l; /* As in the first entry. */ data->flags &= ~SF_BEFORE_EOL; @@ -1673,7 +1673,7 @@ tryagain: ret = reg_node((regflags & PMf_FOLD) ? ((regflags & PMf_LOCALE) ? EXACTFL : EXACTF) : EXACT); - s = OPERAND(ret); + s = (char *) OPERAND(ret); regc(0, s++); /* save spot for len */ for (len = 0, p = regparse - 1; len < 127 && p < regxend; @@ -1841,7 +1841,7 @@ regclass(void) register I32 def; I32 numlen; - s = opnd = OPERAND(regcode); + s = opnd = (char *) OPERAND(regcode); ret = reg_node(ANYOF); for (Class = 0; Class < 33; Class++) regc(0, s++); @@ -2662,3 +2662,4 @@ re_croak2(const char* pat1,const char* pat2, va_alist) croak("%s", buf); } + |