Fossil SCM
Update error message in 'loadTcl' to make it more concise.
Commit
f2f01669d01bd99642ee1843037345157c64f79c383fc6f1c00240644a278b6b
Parent
08e63e1755ee202…
1 file changed
+1
-1
+1
-1
| --- src/th_tcl.c | ||
| +++ src/th_tcl.c | ||
| @@ -972,11 +972,11 @@ | ||
| 972 | 972 | return TH_OK; |
| 973 | 973 | } |
| 974 | 974 | } while( --aFileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */ |
| 975 | 975 | aFileName[TCL_MINOR_OFFSET] = 'x'; |
| 976 | 976 | Th_ErrorMessage(interp, |
| 977 | - "could not load any supported Tcl 8.6, 8.5, or 8.4 shared library \"", | |
| 977 | + "could not load any supported Tcl 8.x shared library \"", | |
| 978 | 978 | aFileName, -1); |
| 979 | 979 | return TH_ERROR; |
| 980 | 980 | #else |
| 981 | 981 | *phLibrary = 0; |
| 982 | 982 | *pxFindExecutable = Tcl_FindExecutable; |
| 983 | 983 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -972,11 +972,11 @@ | |
| 972 | return TH_OK; |
| 973 | } |
| 974 | } while( --aFileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */ |
| 975 | aFileName[TCL_MINOR_OFFSET] = 'x'; |
| 976 | Th_ErrorMessage(interp, |
| 977 | "could not load any supported Tcl 8.6, 8.5, or 8.4 shared library \"", |
| 978 | aFileName, -1); |
| 979 | return TH_ERROR; |
| 980 | #else |
| 981 | *phLibrary = 0; |
| 982 | *pxFindExecutable = Tcl_FindExecutable; |
| 983 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -972,11 +972,11 @@ | |
| 972 | return TH_OK; |
| 973 | } |
| 974 | } while( --aFileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */ |
| 975 | aFileName[TCL_MINOR_OFFSET] = 'x'; |
| 976 | Th_ErrorMessage(interp, |
| 977 | "could not load any supported Tcl 8.x shared library \"", |
| 978 | aFileName, -1); |
| 979 | return TH_ERROR; |
| 980 | #else |
| 981 | *phLibrary = 0; |
| 982 | *pxFindExecutable = Tcl_FindExecutable; |
| 983 |