diff --git a/embed.fnc b/embed.fnc index 56108ff70965..10b3a337f28d 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2177,7 +2177,7 @@ ARdp |OP * |newLISTOP |I32 type \ |I32 flags \ |NULLOK OP *first \ |NULLOK OP *last -AFRdp |OP * |newLISTOPn |I32 type \ +AFRdpv |OP * |newLISTOPn |I32 type \ |I32 flags \ |... ARdp |OP * |newLOGOP |I32 optype \ diff --git a/embed.h b/embed.h index 2aa45c6d2c80..2f2372350dbc 100644 --- a/embed.h +++ b/embed.h @@ -403,6 +403,7 @@ # define newHVREF(a) Perl_newHVREF(aTHX_ a) # define newHVhv(a) Perl_newHVhv(aTHX_ a) # define newLISTOP(a,b,c,d) Perl_newLISTOP(aTHX_ a,b,c,d) +# define newLISTOPn(a,...) Perl_newLISTOPn(aTHX_ a,__VA_ARGS__) # define newLOGOP(a,b,c,d) Perl_newLOGOP(aTHX_ a,b,c,d) # define newLOOPEX(a,b) Perl_newLOOPEX(aTHX_ a,b) # define newLOOPOP(a,b,c,d) Perl_newLOOPOP(aTHX_ a,b,c,d) @@ -852,7 +853,6 @@ # define form(...) Perl_form(aTHX_ __VA_ARGS__) # define load_module(a,b,...) Perl_load_module(aTHX_ a,b,__VA_ARGS__) # define mess(...) Perl_mess(aTHX_ __VA_ARGS__) -# define newLISTOPn(a,...) Perl_newLISTOPn(aTHX_ a,__VA_ARGS__) # define newSVpvf(...) Perl_newSVpvf(aTHX_ __VA_ARGS__) # define sv_catpvf(a,...) Perl_sv_catpvf(aTHX_ a,__VA_ARGS__) # define sv_catpvf_mg(a,...) Perl_sv_catpvf_mg(aTHX_ a,__VA_ARGS__)