804.036 + master (f0bb386b): build fails

[kloczek]

gcc 14 glibc snapshot from Fedora rawhide.All build with -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS in $CFLAGS (this changes some warnings to eerors)

Build fails with

[tkloczko@pers-jacek Tk-804.036]$ make -k
cd pTk && make DEFINE="" LIBPERL_A="libperl.a" LINKTYPE="dynamic" OPTIMIZE="" PREFIX="/usr" PASTHRU_DEFINE=' ' PASTHRU_INC=' -I/usr/include/freetype2 '
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/pTk'
/usr/bin/gcc -c -I/usr/include/freetype2  -I..  -I/usr/include/freetype2 -I. -Ibitmaps  -I/usr/include/freetype2 -D_REENTRANT -D_GNU_SOURCE -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -O2 -g -grecord-gcc-switches -pipe -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -fdata-sections -ffunction-sections -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -flto=auto -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -Wall -Werror=format-security -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64    -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC "-I/usr/lib64/perl5/CORE"    tkEvent.c
tkEvent.c: In function ‘TkCurrentTime’:
tkEvent.c:1154:1: error: type of ‘fallbackCurrent’ defaults to ‘int’ [-Wimplicit-int]
 1154 | TkCurrentTime(dispPtr, fallbackCurrent)
      | ^~~~~~~~~~~~~
tkEvent.c: In function ‘Tk_QueueWindowEvent’:
tkEvent.c:1326:91: warning: pointer targets in passing argument 9 of ‘XQueryPointer’ differ in signedness [-Wpointer-sign]
 1326 |       if (!XQueryPointer(eventPtr->xany.display, root, &root, &child, &rx, &ry, &wx, &wy, &mask) || child == None)
      |                                                                                           ^~~~~
      |                                                                                           |
      |                                                                                           int *
In file included from tkUnixPort.h:91,
                 from tkPort.h:48,
                 from tkEvent.c:17:
/usr/include/X11/Xlib.h:3006:5: note: expected ‘unsigned int *’ but argument is of type ‘int *’
 3006 |     unsigned int*       /* mask_return */
      |     ^~~~~~~~~~~~~
make[1]: *** [Makefile:865: tkEvent.o] Error 1
/usr/bin/gcc -c -I/usr/include/freetype2  -I..  -I/usr/include/freetype2 -I. -Ibitmaps  -I/usr/include/freetype2 -D_REENTRANT -D_GNU_SOURCE -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -O2 -g -grecord-gcc-switches -pipe -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -fdata-sections -ffunction-sections -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -flto=auto -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -Wall -Werror=format-security -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64    -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC "-I/usr/lib64/perl5/CORE"    tkImage.c
tkImage.c: In function ‘TileImageChanged’:
tkImage.c:1080:1: error: type of ‘imgWidth’ defaults to ‘int’ [-Wimplicit-int]
 1080 | TileImageChanged(clientData, x, y, width, height, imgWidth, imgHeight)
      | ^~~~~~~~~~~~~~~~
tkImage.c:1080:1: error: type of ‘imgHeight’ defaults to ‘int’ [-Wimplicit-int]
make[1]: *** [Makefile:865: tkImage.o] Error 1
make[1]: Target 'makemakerdflt' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/pTk'
make: *** [Makefile:1627: pTk/libpTk.a] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/pTk'
/usr/bin/gcc -c -I/usr/include/freetype2  -I..  -I/usr/include/freetype2 -I. -Ibitmaps  -I/usr/include/freetype2 -D_REENTRANT -D_GNU_SOURCE -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -O2 -g -grecord-gcc-switches -pipe -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -fdata-sections -ffunction-sections -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -flto=auto -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -Wall -Werror=format-security -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64    -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC "-I/usr/lib64/perl5/CORE"    tkEvent.c
tkEvent.c: In function ‘TkCurrentTime’:
tkEvent.c:1154:1: error: type of ‘fallbackCurrent’ defaults to ‘int’ [-Wimplicit-int]
 1154 | TkCurrentTime(dispPtr, fallbackCurrent)
      | ^~~~~~~~~~~~~
