Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Improve the error message when loading a Tcl shared library fails. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
43c56304855aa89e89ba1cb4eb3d78ff |
| User & Date: | mistachkin 2013-09-19 06:32:00.859 |
Context
|
2013-09-19
| ||
| 08:30 | Add --slash option to test-canonical-name and test-relative-name check-in: e6ced76797 user: jan.nijtmans tags: trunk | |
| 08:10 | merged in trunk check-in: d3e4ef94b4 user: stephan tags: usage-command | |
| 06:32 | Improve the error message when loading a Tcl shared library fails. check-in: 43c5630485 user: mistachkin tags: trunk | |
|
2013-09-18
| ||
| 12:58 | Fix typo in on-line help for "settings". Ticket [b41c8b77dd5044] check-in: 78d714e984 user: drh tags: trunk | |
Changes
Changes to src/th_tcl.c.
| ︙ | ︙ | |||
669 670 671 672 673 674 675 676 |
*pLibrary = library;
*pxFindExecutable = xFindExecutable;
*pxCreateInterp = xCreateInterp;
*pxDeleteInterp = xDeleteInterp;
return TH_OK;
}
} while( --fileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */
Th_ErrorMessage(interp,
| > | < | 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 |
*pLibrary = library;
*pxFindExecutable = xFindExecutable;
*pxCreateInterp = xCreateInterp;
*pxDeleteInterp = xDeleteInterp;
return TH_OK;
}
} while( --fileName[TCL_MINOR_OFFSET]>'3' ); /* Tcl 8.4+ */
fileName[TCL_MINOR_OFFSET]++;
Th_ErrorMessage(interp,
"could not load Tcl shared library \"", fileName, -1);
return TH_ERROR;
#else
*pLibrary = 0;
*pxFindExecutable = Tcl_FindExecutable;
*pxCreateInterp = Tcl_CreateInterp;
*pxDeleteInterp = Tcl_DeleteInterp;
return TH_OK;
|
| ︙ | ︙ |