develooper Front page | perl.perl5.porters | Postings from September 2013

Re: [perl.git] branch blead, updated. v5.19.3-422-gccbcc28

Thread Previous
From:
Steve Hay
Date:
September 10, 2013 20:08
Subject:
Re: [perl.git] branch blead, updated. v5.19.3-422-gccbcc28
Message ID:
CADED=K40v_U6bwb_kKh2nVJ_AafQ27H2bQZa3S-O7f0mvP_UwQ@mail.gmail.com
On 10 September 2013 20:56, Karl Williamson <public@khwilliamson.com> wrote:

> On 09/10/2013 01:43 PM, Nicholas Clark wrote:
>
>> On Tue, Sep 10, 2013 at 05:37:23PM +0200, Father Chrysostomos wrote:
>>
>>  commit 4cabb89a737018190d4e09360a6615**e19160709f
>>> Author: Brian Fraser <fraserbn@gmail.com>
>>> Date:   Fri Aug 30 13:10:16 2013 -0300
>>>
>>>      t/re/reg_mesg.t: Tests for latin1 error messages/warnings
>>>
>>> M       t/re/reg_mesg.t
>>>
>>
>>
> Also, the series of commits doesn't compile on Win32
>

Indeed. I've just run into this myself. It starts complaining about line
8651 of regcomp.c:

..\regcomp.c(8651) : warning C4003: not enough actual parameters for macro
'Simple_vFAIL4'
..\regcomp.c(8651) : error C2059: syntax error : ','

That line is:

                vFAIL2utf8f("Sequence (%"UTF8f"...) not recognized",
                      UTF8fARG(UTF, RExC_parse-seqstart, seqstart));

which the preprocessor expands to:

                do { if (!((pRExC_state->emit) ==
&(pRExC_state->emit_dummy))) Perl_save_pushptr( (void *)(((SV *)((void *)
((pRExC_state->rx_sv))))),11); do { const IV offset = (pRExC_state->parse)
- (pRExC_state->precomp); S_re_croak2( (((pRExC_state->utf8)) ? (char)1 :
(char)0), "Sequence (%""d%""lu""%4p""...) not recognized", " in regex;
marked by " "<-- HERE" " in m/%""d%""lu""%4p" " <-- HERE "
"%""d%""lu""%4p""/", (int)(((((pRExC_state->utf8)) ? (char)1 : (char)0)) ?
(char)1 : (char)0), (UV)((pRExC_state->parse)-seqstart), (void*)(seqstart),
, , (int)(((((pRExC_state->utf8)) ? (char)1 : (char)0)) ? (char)1 :
(char)0), (UV)(offset), (void*)((pRExC_state->precomp)),
(int)(((((pRExC_state->utf8)) ? (char)1 : (char)0)) ? (char)1 : (char)0),
(UV)((pRExC_state->end) - (pRExC_state->precomp) - offset),
(void*)((pRExC_state->precomp) + offset)); } while (0); } while (0);

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About