tkEvent.c: In function ‘Tk_QueueWindowEvent’:
tkEvent.c:1326:91: warning: pointer targets in passing argument 9 of ‘XQueryPointer’ differ in signedness [-Wpointer-sign]
 1326 |       if (!XQueryPointer(eventPtr->xany.display, root, &root, &child, &rx, &ry, &wx, &wy, &mask) || child == None)
      |                                                                                           ^~~~~
      |                                                                                           |
      |                                                                                           int *
In file included from tkUnixPort.h:91,
                 from tkPort.h:48,
                 from tkEvent.c:17:
/usr/include/X11/Xlib.h:3006:5: note: expected ‘unsigned int *’ but argument is of type ‘int *’
 3006 |     unsigned int*       /* mask_return */
      |     ^~~~~~~~~~~~~
make[1]: *** [Makefile:865: tkEvent.o] Error 1
/usr/bin/gcc -c -I/usr/include/freetype2  -I..  -I/usr/include/freetype2 -I. -Ibitmaps  -I/usr/include/freetype2 -D_REENTRANT -D_GNU_SOURCE -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -O2 -g -grecord-gcc-switches -pipe -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -fdata-sections -ffunction-sections -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -flto=auto -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -Wall -Werror=format-security -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64    -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC "-I/usr/lib64/perl5/CORE"    tkImage.c
tkImage.c: In function ‘TileImageChanged’:
tkImage.c:1080:1: error: type of ‘imgWidth’ defaults to ‘int’ [-Wimplicit-int]
 1080 | TileImageChanged(clientData, x, y, width, height, imgWidth, imgHeight)
      | ^~~~~~~~~~~~~~~~
