Fossil SCM
Improve the error message when loading a Tcl shared library fails.
Commit
43c56304855aa89e89ba1cb4eb3d78ff1cf9a958
Parent
78d714e984dbeaf…
1 file changed
+2
-2
+2
-2
| --- src/th_tcl.c | ||
| +++ src/th_tcl.c | ||
| @@ -671,13 +671,13 @@ | ||
| 671 | 671 | *pxCreateInterp = xCreateInterp; |
| 672 | 672 | *pxDeleteInterp = xDeleteInterp; |
| 673 | 673 | return TH_OK; |
| 674 | 674 | } |
| 675 | 675 | } while( --fileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */ |
| 676 | + fileName[TCL_MINOR_OFFSET]++; | |
| 676 | 677 | Th_ErrorMessage(interp, |
| 677 | - "could not load Tcl shared library \"" TCL_LIBRARY_NAME "\"", | |
| 678 | - (const char *)"", 0); | |
| 678 | + "could not load Tcl shared library \"", fileName, -1); | |
| 679 | 679 | return TH_ERROR; |
| 680 | 680 | #else |
| 681 | 681 | *pLibrary = 0; |
| 682 | 682 | *pxFindExecutable = Tcl_FindExecutable; |
| 683 | 683 | *pxCreateInterp = Tcl_CreateInterp; |
| 684 | 684 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -671,13 +671,13 @@ | |
| 671 | *pxCreateInterp = xCreateInterp; |
| 672 | *pxDeleteInterp = xDeleteInterp; |
| 673 | return TH_OK; |
| 674 | } |
| 675 | } while( --fileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */ |
| 676 | Th_ErrorMessage(interp, |
| 677 | "could not load Tcl shared library \"" TCL_LIBRARY_NAME "\"", |
| 678 | (const char *)"", 0); |
| 679 | return TH_ERROR; |
| 680 | #else |
| 681 | *pLibrary = 0; |
| 682 | *pxFindExecutable = Tcl_FindExecutable; |
| 683 | *pxCreateInterp = Tcl_CreateInterp; |
| 684 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -671,13 +671,13 @@ | |
| 671 | *pxCreateInterp = xCreateInterp; |
| 672 | *pxDeleteInterp = xDeleteInterp; |
| 673 | return TH_OK; |
| 674 | } |
| 675 | } while( --fileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */ |
| 676 | fileName[TCL_MINOR_OFFSET]++; |
| 677 | Th_ErrorMessage(interp, |
| 678 | "could not load Tcl shared library \"", fileName, -1); |
| 679 | return TH_ERROR; |
| 680 | #else |
| 681 | *pLibrary = 0; |
| 682 | *pxFindExecutable = Tcl_FindExecutable; |
| 683 | *pxCreateInterp = Tcl_CreateInterp; |
| 684 |