[Perl] Tk:Zinc

[Patrick Dupre]

Bonsoir,

J'essaie de compiler le package
Tk-Zinc-3.306.tar.gz

Je fais cpanspec
puis
rpmbuild -bb perl-Tk-Zinc.spec

Mais j'ai des erreurs de compilation

cp zinc-demos ../blib/script/zinc-demos
"/usr/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- ../blib/script/zinc-demos
Manifying 1 pod document
make[1]: Leaving directory '/home/pdupre/rpmbuild/BUILD/Tk-Zinc-3.306_PD/demos'
tkZinc.c: In function ‘InitRendering2’:
tkZinc.c:1086:25: warning: unused variable ‘gl_context’ [-Wunused-variable]
 1086 |   ZnGLContext           gl_context;
      |                         ^~~~~~~~~~
In file included from /usr/lib64/perl5/vendor_perl/Tk/pTk/Lang.h:19,
                 from /usr/lib64/perl5/vendor_perl/Tk/pTk/tkPort.h:24,
                 from /usr/lib64/perl5/vendor_perl/Tk/pTk/tk.h:87,
                 from Types.h:47,
                 from tkZinc.c:33:
tkZinc.c: In function ‘ZnTagSearchScan’:
tkZinc.c:2059:53: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 2059 |             entry = Tcl_FindHashEntry(wi->id_table, (char *) id);
      |                                                     ^
/usr/lib64/perl5/vendor_perl/Tk/pTk/tcl.h:1394:45: note: in definition of macro ‘Tcl_FindHashEntry’
 1394 |         (*((tablePtr)->findProc))(tablePtr, key)
      |                                             ^~~
tkZinc.c: In function ‘ZnTagSearchFirst’:
tkZinc.c:2261:55: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 2261 |       entry = Tcl_FindHashEntry(search->wi->id_table, (char *) search->id);
      |                                                       ^
/usr/lib64/perl5/vendor_perl/Tk/pTk/tcl.h:1394:45: note: in definition of macro ‘Tcl_FindHashEntry’
 1394 |         (*((tablePtr)->findProc))(tablePtr, key)
      |                                             ^~~
tkZinc.c: In function ‘ScrollFractions’:
tkZinc.c:2786:10: warning: unused variable ‘buffer’ [-Wunused-variable]
 2786 |   char   buffer[2*TCL_DOUBLE_SPACE+2];
      |          ^~~~~~
tkZinc.c: In function ‘UpdateScrollbars’:
tkZinc.c:2848:18: warning: unused variable ‘fractions’ [-Wunused-variable]
 2848 |   Tcl_Obj       *fractions;
      |                  ^~~~~~~~~
tkZinc.c: In function ‘WidgetObjCmd’:
tkZinc.c:4368:49: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 4368 |         entry = Tcl_FindHashEntry(wi->id_table, (char *) id);
      |                                                 ^
/usr/lib64/perl5/vendor_perl/Tk/pTk/tcl.h:1394:45: note: in definition of macro ‘Tcl_FindHashEntry’
 1394 |         (*((tablePtr)->findProc))(tablePtr, key)
      |                                             ^~~
tkZinc.c: In function ‘Configure’:
tkZinc.c:7006:49: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 7006 |         entry = Tcl_FindHashEntry(wi->id_table, (char *) wi->om_group_id);
      |                                                 ^
/usr/lib64/perl5/vendor_perl/Tk/pTk/tcl.h:1394:45: note: in definition of macro ‘Tcl_FindHashEntry’
 1394 |         (*((tablePtr)->findProc))(tablePtr, key)
      |                                             ^~~
tkZinc.c: In function ‘Event’:
tkZinc.c:7204:41: warning: pointer targets in passing argument 6 of ‘XlibVptr->V_XQueryTree’ differ in signedness [-Wpointer-sign]
 7204 |                              &children, &num_children);
      |                                         ^~~~~~~~~~~~~
      |                                         |
      |                                         int *
tkZinc.c:7204:41: note: expected ‘unsigned int *’ but argument is of type ‘int *’
tkZinc.c: In function ‘SelectTo’:
tkZinc.c:7907:38: warning: variable ‘old_field’ set but not used [-Wunused-but-set-variable]
 7907 |   int           old_first, old_last, old_field;
      |                                      ^~~~~~~~~
tkZinc.c: In function ‘InitZinc’:
tkZinc.c:8949:33: warning: pointer targets in passing argument 3 of ‘TkdeclsVptr->V_Tk_DefineBitmap’ differ in signedness [-Wpointer-sign]
 8949 |                     SYMBOLS_BITS[i], SYMBOL_WIDTH, SYMBOL_HEIGHT);
      |                     ~~~~~~~~~~~~^~~
      |                                 |
      |                                 unsigned char *
tkZinc.c:8949:33: note: expected ‘const char *’ but argument is of type ‘unsigned char *’
tkZinc.c:9002:59: error: passing argument 3 of ‘gluTessCallback’ from incompatible pointer type [-Wincompatible-pointer-types]
 9002 |   gluTessCallback(ZnTesselator.tess, GLU_TESS_BEGIN_DATA, ZnTessBegin);
      |                                                           ^~~~~~~~~~~
      |                                                           |
      |                                                           void (*)(GLenum,  void *) {aka void (*)(unsigned int,  void *)}
In file included from tkZinc.h:27,
                 from tkZinc.c:38:
/usr/include/GL/glu.h:336:87: note: expected ‘_GLUfuncptr’ {aka ‘void (*)(void)’} but argument is of type ‘void (*)(GLenum,  void *)’ {aka ‘void (*)(unsigned int,  void *)’}
  336 | GLAPI void GLAPIENTRY gluTessCallback (GLUtesselator* tess, GLenum which, _GLUfuncptr CallBackFunc);
      |                                                                           ~~~~~~~~~~~~^~~~~~~~~~~~
tkZinc.c:9003:60: error: passing argument 3 of ‘gluTessCallback’ from incompatible pointer type [-Wincompatible-pointer-types]
 9003 |   gluTessCallback(ZnTesselator.tess, GLU_TESS_VERTEX_DATA, ZnTessVertex);
      |                                                            ^~~~~~~~~~~~
      |                                                            |
      |                                                            void (*)(void *, void *)
/usr/include/GL/glu.h:336:87: note: expected ‘_GLUfuncptr’ {aka ‘void (*)(void)’} but argument is of type ‘void (*)(void *, void *)’



Parce que le code de respect las les bonnes pratique, mais je ne veux pas corriger le code source.

Est-ce qu'il y aurait un moyen d'enlever l'option
-Wincompatible-pointer-type
par exemple, en editant le Makefile.PL ?

Merci

===========================================================================
 Patrick DUPRÉ                                 | | email: pdupre at gmx.com
===========================================================================