[perl #133824] bleadperl v5.29.7-63-g2a614cdcff does not compile forme

# New Ticket Created by  (Andreas J. Koenig) 
# Please include the string:  [perl #133824]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=133824 >


cc -c -DPERL_CORE -D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2 -std=c89 -O2 -Wall -Werror=declaration-after-statement -Werror=pointer-arith -Wextra -Wc++-compat -Wwrite-strings op.c
In file included from perl.h:5332,
                 from miniperlmain.c:52:
miniperlmain.c: In function ‘main’:
miniperlmain.c:134:29: warning: cast between incompatible function types from ‘void (*)(int)’ to ‘void (*)(int,  siginfo_t *, void *)’ {aka ‘void (*)(int,  struct <anonymous> *, void *)’} [-Wcast-function-type]
      rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
                             ^
embed.h:643:44: note: in definition of macro ‘rsignal’
 #define rsignal(a,b)  Perl_rsignal(aTHX_ a,b)
                                            ^
echo @`sh  cflags "optimize='-O2'" opmini.o`  -DPERL_IS_MINIPERL -DPERL_EXTERNAL_GLOB opmini.c
@cc -c -DPERL_CORE -D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2 -std=c89 -O2 -Wall -Werror=declaration-after-statement -Werror=pointer-arith -Wextra -Wc++-compat -Wwrite-strings -DPERL_IS_MINIPERL -DPERL_EXTERNAL_GLOB opmini.c
op.c:3579:1: error: conflicting types for ‘S_traverse_op_tree’
 S_traverse_op_tree(OP *top, OP *o) {
 ^~~~~~~~~~~~~~~~~~
In file included from perl.h:5293,
                 from op.c:163:
proto.h:5118:12: note: previous declaration of ‘S_traverse_op_tree’ was here
 STATIC OP* S_traverse_op_tree(pTHX_ OP* top, OP* o);
            ^~~~~~~~~~~~~~~~~~
In file included from op.c:163:
op.c: In function ‘S_finalize_op’:
perl.h:175:16: warning: passing argument 1 of ‘S_traverse_op_tree’ from incompatible pointer type [-Wincompatible-pointer-types]
 #  define aTHX my_perl
                ^~~~~~~
perl.h:188:18: note: in expansion of macro ‘aTHX’
 #  define aTHX_  aTHX,
                  ^~~~
embed.h:1889:50: note: in expansion of macro ‘aTHX_’
 #define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)
                                                  ^~~~~
op.c:3775:20: note: in expansion of macro ‘traverse_op_tree’
     } while (( o = traverse_op_tree(top, o)) != NULL);
                    ^~~~~~~~~~~~~~~~
op.c:3579:24: note: expected ‘OP *’ {aka ‘struct op *’} but argument is of type ‘PerlInterpreter *’ {aka ‘struct interpreter *’}                              
 S_traverse_op_tree(OP *top, OP *o) {                              
                    ~~~~^~~                                        
In file included from perl.h:5332,                                 
                 from op.c:163:                                    
embed.h:1889:31: error: too many arguments to function ‘S_traverse_op_tree’
 #define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)       
                               ^~~~~~~~~~~~~~~~~~                  
embed.h:1889:31: note: in definition of macro ‘traverse_op_tree’   
 #define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)       
                               ^~~~~~~~~~~~~~~~~~                  
op.c:3579:1: note: declared here                                   
 S_traverse_op_tree(OP *top, OP *o) {                              
 ^~~~~~~~~~~~~~~~~~                                                
make: *** [makefile:249: op.o] Error 1                             
make: *** Waiting for unfinished jobs....                          
op.c:3579:1: error: conflicting types for ‘S_traverse_op_tree’     
 S_traverse_op_tree(OP *top, OP *o) {                              
 ^~~~~~~~~~~~~~~~~~                                                
In file included from perl.h:5293,                                 
                 from op.c:163:                                    
proto.h:5118:12: note: previous declaration of ‘S_traverse_op_tree’ was here
 STATIC OP* S_traverse_op_tree(pTHX_ OP* top, OP* o);              
            ^~~~~~~~~~~~~~~~~~                                     
In file included from op.c:163:                                    
op.c: In function ‘S_finalize_op’:                                 
perl.h:175:16: warning: passing argument 1 of ‘S_traverse_op_tree’ from incompatible pointer type [-Wincompatible-pointer-types]                              
 #  define aTHX my_perl                                            
                ^~~~~~~                                            
perl.h:188:18: note: in expansion of macro ‘aTHX’                  
 #  define aTHX_  aTHX,                                            
                  ^~~~                                             
embed.h:1889:50: note: in expansion of macro ‘aTHX_’               
 #define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)       
                                                  ^~~~~            
op.c:3775:20: note: in expansion of macro ‘traverse_op_tree’       
     } while (( o = traverse_op_tree(top, o)) != NULL);            
                    ^~~~~~~~~~~~~~~~                               
op.c:3579:24: note: expected ‘OP *’ {aka ‘struct op *’} but argument is of type ‘PerlInterpreter *’ {aka ‘struct interpreter *’}                              
 S_traverse_op_tree(OP *top, OP *o) {                              
                    ~~~~^~~                                        
In file included from perl.h:5332,                                 
                 from op.c:163:                                    
embed.h:1889:31: error: too many arguments to function ‘S_traverse_op_tree’
 #define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)       
                               ^~~~~~~~~~~~~~~~~~                  
embed.h:1889:31: note: in definition of macro ‘traverse_op_tree’   
 #define traverse_op_tree(a,b) S_traverse_op_tree(aTHX_ a,b)       
                               ^~~~~~~~~~~~~~~~~~                  
op.c:3579:1: note: declared here                                   
 S_traverse_op_tree(OP *top, OP *o) {                              
 ^~~~~~~~~~~~~~~~~~                                                
make: *** [makefile:303: opmini.o] Error 1                         

-- 
andreas

• [perl #133824] bleadperl v5.29.7-63-g2a614cdcff does not compile forme by Tony Cook via RT
• [perl #133824] bleadperl v5.29.7-63-g2a614cdcff does not compile forme by perlbug-followup