Bug #125591 for Tree-Binary-XS: can't compile

uname -a: Linux xxx 4.16.13-200.fc27.x86_64 perl -v : perl 5, version 26, subversion 2 (v5.26.2) built for x86_64-linux-thread-multi 42 registered patches Here are the errors: "/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- XS.bs blib/arch/auto/Tree/Binary/XS/XS.bs 644 "/usr/bin/perl" "/usr/share/perl5/vendor_perl/ExtUtils/xsubpp" -typemap '/usr/share/perl5/ExtUtils/typemap' XS.xs > XS.xsc Warning: Found a 'CODE' section which seems to be using 'RETVAL' but no 'OUTPUT' section. in XS.xs, line 706 Please specify prototyping behavior for XS.xs (see perlxs manual) mv XS.xsc XS.c gcc -c -I. -D_REENTRANT -D_GNU_SOURCE -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong --param=ssp-buffer-size=4 -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -g -DVERSION=\"0.03\" -DXS_VERSION=\"0.03\" -fPIC "-I/usr/lib64/perl5/CORE" -DENABLE_DEBUG XS.c In file included from XS.xs:3:0: XS.xs: In function ‘callback_value’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/embedvar.h:38:18: note: in expansion of macro ‘aTHX’ # define vTHX aTHX ^~~~ /usr/lib64/perl5/CORE/embedvar.h:296:23: note: in expansion of macro ‘vTHX’ #define PL_stack_sp (vTHX->Istack_sp) ^~~~ /usr/lib64/perl5/CORE/pp.h:81:24: note: in expansion of macro ‘PL_stack_sp’ #define dSP SV **sp = PL_stack_sp ^~~~~~~~~~~ XS.xs:151:5: note: in expansion of macro ‘dSP’ dSP; ^~~ /usr/lib64/perl5/CORE/perl.h:176:16: note: each undeclared identifier is reported only once for each function it appears in # define aTHX my_perl ^ /usr/lib64/perl5/CORE/embedvar.h:38:18: note: in expansion of macro ‘aTHX’ # define vTHX aTHX ^~~~ /usr/lib64/perl5/CORE/embedvar.h:296:23: note: in expansion of macro ‘vTHX’ #define PL_stack_sp (vTHX->Istack_sp) ^~~~ /usr/lib64/perl5/CORE/pp.h:81:24: note: in expansion of macro ‘PL_stack_sp’ #define dSP SV **sp = PL_stack_sp ^~~~~~~~~~~ XS.xs:151:5: note: in expansion of macro ‘dSP’ dSP; ^~~ XS.xs:149:9: warning: variable ‘ret’ set but not used [-Wunused-but-set-variable] int ret; ^~~ In file included from XS.xs:3:0: XS.xs: In function ‘btree_postorder_traverse’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/embed.h:405:42: note: in expansion of macro ‘aTHX_’ #define newRV_noinc(a) Perl_newRV_noinc(aTHX_ a) ^~~~~ XS.xs:178:41: note: in expansion of macro ‘newRV_noinc’ callback_value(node->key, (SV*) newRV_noinc((SV*) node->payload), callback); ^~~~~~~~~~~ XS.xs: In function ‘btree_inorder_traverse’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/embed.h:405:42: note: in expansion of macro ‘aTHX_’ #define newRV_noinc(a) Perl_newRV_noinc(aTHX_ a) ^~~~~ XS.xs:188:41: note: in expansion of macro ‘newRV_noinc’ callback_value(node->key, (SV*) newRV_noinc((SV*) node->payload), callback); ^~~~~~~~~~~ XS.xs: In function ‘btree_preorder_traverse’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/embed.h:405:42: note: in expansion of macro ‘aTHX_’ #define newRV_noinc(a) Perl_newRV_noinc(aTHX_ a) ^~~~~ XS.xs:198:41: note: in expansion of macro ‘newRV_noinc’ callback_value(node->key, (SV*) newRV_noinc((SV*) node->payload), callback); ^~~~~~~~~~~ XS.xs: In function ‘btree_update’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/sv.h:349:41: note: in expansion of macro ‘aTHX_’ #define SvREFCNT_dec(sv) S_SvREFCNT_dec(aTHX_ MUTABLE_SV(sv)) ^~~~~ XS.xs:222:13: note: in expansion of macro ‘SvREFCNT_dec’ SvREFCNT_dec(node->payload); ^~~~~~~~~~~~ XS.xs: In function ‘btree_dump’: XS.xs:304:52: warning: passing argument 1 of ‘Perl_sv_peek’ from incompatible pointer type [-Wincompatible-pointer-types] fprintf(stderr, ", hash: %s", Perl_sv_peek((SV*) node->payload) ); ^ In file included from /usr/lib64/perl5/CORE/perl.h:5609:0, from XS.xs:3: /usr/lib64/perl5/CORE/proto.h:3213:21: note: expected ‘PerlInterpreter * {aka struct interpreter *}’ but argument is of type ‘SV * {aka struct sv *}’ PERL_CALLCONV char* Perl_sv_peek(pTHX_ SV* sv); ^~~~~~~~~~~~ XS.xs:304:39: error: too few arguments to function ‘Perl_sv_peek’ fprintf(stderr, ", hash: %s", Perl_sv_peek((SV*) node->payload) ); ^~~~~~~~~~~~ In file included from /usr/lib64/perl5/CORE/perl.h:5609:0, from XS.xs:3: /usr/lib64/perl5/CORE/proto.h:3213:21: note: declared here PERL_CALLCONV char* Perl_sv_peek(pTHX_ SV* sv); ^~~~~~~~~~~~ In file included from XS.xs:3:0: XS.xs: In function ‘hv_fetch_key_must’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/embed.h:228:63: note: in expansion of macro ‘aTHX_’ #define hv_common_key_len(a,b,c,d,e,f) Perl_hv_common_key_len(aTHX_ a,b,c,d,e,f) ^~~~~ /usr/lib64/perl5/CORE/hv.h:488:13: note: in expansion of macro ‘hv_common_key_len’ ((SV**) hv_common_key_len((hv), (key), (klen), (lval) \ ^~~~~~~~~~~~~~~~~ XS.xs:331:16: note: in expansion of macro ‘hv_fetch’ SV** ret = hv_fetch(hash, field, field_len, FALSE); ^~~~~~~~ In file included from /usr/lib64/perl5/CORE/perl.h:2698:0, from XS.xs:3: XS.xs: In function ‘get_options_key_field’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/handy.h:111:24: note: in definition of macro ‘cBOOL’ #define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0) ^~~~~ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/embed.h:228:63: note: in expansion of macro ‘aTHX_’ #define hv_common_key_len(a,b,c,d,e,f) Perl_hv_common_key_len(aTHX_ a,b,c,d,e,f) ^~~~~ /usr/lib64/perl5/CORE/hv.h:485:11: note: in expansion of macro ‘hv_common_key_len’ cBOOL(hv_common_key_len((hv), (key), (klen), HV_FETCH_ISEXISTS, NULL, 0)) ^~~~~~~~~~~~~~~~~ XS.xs:345:10: note: in expansion of macro ‘hv_exists’ if (!hv_exists(options, "by_key", sizeof("by_key") - 1)) { ^~~~~~~~~ In file included from /usr/lib64/perl5/CORE/perl.h:2698:0, from XS.xs:3: XS.xs: In function ‘btree_pad_insert_av_nodes_by_key_field’: /usr/lib64/perl5/CORE/perl.h:176:16: error: ‘my_perl’ undeclared (first use in this function); did you mean ‘my_fork’? # define aTHX my_perl ^ /usr/lib64/perl5/CORE/handy.h:64:41: note: in definition of macro ‘MUTABLE_PTR’ # define MUTABLE_PTR(p) ({ void *_p = (p); _p; }) ^ /usr/lib64/perl5/CORE/av.h:103:17: note: in expansion of macro ‘MUTABLE_AV’ #define newAV() MUTABLE_AV(newSV_type(SVt_PVAV)) ^~~~~~~~~~ /usr/lib64/perl5/CORE/perl.h:189:18: note: in expansion of macro ‘aTHX’ # define aTHX_ aTHX, ^~~~ /usr/lib64/perl5/CORE/embed.h:411:40: note: in expansion of macro ‘aTHX_’ #define newSV_type(a) Perl_newSV_type(aTHX_ a) ^~~~~ /usr/lib64/perl5/CORE/av.h:103:28: note: in expansion of macro ‘newSV_type’ #define newAV() MUTABLE_AV(newSV_type(SVt_PVAV)) ^~~~~~~~~~ XS.xs:386:22: note: in expansion of macro ‘newAV’ AV * av_result = newAV(); ^~~~~ XS.c: In function ‘XS_Tree__Binary__XS_delete’: XS.c:631:7: warning: unused variable ‘RETVAL’ [-Wunused-variable] SV * RETVAL; ^~~~~~ XS.c: In function ‘XS_Tree__Binary__XS_update’: XS.c:733:7: warning: unused variable ‘RETVAL’ [-Wunused-variable] SV * RETVAL; ^~~~~~ XS.c: In function ‘XS_Tree__Binary__XS_exists’: XS.c:861:7: warning: unused variable ‘RETVAL’ [-Wunused-variable] SV * RETVAL; ^~~~~~ XS.xs: In function ‘XS_Tree__Binary__XS_insert’: XS.xs:684:18: warning: unused variable ‘result’ [-Wunused-variable] AV * result = btree_pad_insert_av_nodes_by_key_field(pad, key_field, strlen(key_field), (AV*) SvRV(ST(1))); ^~~~~~ XS.c:940:7: warning: unused variable ‘RETVAL’ [-Wunused-variable] SV * RETVAL; ^~~~~~ XS.xs: In function ‘hv_fetch_key_must’: XS.xs:339:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ make: *** [Makefile:334: XS.o] Error 1