On Sat Jun 11 12:17:21 2016, SREZIC wrote:
Show quoted text> Compilation fails with perl 5.25.1 --- this can probably fixed by
> using the new OpSIBLING ... macros from ppport.h:
>
> cc -c -I/home/cpansand/.cpan/build/2016061118/B-Hooks-OP-Check-0.19-
> Gd9kFd/blib/arch/B/Hooks/OP/Check/Install
> -I/home/cpansand/.cpan/build/2016061118/B-Hooks-OP-Check-
> EntersubForCV-0.09-
> ZImhVl/blib/arch/B/Hooks/OP/Check/EntersubForCV/Install
> -I/home/cpansand/.cpan/build/2016061118/B-Utils-0.27-
> IH0VHg/blib/arch/B/Utils/Install -DHAS_FPSETMASK
> -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector
> -I/usr/local/include -D_FORTIFY_SOURCE=2 -O2 -pipe
> -DVERSION=\"0.001003\" -DXS_VERSION=\"0.001003\" -DPIC -fPIC "-
> I/usr/perl5.25.1p/lib/5.25.1/amd64-freebsd/CORE" BeginLift.c
> BeginLift.xs:13:9: warning: 'LINKLIST' macro redefined
> #define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
> ^
> /usr/perl5.25.1p/lib/5.25.1/amd64-freebsd/CORE/op.h:623:9: note:
> previous definition is here
> #define LINKLIST(o) ((o)->op_next ? (o)->op_next :
> op_linklist((OP*)o))
> ^
> BeginLift.xs:27:16: error: no member named 'op_sibling' in 'struct op'
> if (kid->op_sibling) {
> ~~~ ^
> BeginLift.xs:28:33: error: no member named 'op_sibling' in 'struct op'
> kid->op_next = LINKLIST(kid->op_sibling);
> ~~~ ^
> BeginLift.xs:13:23: note: expanded from macro 'LINKLIST'
> #define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
> ^
> BeginLift.xs:28:33: error: no member named 'op_sibling' in 'struct op'
> kid->op_next = LINKLIST(kid->op_sibling);
> ~~~ ^
> BeginLift.xs:13:38: note: expanded from macro 'LINKLIST'
> #define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
> ^
> BeginLift.xs:28:33: error: no member named 'op_sibling' in 'struct op'
> kid->op_next = LINKLIST(kid->op_sibling);
> ~~~ ^
> BeginLift.xs:13:66: note: expanded from macro 'LINKLIST'
> #define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))
> ^
> BeginLift.xs:16:41: note: expanded from macro 'linklist'
> # define linklist(o) THX_linklist(aTHX_ o)
> ^
> BeginLift.xs:29:15: error: no member named 'op_sibling' in 'struct op'
> kid = kid->op_sibling;
> ~~~ ^
> BeginLift.xs:64:24: error: no member named 'op_sibling' in 'struct op'
> for ( arg = curop->op_sibling; arg->op_sibling; arg = arg-
> >op_sibling ) {
> ~~~~~ ^
> BeginLift.xs:64:41: error: no member named 'op_sibling' in 'struct op'
> for ( arg = curop->op_sibling; arg->op_sibling; arg = arg-
> >op_sibling ) {
> ~~~ ^
> BeginLift.xs:64:64: error: no member named 'op_sibling' in 'struct op'
> for ( arg = curop->op_sibling; arg->op_sibling; arg = arg-
> >op_sibling ) {
> ~~~ ^
> BeginLift.xs:99:12: error: no member named 'op_sibling' in 'struct op'
> new->op_sibling = NULL;
> ~~~ ^
> 1 warning and 9 errors generated.
> *** Error code 1
Still present when tested against perl-5.29.0:
#####
{
author => "FLORA",
dist => "Devel-BeginLift",
distname => "Devel-BeginLift-0.001003",
distversion => 0.001003,
grade => "FAIL",
prereqs => undef,
test_output => [
"Building and testing Devel-BeginLift-0.001003",
"cp lib/Devel/BeginLift.pm blib/lib/Devel/BeginLift.pm",
"Running Mkbootstrap for BeginLift ()",
"chmod 644 \"BeginLift.bs\"",
"\"/usr/home/jkeenan/var/atad/testing/perl-5.29.0/bin/perl\" \"-Iinc\" -MExtUtils::Command::MM -e 'cp_nonempty' -- BeginLift.bs blib/arch/auto/Devel/BeginLift/BeginLift.bs 644",
"\"/usr/home/jkeenan/var/atad/testing/perl-5.29.0/bin/perl\" \"-Iinc\" \"/home/jkeenan/var/atad/testing/perl-5.29.0/lib/5.29.0/ExtUtils/xsubpp\" -typemap '/home/jkeenan/var/atad/testing/perl-5.29.0/lib/5.29.0/ExtUtils/typemap' -typemap '/home/jkeenan/var/atad/testing/perl-5.29.0/lib/site_perl/5.29.0/amd64-freebsd-thread-multi/B/Utils/Install/typemap' BeginLift.xs > BeginLift.xsc",
"mv BeginLift.xsc BeginLift.c",
"cc -c -I/home/jkeenan/var/atad/testing/perl-5.29.0/lib/site_perl/5.29.0/amd64-freebsd-thread-multi/B/Hooks/OP/Check/Install -I/home/jkeenan/var/atad/testing/perl-5.29.0/lib/site_perl/5.29.0/amd64-freebsd-thread-multi/B/Hooks/OP/Check/EntersubForCV/Install -I/home/jkeenan/var/atad/testing/perl-5.29.0/lib/site_perl/5.29.0/amd64-freebsd-thread-multi/B/Utils/Install -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_FORTIFY_SOURCE=2 -O2 -pipe -fstack-protector -fno-strict-aliasing -DVERSION=\\\"0.001003\\\" -DXS_VERSION=\\\"0.001003\\\" -DPIC -fPIC \"-I/home/jkeenan/var/atad/testing/perl-5.29.0/lib/5.29.0/amd64-freebsd-thread-multi/CORE\" BeginLift.c",
"BeginLift.xs:13:9: warning: 'LINKLIST' macro redefined [-Wmacro-redefined]",
"#define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))",
" ^",
"/home/jkeenan/var/atad/testing/perl-5.29.0/lib/5.29.0/amd64-freebsd-thread-multi/CORE/op.h:652:9: note: previous definition is here",
"#define LINKLIST(o) ((o)->op_next ? (o)->op_next : op_linklist((OP*)o))",
" ^",
"BeginLift.xs:27:16: error: no member named 'op_sibling' in 'struct op'",
" if (kid->op_sibling) {",
" ~~~ ^",
"BeginLift.xs:28:33: error: no member named 'op_sibling' in 'struct op'",
" kid->op_next = LINKLIST(kid->op_sibling);",
" ~~~ ^",
"BeginLift.xs:13:23: note: expanded from macro 'LINKLIST'",
"#define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))",
" ^",
"BeginLift.xs:28:33: error: no member named 'op_sibling' in 'struct op'",
" kid->op_next = LINKLIST(kid->op_sibling);",
" ~~~ ^",
"BeginLift.xs:13:38: note: expanded from macro 'LINKLIST'",
"#define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))",
" ^",
"BeginLift.xs:28:33: error: no member named 'op_sibling' in 'struct op'",
" kid->op_next = LINKLIST(kid->op_sibling);",
" ~~~ ^",
"BeginLift.xs:13:66: note: expanded from macro 'LINKLIST'",
"#define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o))",
" ^",
"BeginLift.xs:16:41: note: expanded from macro 'linklist'",
"# define linklist(o) THX_linklist(aTHX_ o)",
" ^",
"BeginLift.xs:29:15: error: no member named 'op_sibling' in 'struct op'",
" kid = kid->op_sibling;",
" ~~~ ^",
"BeginLift.xs:64:24: error: no member named 'op_sibling' in 'struct op'",
" for ( arg = curop->op_sibling; arg->op_sibling; arg = arg->op_sibling ) {",
" ~~~~~ ^",
"BeginLift.xs:64:41: error: no member named 'op_sibling' in 'struct op'",
" for ( arg = curop->op_sibling; arg->op_sibling; arg = arg->op_sibling ) {",
" ~~~ ^",
"BeginLift.xs:64:64: error: no member named 'op_sibling' in 'struct op'",
" for ( arg = curop->op_sibling; arg->op_sibling; arg = arg->op_sibling ) {",
" ~~~ ^",
"BeginLift.xs:99:12: error: no member named 'op_sibling' in 'struct op'",
" new->op_sibling = NULL;",
" ~~~ ^",
"1 warning and 9 errors generated.",
"*** Error code 1",
"",
"Stop.",
"make: stopped in /usr/home/jkeenan/var/atad/testing/perl-5.29.0/.cpanm/work/1531833239.8970/Devel-BeginLift-0.001003",
"-> FAIL Installing Devel::BeginLift failed. See /home/jkeenan/var/atad/testing/perl-5.29.0/.cpanm/work/1531833239.8970/build.log for details. Retry with --force to force install it.",
],
via => "App::cpanminus::reporter 0.17 (1.7043)",
}
#####