tkImage.c:1080:1: error: type of ‘imgHeight’ defaults to ‘int’ [-Wimplicit-int]
make[1]: *** [Makefile:865: tkImage.o] Error 1
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/pTk'
make: *** [Makefile:731: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/pod'
Manifying 50 pod documents
Manifying 51 pod documents
Manifying 2 pod documents
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/pod'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/demos'
Manifying 1 pod document
Manifying 2 pod documents
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/demos'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Xlib'
make[2]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Xlib/X'
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- X.bs ../../blib/arch/auto/Tk/X/X.bs 644
make[2]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Xlib/X'
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Xlib.bs ../blib/arch/auto/Tk/Xlib/Xlib.bs 644
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Xlib'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/WinPhoto'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- WinPhoto.bs ../blib/arch/auto/Tk/WinPhoto/WinPhoto.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/WinPhoto'
make: *** [Makefile:743: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Tixish'
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Tixish'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TixPixmap'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Pixmap.bs ../blib/arch/auto/Tk/Pixmap/Pixmap.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TixPixmap'
make: *** [Makefile:749: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TixGrid'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- TixGrid.bs ../blib/arch/auto/Tk/TixGrid/TixGrid.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TixGrid'
make: *** [Makefile:752: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TextList'
Manifying 1 pod document
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TextList'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Text'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Text.bs ../blib/arch/auto/Tk/Text/Text.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Text'
make: *** [Makefile:758: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TList'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- TList.bs ../blib/arch/auto/Tk/TList/TList.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/TList'
make: *** [Makefile:761: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Scrollbar'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Scrollbar.bs ../blib/arch/auto/Tk/Scrollbar/Scrollbar.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Scrollbar'
make: *** [Makefile:764: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Scale'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Scale.bs ../blib/arch/auto/Tk/Scale/Scale.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Scale'
make: *** [Makefile:767: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/NBFrame'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- NBFrame.bs ../blib/arch/auto/Tk/NBFrame/NBFrame.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/NBFrame'
make: *** [Makefile:770: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Mwm'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Mwm.bs ../blib/arch/auto/Tk/Mwm/Mwm.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Mwm'
make: *** [Makefile:773: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Menubutton'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Menubutton.bs ../blib/arch/auto/Tk/Menubutton/Menubutton.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Menubutton'
make: *** [Makefile:776: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Listbox'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Listbox.bs ../blib/arch/auto/Tk/Listbox/Listbox.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Listbox'
make: *** [Makefile:779: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/JPEG'
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- JPEG.bs ../blib/arch/auto/Tk/JPEG/JPEG.bs 644
Manifying 1 pod document
Manifying 1 pod document
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/JPEG'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/InputO'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- InputO.bs ../blib/arch/auto/Tk/InputO/InputO.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/InputO'
make: *** [Makefile:785: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/IO'
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- IO.bs ../blib/arch/auto/Tk/IO/IO.bs 644
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/IO'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/HList'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- HList.bs ../blib/arch/auto/Tk/HList/HList.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/HList'
make: *** [Makefile:791: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Event'
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Event.bs ../blib/arch/auto/Tk/Event/Event.bs 644
/usr/bin/gcc -c -I/usr/include/freetype2  -I..  -I/usr/include/freetype2 -D_REENTRANT -D_GNU_SOURCE -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -O2 -g -grecord-gcc-switches -pipe -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -fdata-sections -ffunction-sections -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -flto=auto -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -Wall -Werror=format-security -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64    -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC "-I/usr/lib64/perl5/CORE"    Event.c
Event.xs: In function ‘TkPerlIO_debug’:
Event.xs:654:6: warning: unused variable ‘ofd’ [-Wunused-variable]
  654 |  int ofd    = (op) ? PerlIO_fileno(op) : -1;
      |      ^~~
Event.xs:653:6: warning: unused variable ‘ifd’ [-Wunused-variable]
  653 |  int ifd    = (ip) ? PerlIO_fileno(ip) : -1;
      |      ^~~
Event.xs: In function ‘PerlIO_handler’:
Event.xs:926:9: warning: unused variable ‘len’ [-Wunused-variable]
  926 |  STRLEN len;
      |         ^~~
Event.xs: In function ‘XS_Tk__Callback_Call’:
Event.xs:1154:2: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
 1154 |  int wantarray = GIMME;
      |  ^~~
In file included from /usr/lib64/perl5/CORE/perl.h:6188,
                 from Event.xs:8:
/usr/lib64/perl5/CORE/proto.h:1019:1: note: declared here
 1019 | Perl_dowantarray(pTHX)
      | ^~~~~~~~~~~~~~~~
Event.xs:1171:2: warning: ‘Perl_dowantarray’ is deprecated [-Wdeprecated-declarations]
 1171 |  count = LangCallCallback(cb,GIMME|G_EVAL);
      |  ^~~~~
/usr/lib64/perl5/CORE/proto.h:1019:1: note: declared here
 1019 | Perl_dowantarray(pTHX)
      | ^~~~~~~~~~~~~~~~
Event.xs:1149:9: warning: unused variable ‘na’ [-Wunused-variable]
 1149 |  STRLEN na;
      |         ^~
In file included from Event.xs:9:
Event.xs: In function ‘XS_Tk__Event_INIT’:
/usr/lib64/perl5/CORE/XSUB.h:166:20: warning: unused variable ‘items’ [-Wunused-variable]
  166 | #define dITEMS I32 items = (I32)(SP - MARK)
      |                    ^~~~~
/usr/lib64/perl5/CORE/XSUB.h:169:23: note: in expansion of macro ‘dITEMS’
  169 |         dSP; dAXMARK; dITEMS
      |                       ^~~~~~
Event.xs:1235:2: note: in expansion of macro ‘dXSARGS’
 1235 |  dXSARGS;
      |  ^~~~~~~
Event.c: In function ‘XS_Tk__Event__Source_setup’:
Event.c:1892:17: warning: unused variable ‘flags’ [-Wunused-variable]
 1892 |         int     flags = (int)SvIV(ST(1))
      |                 ^~~~~
Event.c:1890:17: warning: unused variable ‘obj’ [-Wunused-variable]
 1890 |         SV *    obj = ST(0)
      |                 ^~~
Event.c: In function ‘XS_Tk__Event__Source_check’:
Event.c:1910:17: warning: unused variable ‘flags’ [-Wunused-variable]
 1910 |         int     flags = (int)SvIV(ST(1))
      |                 ^~~~~
Event.c:1908:17: warning: unused variable ‘obj’ [-Wunused-variable]
 1908 |         SV *    obj = ST(0)
      |                 ^~~
In file included from /usr/lib64/perl5/CORE/perl.h:6196:
Event.xs: In function ‘boot_Tk__Event’:
/usr/lib64/perl5/CORE/embedvar.h:61:49: error: initialization of ‘SV *’ {aka ‘struct sv *’} from incompatible pointer type ‘char *’ [-Wincompatible-pointer-types]
   61 | # define PL_curcop                              (vTHX->Icurcop)
      |                                                 ^
Event.xs:1535:18: note: in expansion of macro ‘PL_curcop’
 1535 |   SV *old_warn = PL_curcop->cop_warnings;
      |                  ^~~~~~~~~
Event.xs:1540:26: error: assignment to ‘char *’ from incompatible pointer type ‘SV *’ {aka ‘struct sv *’} [-Wincompatible-pointer-types]
 1540 |  PL_curcop->cop_warnings = old_warn;
      |                          ^
Event.xs: At top level:
Event.xs:1117:13: warning: ‘seen’ defined but not used [-Wunused-variable]
 1117 | static char seen[NSIG];
      |             ^~~~
Event.xs:1084:1: warning: ‘EventProc’ defined but not used [-Wunused-function]
 1084 | EventProc(evPtr, flags)
      | ^~~~~~~~~
make[1]: *** [Makefile:350: Event.o] Error 1
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Event'
make: *** [Makefile:794: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Entry'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Entry.bs ../blib/arch/auto/Tk/Entry/Entry.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Entry'
make: *** [Makefile:797: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/DragDrop'
Manifying 3 pod documents
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/DragDrop'
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Compound'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Compound.bs ../blib/arch/auto/Tk/Compound/Compound.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Compound'
make: *** [Makefile:803: subdirs] Error 2
make[1]: Entering directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Canvas'
make[1]: *** No rule to make target '../pTk/libpTk.a', needed by 'subdirs'.
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Canvas.bs ../blib/arch/auto/Tk/Canvas/Canvas.bs 644
make[1]: Target 'all' not remade because of errors.
make[1]: Leaving directory '/home/tkloczko/rpmbuild/BUILD/Tk-804.036/Canvas'
make: *** [Makefile:806: subdirs] Error 2
"/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- Tk.bs blib/arch/auto/Tk/Tk.bs 644
/usr/bin/gcc -c  -I/usr/include/freetype2 -D_REENTRANT -D_GNU_SOURCE -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -O2 -g -grecord-gcc-switches -pipe -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -fno-omit-frame-pointer -mno-omit-leaf-frame-pointer -fdata-sections -ffunction-sections -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -flto=auto -Wp,-U_FORTIFY_SOURCE,-D_FORTIFY_SOURCE=3 -Wp,-D_GLIBCXX_ASSERTIONS -Wall -Werror=format-security -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64    -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" -fPIC "-I/usr/lib64/perl5/CORE"    tkGlue.c
tkGlue.c:56:25: warning: "/*" within comment [-Wcomment]
   56 | /* #define DEBUG_REFCNT /* */
tkGlue.c: In function ‘LangNull’:
tkGlue.c:315:9: warning: unused variable ‘len’ [-Wunused-variable]
  315 |  STRLEN len = 0;
      |         ^~~
tkGlue.c: In function ‘InterpHv’:
tkGlue.c:524:11: warning: unused variable ‘na’ [-Wunused-variable]
  524 |    STRLEN na;
      |           ^~
tkGlue.c: In function ‘FindXv’:
tkGlue.c:490:24: warning: statement with no effect [-Wunused-value]
  490 | #define TagIt(sv,type) (sv)
      |                        ^
tkGlue.c:573:8: note: in expansion of macro ‘TagIt’
  573 |        TagIt(sv,key);
      |        ^~~~~
tkGlue.c: In function ‘Tcl_CallWhenDeleted’:
tkGlue.c:731:6: warning: unused variable ‘hv’ [-Wunused-variable]
  731 |  HV *hv = InterpHv(interp,1);
      |      ^~
In file included from tkGlue.c:9:
tkGlue.c: In function ‘XS_Tk__Interp_DESTROY’:
/usr/lib64/perl5/CORE/XSUB.h:166:20: warning: unused variable ‘items’ [-Wunused-variable]
  166 | #define dITEMS I32 items = (I32)(SP - MARK)
      |                    ^~~~~
/usr/lib64/perl5/CORE/XSUB.h:169:23: note: in expansion of macro ‘dITEMS’
  169 |         dSP; dAXMARK; dITEMS
      |                       ^~~~~~
tkGlue.c:739:2: note: in expansion of macro ‘dXSARGS’
  739 |  dXSARGS;
      |  ^~~~~~~
tkGlue.c: In function ‘Lang_DeadMainWindow’:
tkGlue.c:833:9: warning: unused variable ‘na’ [-Wunused-variable]
  833 |  STRLEN na;
      |         ^~
tkGlue.c: In function ‘TkGlue_mgFree’:
tkGlue.c:886:9: warning: unused variable ‘na’ [-Wunused-variable]
  886 |  STRLEN na;
      |         ^~
tkGlue.c: In function ‘LangFontObj’:
tkGlue.c:1453:14: warning: unused variable ‘tkwin’ [-Wunused-variable]
 1453 |    Tk_Window tkwin = Tk_MainWindow(interp);
      |              ^~~~~
tkGlue.c:1441:9: warning: unused variable ‘na’ [-Wunused-variable]
 1441 |  STRLEN na;
      |         ^~
tkGlue.c: In function ‘Font_DESTROY’:
tkGlue.c:1473:9: warning: unused variable ‘na’ [-Wunused-variable]
 1473 |  STRLEN na;
      |         ^~
tkGlue.c: In function ‘Tcl_AddErrorInfo’:
tkGlue.c:1505:8: warning: unused variable ‘sv’ [-Wunused-variable]
 1505 |    SV *sv;
      |        ^~
tkGlue.c: In function ‘PushObjCallbackArgs’:
tkGlue.c:1713:24: warning: unused variable ‘count’ [-Wunused-variable]
 1713 |                    int count = LangCallCallback(arg,G_ARRAY|G_EVAL);
      |                        ^~~~~
In file included from /usr/lib64/perl5/CORE/perl.h:6168,
                 from tkGlue.c:8:
tkGlue.c: In function ‘PushCallbackArgs’:
/usr/lib64/perl5/CORE/pp.h:91:30: warning: unused variable ‘sp’ [-Wunused-variable]
   91 | #define dSP             SV **sp = PL_stack_sp
      |                              ^~
tkGlue.c:1769:2: note: in expansion of macro ‘dSP’
 1769 |  dSP;
      |  ^~~
tkGlue.c: In function ‘Tcl_BackgroundError’:
tkGlue.c:2020:12: warning: statement with no effect [-Wunused-value]
 2020 |      TagIt((SV *) av, "Tcl_BackgroundError");
      |            ^
tkGlue.c:490:25: note: in definition of macro ‘TagIt’
  490 | #define TagIt(sv,type) (sv)
      |                         ^~
tkGlue.c: In function ‘Tk_CheckHash’:
tkGlue.c:2191:14: warning: unused variable ‘len’ [-Wunused-variable]
 2191 |          I32 len;
      |              ^~~
tkGlue.c:2163:7: warning: unused variable ‘svp’ [-Wunused-variable]
 2163 |  SV **svp;
      |       ^~~
tkGlue.c: In function ‘SelGetProc’:
tkGlue.c:2454:18: warning: unused variable ‘strType’ [-Wunused-variable]
 2454 |      const char *strType = Tk_GetAtomName(tkwin, type);
      |                  ^~~~~~~
tkGlue.c: In function ‘XSTkCommand’:
tkGlue.c:3015:9: warning: unused variable ‘na’ [-Wunused-variable]
 3015 |  STRLEN na;
      |         ^~
tkGlue.c: In function ‘XStoNoWindow’:
tkGlue.c:3069:7: warning: unused variable ‘x’ [-Wunused-variable]
 3069 |  SV **x  ;
      |       ^
tkGlue.c:3066:6: warning: variable ‘cm’ set but not used [-Wunused-but-set-variable]
 3066 |  HV *cm;
      |      ^~
tkGlue.c: In function ‘LangDeadWindow’:
tkGlue.c:3187:9: warning: unused variable ‘na’ [-Wunused-variable]
 3187 |  STRLEN na;
      |         ^~
tkGlue.c: In function ‘Lang_CreateWidget’:
tkGlue.c:3316:6: warning: unused variable ‘tmp’ [-Wunused-variable]
 3316 |  SV *tmp;
      |      ^~~
tkGlue.c: In function ‘Tcl_CreateObjCommand’:
tkGlue.c:3465:10: warning: unused variable ‘hv’ [-Wunused-variable]
 3465 |      HV *hv = InterpHv(interp,1);
      |          ^~
tkGlue.c:3409:10: warning: variable ‘kind’ set but not used [-Wunused-but-set-variable]
 3409 |    char *kind = "NULL";
      |          ^~~~
tkGlue.c:3408:8: warning: unused variable ‘cv’ [-Wunused-variable]
 3408 |    CV *cv;
      |        ^~
tkGlue.c: In function ‘Perl_Value’:
tkGlue.c:3698:8: warning: unused variable ‘result’ [-Wunused-variable]
 3698 |  char *result;
      |        ^~~~~~
tkGlue.c:3697:16: warning: unused variable ‘p’ [-Wunused-variable]
 3697 |  Tk_TraceInfo *p = INT2PTR(Tk_TraceInfo *, ix);
      |                ^
tkGlue.c: In function ‘Lang_TraceVar2’:
tkGlue.c:3878:19: warning: assignment discards ‘const’ qualifier from pointer target type [-Wdiscarded-qualifiers]
 3878 |    mg->mg_virtual = &PL_vtbl_uvar;
      |                   ^
tkGlue.c:3805:6: warning: unused variable ‘exiting’ [-Wunused-variable]
 3805 |  SV *exiting;
      |      ^~~~~~~
tkGlue.c: In function ‘LangClientMessage’:
/usr/lib64/perl5/CORE/pp.h:91:30: warning: unused variable ‘sp’ [-Wunused-variable]
   91 | #define dSP             SV **sp = PL_stack_sp
      |                              ^~
tkGlue.c:4602:6: note: in expansion of macro ‘dSP’
 4602 |      dSP;
      |      ^~~
tkGlue.c: In function ‘LangEventCallback’:
tkGlue.c:4679:8: warning: unused variable ‘code’ [-Wunused-variable]
 4679 |    int code;
      |        ^~~~
tkGlue.c: In function ‘handle_idle’:
tkGlue.c:4903:6: warning: unused variable ‘count’ [-Wunused-variable]
 4903 |  int count = 0;
      |      ^~~~~
/usr/lib64/perl5/CORE/pp.h:91:30: warning: unused variable ‘sp’ [-Wunused-variable]
   91 | #define dSP             SV **sp = PL_stack_sp
      |                              ^~
tkGlue.c:4902:2: note: in expansion of macro ‘dSP’
 4902 |  dSP;
      |  ^~~
In file included from /usr/lib64/perl5/CORE/perl.h:6227:
tkGlue.c: In function ‘XEvent_Info’:
tkGlue.c:5023:45: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 5023 |         sv_setref_pv(eventSv, "DisplayPtr", (void *) number);
      |                                             ^
/usr/lib64/perl5/CORE/embed.h:701:77: note: in definition of macro ‘sv_setref_pv’
  701 | # define sv_setref_pv(a,b,c)                    Perl_sv_setref_pv(aTHX_ a,b,c)
      |                                                                             ^
tkGlue.c: In function ‘Tcl_TranslateFileName’:
tkGlue.c:5103:5: warning: unused variable ‘count’ [-Wunused-variable]
 5103 |  IV count;
      |     ^~~~~
tkGlue.c: In function ‘do_comp’:
tkGlue.c:5262:46: error: macro "pregcomp" passed 3 arguments, but takes just 2
 5262 |  p->pat = pregcomp(string,string+len,p->flags);
      |                                              ^
/usr/lib64/perl5/CORE/embed.h:498:10: note: macro "pregcomp" defined here
  498 | # define pregcomp(a,b)                          Perl_pregcomp(aTHX_ a,b)
      |          ^~~~~~~~
tkGlue.c:5262:11: error: ‘pregcomp’ undeclared (first use in this function); did you mean ‘regcomp_t’?
 5262 |  p->pat = pregcomp(string,string+len,p->flags);
      |           ^~~~~~~~
      |           regcomp_t
tkGlue.c:5262:11: note: each undeclared identifier is reported only once for each function it appears in
tkGlue.c:5256:8: warning: unused variable ‘string’ [-Wunused-variable]
 5256 |  char *string = Tcl_GetStringFromObj(p->source,&len);
      |        ^~~~~~
tkGlue.c: In function ‘XS_Tk_INIT’:
/usr/lib64/perl5/CORE/XSUB.h:166:20: warning: unused variable ‘items’ [-Wunused-variable]
  166 | #define dITEMS I32 items = (I32)(SP - MARK)
      |                    ^~~~~
/usr/lib64/perl5/CORE/XSUB.h:169:23: note: in expansion of macro ‘dITEMS’
  169 |         dSP; dAXMARK; dITEMS
      |                       ^~~~~~
tkGlue.c:5532:2: note: in expansion of macro ‘dXSARGS’
 5532 |  dXSARGS;
      |  ^~~~~~~
In file included from /usr/lib64/perl5/CORE/perl.h:6196:
tkGlue.c: In function ‘Boot_Glue’:
/usr/lib64/perl5/CORE/embedvar.h:61:49: error: initialization of ‘STRLEN *’ {aka ‘long unsigned int *’} from incompatible pointer type ‘char *’ [-Wincompatible-pointer-types]
   61 | # define PL_curcop                              (vTHX->Icurcop)
      |                                                 ^
tkGlue.c:5552:31: note: in expansion of macro ‘PL_curcop’
 5552 |  COP_WARNINGS_TYPE old_warn = PL_curcop->cop_warnings;
      |                               ^~~~~~~~~
tkGlue.c:5560:26: error: assignment to ‘char *’ from incompatible pointer type ‘STRLEN *’ {aka ‘long unsigned int *’} [-Wincompatible-pointer-types]
 5560 |  PL_curcop->cop_warnings = old_warn;
      |                          ^
tkGlue.c:5545:6: warning: variable ‘cv’ set but not used [-Wunused-but-set-variable]
 5545 |  CV *cv;
      |      ^~
tkGlue.c:5543:8: warning: unused variable ‘XEventMethods’ [-Wunused-variable]
 5543 |  char *XEventMethods = "abcdfhkmopstvwxyABDEKNRSTWXY#";
      |        ^~~~~~~~~~~~~
/usr/lib64/perl5/CORE/pp.h:91:30: warning: unused variable ‘sp’ [-Wunused-variable]
   91 | #define dSP             SV **sp = PL_stack_sp
      |                              ^~
tkGlue.c:5541:2: note: in expansion of macro ‘dSP’
 5541 |  dSP;
      |  ^~~
tkGlue.c: At top level:
tkGlue.c:118:12: warning: ‘my_watch’ defined but not used [-Wunused-variable]
  118 | static SV *my_watch;
      |            ^~~~~~~~
tkGlue.c:117:12: warning: ‘ec’ defined but not used [-Wunused-variable]
  117 | static I32 ec = 0;
      |            ^~
make: *** [Makefile:484: tkGlue.o] Error 1
make: Target 'makemakerdflt' not remade because of errors.

[chrstphrchvz]

tkEvent.c: In function ‘TkCurrentTime’:
tkEvent.c:1154:1: error: type of ‘fallbackCurrent’ defaults to ‘int’ [-Wimplicit-int]
 1154 | TkCurrentTime(dispPtr, fallbackCurrent)
      | ^~~~~~~~~~~~~

tkImage.c: In function ‘TileImageChanged’:
tkImage.c:1080:1: error: type of ‘imgWidth’ defaults to ‘int’ [-Wimplicit-int]
 1080 | TileImageChanged(clientData, x, y, width, height, imgWidth, imgHeight)
      | ^~~~~~~~~~~~~~~~
tkImage.c:1080:1: error: type of ‘imgHeight’ defaults to ‘int’ [-Wimplicit-int]

#91 proposed a solution for these implicit int errors. I am not aware if someone has already proposed a solution for the remaining errors, though.

[chrstphrchvz]

tkGlue.c: In function ‘do_comp’:
tkGlue.c:5262:46: error: macro "pregcomp" passed 3 arguments, but takes just 2
 5262 |  p->pat = pregcomp(string,string+len,p->flags);
      |                                              ^
/usr/lib64/perl5/CORE/embed.h:498:10: note: macro "pregcomp" defined here
  498 | # define pregcomp(a,b)                          Perl_pregcomp(aTHX_ a,b)
      |          ^~~~~~~~
tkGlue.c:5262:11: error: ‘pregcomp’ undeclared (first use in this function); did you mean ‘regcomp_t’?
 5262 |  p->pat = pregcomp(string,string+len,p->flags);
      |           ^~~~~~~~
      |           regcomp_t

I think this error likely means that the pregcomp2.c configuration test unexpectedly failed.

[chrstphrchvz]

In file included from /usr/lib64/perl5/CORE/perl.h:6196:
Event.xs: In function ‘boot_Tk__Event’:
/usr/lib64/perl5/CORE/embedvar.h:61:49: error: initialization of ‘SV *’ {aka ‘struct sv *’} from incompatible pointer type ‘char *’ [-Wincompatible-pointer-types]
   61 | # define PL_curcop                              (vTHX->Icurcop)
      |                                                 ^
Event.xs:1535:18: note: in expansion of macro ‘PL_curcop’
 1535 |   SV *old_warn = PL_curcop->cop_warnings;
      |                  ^~~~~~~~~
Event.xs:1540:26: error: assignment to ‘char *’ from incompatible pointer type ‘SV *’ {aka ‘struct sv *’} [-Wincompatible-pointer-types]
 1540 |  PL_curcop->cop_warnings = old_warn;
      |                          ^

In file included from /usr/lib64/perl5/CORE/perl.h:6196:
tkGlue.c: In function ‘Boot_Glue’:
/usr/lib64/perl5/CORE/embedvar.h:61:49: error: initialization of ‘STRLEN *’ {aka ‘long unsigned int *’} from incompatible pointer type ‘char *’ [-Wincompatible-pointer-types]
   61 | # define PL_curcop                              (vTHX->Icurcop)
      |                                                 ^
tkGlue.c:5552:31: note: in expansion of macro ‘PL_curcop’
 5552 |  COP_WARNINGS_TYPE old_warn = PL_curcop->cop_warnings;
      |                               ^~~~~~~~~
tkGlue.c:5560:26: error: assignment to ‘char *’ from incompatible pointer type ‘STRLEN *’ {aka ‘long unsigned int *’} [-Wincompatible-pointer-types]
 5560 |  PL_curcop->cop_warnings = old_warn;
      |                          ^

These errors are due to Perl/perl5@f8552c1 (i.e. Perl 5.37.6) which changed PL_curcop->cop_warnings from type STRLEN * to char * (and Perl/Tk has dealt with how it was previously of type SV *). A workaround (applicable to any Perl5 version) could be to use void *old_warn instead.

[kloczek]

These errors are due to Perl/perl5@f8552c1 (i.e. Perl 5.37.6) which changed PL_curcop->cop_warnings from type STRLEN * to char * (and Perl/Tk has dealt with how it was previously of type SV *). A workaround (applicable to any Perl5 version) could be to use void *old_warn instead.

Just FTR: I found that issue on building perl-Tk in in build env with perl 5.38.2.

[chrstphrchvz]

I think this error likely means that the pregcomp2.c configuration test unexpectedly failed.

Compilers such as Apple Xcode clang 14.2 already emit this warning by default:

config/pregcomp2.c:7:13: warning: incompatible pointer types initializing 'regexp *' (aka 'struct regexp *') with an expression of type 'REGEXP *' (aka 'struct p5rx *') [-Wincompatible-pointer-types]
    regexp* rx = pregcomp(sv, 0);
            ^    ~~~~~~~~~~~~~~~

But as seen in #98 (comment) the reporter’s gcc 14 compiler considers this to be an error by default rather than a warning. So that is likely why the pregcomp2.c configuration test failed unexpectedly.

I believe a workaround would be to use void* rx instead of regexp* rx. There is already the regexp511.c configuration test to decide whether to use REGEXP * (Perl 5.11.0 and later) instead of regexp *, but that test is run after pregcomp2.c.