diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-25 15:10:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-25 15:10:55 (GMT) |
| commit | 0657f97bc5e5f5b835c2c60713f306fb97950a89 (patch) | |
| tree | 4b9fb375f578e97c99edcb9c67d5fde38ede1464 /generic/tclTestObj.c | |
| parent | 231fd112f959c258117188b044681643f30129f1 (diff) | |
| download | tcl-0657f97bc5e5f5b835c2c60713f306fb97950a89.zip tcl-0657f97bc5e5f5b835c2c60713f306fb97950a89.tar.gz tcl-0657f97bc5e5f5b835c2c60713f306fb97950a89.tar.bz2 | |
Eliminate some clang warnings. Only use "testbigdata" if sizeof(Tcl_Size) == sizeof(Tcl_WideInt)
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 14c7c70..6ad45e9 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -119,8 +119,10 @@ TclObjTest_Init( Tcl_CreateObjCommand(interp, "testobj", TestobjCmd, NULL, NULL); Tcl_CreateObjCommand(interp, "teststringobj", TeststringobjCmd, NULL, NULL); - Tcl_CreateObjCommand(interp, "testbigdata", TestbigdataCmd, - NULL, NULL); + if (sizeof(Tcl_Size) == sizeof(Tcl_WideInt)) { + Tcl_CreateObjCommand(interp, "testbigdata", TestbigdataCmd, + NULL, NULL); + } return TCL_OK; } |