Open zhenghto opened 10 months ago
In file included from ../pTk/mTk/xlib/X11/Xlib.h:31, from tkWinPort.h:19, from tkPort.h:32, from tk.h:87, from imgBMP.c:11: ../pTk/mTk/xlib/X11/X.h:182:34: error: expected identifier or '(' before numeric constant 182 | #define ControlMask (1<<2) | ^ gmake[1]: *** [makefile:891: imgBMP.o] Error 1
This is a duplicate of #87.
I followed the suggest, change the macro 'ControlMask' to 'ControlMask2'. But more errors gived, i have to use 804.035 under windows10.x64.strawberry-perl-5.36.1, but get same error as above.
Code incompaible with mingw32-x64 v13.1?
Can do some fix alter new year of 2024, thanks very much. Have a nice holiday.
Tk is great gui framework, mostly only solution in Perl.
more detailed of error as follow(i pulled the tk code from github,not metacpan,and i change version to 804.037): [Uploading windows10.strawberry-perl-5.36.1.Tk-804.036.failed.build1.log…]()
cpanm (App::cpanminus) 1.7046 on perl 5.036001 built for MSWin32-x64-multi-thread
Work directory is C:\Users\ADMINI~1/.cpanm/work/1703746205.5112
You have make C:\Strawberry\c\bin\gmake.exe
You have LWP 6.71
Falling back to Archive::Tar 3.02
--> Working on perl-tk-804.037.tar.gz
Fetching file://D:\perl-tk-804.037.tar.gz
-> OK
Unpacking perl-tk-804.037.tar.gz
Entering perl-tk-804.037
Configuring perl-tk-804.037
Running Makefile.PL
PPM for perl5.036001
Test Compiling config/perlrx.c
C:\Strawberry\perl\bin\perl.exe is installed in C:\STRAWB~1\perl\lib okay
Test Compiling config/pmop.c
config/pmop.c: In function 'main':
config/pmop.c:7:8: error: 'struct pmop' has no member named 'op_pmdynflags'; did you mean 'op_pmflags'?
7 | op.op_pmdynflags = 0;
| ^~~~~
| op_pmflags
config/pmop.c:8:8: error: 'struct pmop' has no member named 'op_pmpermflags'; did you mean 'op_pmflags'?
8 | op.op_pmpermflags = 0;
| ^~~~~~
| op_pmflags
Test Compiling config/pregcomp2.c
In file included from C:\STRAWB~1\perl\lib/CORE/perl.h:5837,
from config/pregcomp2.c:2:
config/pregcomp2.c: In function 'main':
C:\STRAWB~1\perl\lib/CORE/embed.h:464:33: warning: initialization of 'regexp ' from incompatible pointer type 'REGEXP ' {aka 'struct p5rx '} [-Wincompatible-pointer-types]
464 | #define pregcomp(a,b) Perlpregcomp(aTHX a,b)
| ^~~~~
config/pregcomp2.c:7:18: note: in expansion of macro 'pregcomp'
7 | regexp rx = pregcomp(sv, 0);
| ^~~~
Test Compiling config/regexp511.c
Test Compiling config/signedchar.c
config/signedchar.c:1:1: warning: return type defaults to 'int' [-Wimplicit-int]
1 | main()
| ^~~~
Test Compiling config/Ksprintf.c
Test Compiling config/svtrv.c
config/svtrv.c: In function 'main':
config/svtrv.c:9:5: error: duplicate case value
9 | case SVt_IV:
| ^~~~
config/svtrv.c:8:5: note: previously used here
8 | case SVt_RV:
| ^~~~
Test Compiling config/copstashset.c
Writing Tk/Config.pm
Writing pTk/tkConfig.h
Skip InputO on MSWin32
Skip Mwm on MSWin32
Skip WinPhoto on MSWin32
Checking if your kit is complete...
Looks good
Generating Dependencies for MSWin32, win_arch=MSWin32
Test Compiling config/Hstrtoul.c
config/Hstrtoul.c: In function 'main':
config/Hstrtoul.c:6:26: warning: implicit declaration of function 'strcmp' [-Wimplicit-function-declaration]
6 | if (v != 0xDEADFACEL || strcmp(e,"gibberish"))
| ^~
config/Hstrtoul.c:2:1: note: include '~~~
tclHash.c:537:18: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
537 | index = ((unsigned int) entryPtr->hash) & tablePtr->mask;
| ^
tclHash.c: In function 'RebuildTable':
tclHash.c:43:9: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
43 | (((((long) (i))*1103515245) >> (tablePtr)->downShift) & (tablePtr)->mask)
| ^
tclHash.c:1169:25: note: in expansion of macro 'RANDOM_INDEX'
1169 | index = RANDOM_INDEX (tablePtr, hPtr->hash);
| ^~~~
tclHash.c:1171:26: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
1171 | index = ((unsigned int) hPtr->hash) & tablePtr->mask;
| ^
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tclNotify.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tclPreserve.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tclTimer.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tclWinNotify.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tclWinTime.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixCompat.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixDItem.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixDiITxt.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixDiImg.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixDiStyle.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixDiText.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixDiWin.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixError.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixForm.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixFormMisc.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrData.c
In file included from Lang.h:19,
from tkPort.h:24,
from tixPort.h:21,
from tixGrData.c:16:
tixGrData.c: In function 'TixGridDataFindEntry':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:133:59: note: in expansion of macro 'FIX'
133 | if (!(hashPtr = Tcl_FindHashEntry(&dataSet->index[0], FIX(x)))) {
| ^~~
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:138:59: note: in expansion of macro 'FIX'
138 | if (!(hashPtr = Tcl_FindHashEntry(&dataSet->index[1], FIX(y)))) {
| ^~~
tixGrData.c: In function 'FindRowCol':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:179:57: note: in expansion of macro 'FIX'
179 | hashPtrs[0] = Tcl_FindHashEntry(&dataSet->index[0], FIX(x));
| ^~~
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:186:57: note: in expansion of macro 'FIX'
186 | hashPtrs[1] = Tcl_FindHashEntry(&dataSet->index[1], FIX(y));
| ^~~
tixGrData.c: In function 'TixGridDataCreateEntry':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
tixGrData.c:225:13: note: in expansion of macro 'FIX'
225 | FIX(dispIndex[i]), &isNew);
| ^~~
tixGrData.c: In function 'TixGridDataUpdateSort':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:332:66: note: in expansion of macro 'FIX'
332 | if (!(hashPtr = Tcl_FindHashEntry(&dataSet->index[axis], FIX(i)))) {
| ^~~
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
tixGrData.c:348:66: note: in expansion of macro 'FIX'
348 | hashPtr = Tcl_CreateHashEntry(&dataSet->index[axis], FIX(i),
| ^~~
tixGrData.c: In function 'TixGridDataGetRowColSize':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:425:63: note: in expansion of macro 'FIX'
425 | if (!(hashPtr = Tcl_FindHashEntry(&dataSet->index[which], FIX(index)))) {
| ^~~
tixGrData.c: In function 'TixGridDataConfigRowColSize':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
tixGrData.c:545:59: note: in expansion of macro 'FIX'
545 | hashPtr = Tcl_CreateHashEntry(&dataSet->index[which], FIX(index), &isNew);
| ^~~
tixGrData.c: In function 'TixGridDataDeleteRange':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:769:61: note: in expansion of macro 'FIX'
769 | hashPtr = Tcl_FindHashEntry(&dataSet->index[which], FIX(i));
| ^~~
tixGrData.c: In function 'TixGridDataMoveRange':
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tixGrData.c:903:61: note: in expansion of macro 'FIX'
903 | hashPtr = Tcl_FindHashEntry(&dataSet->index[which], FIX(i));
| ^~~
tixGrData.c:23:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
23 | #define FIX(X) ((char)(unsigned long)(unsigned int)(X))
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
tixGrData.c:908:67: note: in expansion of macro 'FIX'
908 | hashPtr = Tcl_CreateHashEntry(&dataSet->index[which], FIX(i+by),
| ^~~
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrFmt.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrRC.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrSel.c
In function 'Tix_GrMergeSelection',
inlined from 'Tix_GrSelModify' at tixGrSel.c:377:2:
tixGrSel.c:233:5: warning: 'Tix_GrAddChangedRect' accessing 16 bytes in a region of size 8 [-Wstringop-overflow=]
233 | Tix_GrAddChangedRect(wPtr, sbPtr->range, 0);
| ^~~~~~~~~~~
tixGrSel.c:233:5: note: referencing argument 2 of type 'int[2][2]'
In file included from tixGrSel.c:19:
tixGrid.h: In function 'Tix_GrSelModify':
tixGrid.h:388:25: note: in a call to function 'Tix_GrAddChangedRect'
388 | EXTERN void Tix_GrAddChangedRect _ANSIARGS((
| ^~~~~~~~
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrSort.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrUtl.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixGrid.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixHLCol.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixHLHdr.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixHLInd.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixHList.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixImgCmp.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixImgXpm.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixImgXpm_f.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixInputO.c
tixInputO.c: In function 'Tix_MakeInputOnlyWindowExist':
tixInputO.c:144:22: warning: implicit declaration of function 'XCreateWindow'; did you mean 'CreateWindow'? [-Wimplicit-function-declaration]
144 | winPtr->window = XCreateWindow(winPtr->display,
| ^~~~~
| CreateWindow
In file included from Lang.h:19,
from tkPort.h:24,
from tk.h:87,
from tkInt.h:21,
from tixInputO.c:17:
tixInputO.c:156:9: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
156 | (char ) winPtr->window, &new);
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixInt_f.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixList.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixNBFrame.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixScroll.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixSmpLs.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixTList.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixUtils.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixVars.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixWinDraw.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tixWinXpm.c
tixWinXpm.c: In function 'TixpXpmRealizePixmap':
tixWinXpm.c:191:1: warning: type of 'isTransp' defaults to 'int' [-Wimplicit-int]
191 | TixpXpmRealizePixmap(masterPtr, instancePtr, image, mask, isTransp)
| ^~~~~~~~
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tix_f.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tk3d.c
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tkAtom.c
In file included from Lang.h:19,
from tkPort.h:24,
from tkAtom.c:19:
tkAtom.c: In function 'Tk_InternAtom':
tcl.h:1373:55: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
1373 | #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
| ^
tkAtom.c:100:9: note: in expansion of macro 'Tcl_SetHashValue'
100 | Tcl_SetHashValue(hPtr, atom);
| ^~~~
tkAtom.c:101:58: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
101 | hPtr2 = Tcl_CreateHashEntry(&dispPtr->atomTable, (char ) atom,
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
tkAtom.c:105:12: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
105 | return (Atom) Tcl_GetHashValue(hPtr);
| ^
tkAtom.c: In function 'Tk_GetAtomName':
tkAtom.c:145:51: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
145 | hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char ) atom);
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tcl.h:1373:55: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
1373 | #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
| ^
tkAtom.c:162:9: note: in expansion of macro 'Tcl_SetHashValue'
162 | Tcl_SetHashValue(hPtr, atom);
| ^~~~
tkAtom.c:167:57: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
167 | hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char ) atom,
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
tkAtom.c: In function 'AtomInit':
tkAtom.c:202:55: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
202 | hPtr = Tcl_FindHashEntry(&dispPtr->atomTable, (char ) atom);
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (((tablePtr)->findProc))(tablePtr, key)
| ^~~
tcl.h:1373:55: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
1373 | #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
| ^
tkAtom.c:210:13: note: in expansion of macro 'Tcl_SetHashValue'
210 | Tcl_SetHashValue(hPtr, atom);
| ^~~~
tkAtom.c:212:61: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
212 | hPtr = Tcl_CreateHashEntry(&dispPtr->atomTable, (char ) atom,
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
gcc -c -I. -I./pTk/mTk/xlib -I.. -I.. -I../pTk/mTk/xlib -I. -Ibitmaps -I.. -I../pTk/mTk/xlib -DWIN32 -DWIN64 -DPERL_TEXTMODE_SCRIPTS -DMULTIPLICITY -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DUSE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing -mms-bitfields -DPERLDLL -Os -DVERSION=\"804.036\" -DXS_VERSION=\"804.036\" "-IC:\STRAWB~1\perl\lib\CORE" tkBind.c
tkBind.c:424:25: error: 'ControlMask' undeclared here (not in a function); did you mean 'ControlMask2'?
424 | {"Control", ControlMask, 0},
| ^~~
| ControlMask2
In file included from Lang.h:19,
from tkPort.h:24,
from tkBind.c:17:
tkBind.c: In function 'TkBindInit':
tcl.h:1373:55: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
1373 | #define Tcl_SetHashValue(h, value) ((h)->clientData = (ClientData) (value))
| ^
tkBind.c:818:17: note: in expansion of macro 'Tcl_SetHashValue'
818 | Tcl_SetHashValue(hPtr, kPtr->value);
| ^~~~
tkBind.c:819:56: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
819 | hPtr = Tcl_CreateHashEntry(&nameTable, (char ) kPtr->value,
| ^
tcl.h:1396:47: note: in definition of macro 'Tcl_CreateHashEntry'
1396 | (((tablePtr)->createProc))(tablePtr, key, newPtr)
| ^~~
In file included from tkWinPort.h:19,
from tkPort.h:32:
tkBind.c: In function 'Tk_EventInfo':
tkBind.c:3041:33: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
3041 | string = DisplayString((Display ) number);
| ^
../pTk/mTk/xlib/X11/Xlib.h:101:35: note: in definition of macro 'DisplayString'
101 | #define DisplayString(dpy) ((dpy)->display_name)
| ^~~
tkBind.c: In function 'TkStringToKeysym':
tkBind.c:5071:16: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
5071 | return (KeySym) Tcl_GetHashValue(hPtr);
| ^
tkBind.c: In function 'TkKeysymToString':
tkBind.c:5108:42: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
5108 | hPtr = Tcl_FindHashEntry(&nameTable, (char )keysym);
| ^
tcl.h:1394:45: note: in definition of macro 'Tcl_FindHashEntry'
1394 | (*((tablePtr)->findProc))(tablePtr, key)
| ^~~
gmake[1]: [makefile:891: tkBind.o] Error 1
gmake[1]: Leaving directory 'C:/Users/ADMINI~1/.cpanm/work/1703746205.5112/perl-tk-804.037/pTk'
gmake: [makefile:1634: pTk/libpTk.a] Error 2
-> FAIL Installing perl-tk-804.037.tar.gz failed. See C:\Users\ADMINI~1.cpanm\work\1703746205.5112\build.log for details. Retry with --force to force install it.
I followed the suggest, change the macro 'ControlMask' to 'ControlMask2
Please see https://github.com/eserte/perl-tk/pull/89#issuecomment-1793757141 instead for the likely accepted solution.
You may also want to look at #92
Hi,Guys:Thanks for help,thanks
I failed for compile Tk-804.036 on windows 10 x64 by strawberry-perl-5.36.1,the detail as follows: