diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-19 14:59:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-19 14:59:53 (GMT) |
| commit | 87c013bbb854749c9ddbadd0c84f695ed214db28 (patch) | |
| tree | 796d447790cafa32e223098dff139146053b155f /generic/tclZipfs.c | |
| parent | 968daa687de207b819353fed63aa7d3093068788 (diff) | |
| download | tcl-87c013bbb854749c9ddbadd0c84f695ed214db28.zip tcl-87c013bbb854749c9ddbadd0c84f695ed214db28.tar.gz tcl-87c013bbb854749c9ddbadd0c84f695ed214db28.tar.bz2 | |
Fix compiler warning
Diffstat (limited to 'generic/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index cbfa48b..6f014eb 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -5556,10 +5556,9 @@ ZipFSMatchInDirectoryProc( wanted = types->type; if ((wanted & TCL_GLOB_TYPE_MOUNT) && (wanted != TCL_GLOB_TYPE_MOUNT)) { if (interp) { - Tcl_SetResult(interp, + ZIPFS_ERROR(interp, "Internal error: TCL_GLOB_TYPE_MOUNT should not " - "be set in conjunction with other glob types.", - TCL_STATIC); + "be set in conjunction with other glob types."); } return TCL_ERROR; } |