diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-15 20:44:42 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-15 20:44:42 (GMT) |
| commit | f395ac63dfc79b43356a21fb238734618f573cc4 (patch) | |
| tree | 18b7d7b323f17ccdb5624da38b4ae2ec0f9767c5 /unix | |
| parent | 2a01d22218f699923a04450cfd5b1fd9c31347da (diff) | |
| parent | 53163af082499d71e4bf796938b462eb918836e1 (diff) | |
| download | tcl-f395ac63dfc79b43356a21fb238734618f573cc4.zip tcl-f395ac63dfc79b43356a21fb238734618f573cc4.tar.gz tcl-f395ac63dfc79b43356a21fb238734618f573cc4.tar.bz2 | |
Improve bunch of error-messages
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclLoadAix.c | 4 | ||||
| -rw-r--r-- | unix/tclLoadDyld.c | 2 | ||||
| -rw-r--r-- | unix/tclUnixTest.c | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/unix/tclLoadAix.c b/unix/tclLoadAix.c index 2f6b6d4..527d35d 100644 --- a/unix/tclLoadAix.c +++ b/unix/tclLoadAix.c @@ -253,11 +253,11 @@ caterr( strcat(errbuf, "to many errors"); break; case L_ERROR_NOLIB: - strcat(errbuf, "can't load library"); + strcat(errbuf, "cannot load library"); strcat(errbuf, p); break; case L_ERROR_UNDEF: - strcat(errbuf, "can't find symbol"); + strcat(errbuf, "cannot find symbol"); strcat(errbuf, p); break; case L_ERROR_RLDBAD: diff --git a/unix/tclLoadDyld.c b/unix/tclLoadDyld.c index 5b1062e..2fdfabe 100644 --- a/unix/tclLoadDyld.c +++ b/unix/tclLoadDyld.c @@ -118,7 +118,7 @@ DyldOFIErrorMsg( case NSObjectFileImageFormat: return "bad object file format"; case NSObjectFileImageAccess: - return "can't read object file"; + return "cannot read object file"; default: return "unknown error"; } diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 26c590d..4d95309 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -209,7 +209,7 @@ TestfilehandlerCmd( fcntl(GetFd(pipePtr->readFile), F_SETFL, O_NONBLOCK); fcntl(GetFd(pipePtr->writeFile), F_SETFL, O_NONBLOCK); #else - Tcl_AppendResult(interp, "can't make pipes non-blocking", + Tcl_AppendResult(interp, "cannot make pipes non-blocking", (char *)NULL); return TCL_ERROR; #endif |