Fossil

Check-in [43c56304]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Improve the error message when loading a Tcl shared library fails.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:43c56304855aa89e89ba1cb4eb3d78ff1cf9a958
User & Date: mistachkin 2013-09-19 06:32:00
Context
2013-09-19
08:30
Add --slash option to test-canonical-name and test-relative-name check-in: e6ced767 user: jan.nijtmans tags: trunk
08:10
merged in trunk check-in: d3e4ef94 user: stephan tags: usage-command
06:32
Improve the error message when loading a Tcl shared library fails. check-in: 43c56304 user: mistachkin tags: trunk
2013-09-18
12:58
Fix typo in on-line help for "settings". Ticket [b41c8b77dd5044] check-in: 78d714e9 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/th_tcl.c.

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+ */
  Th_ErrorMessage(interp,
      "could not load Tcl shared library \"" TCL_LIBRARY_NAME "\"",
      (const char *)"", 0);
  return TH_ERROR;
#else
  *pLibrary = 0;
  *pxFindExecutable = Tcl_FindExecutable;
  *pxCreateInterp = Tcl_CreateInterp;
  *pxDeleteInterp = Tcl_DeleteInterp;
  return TH_OK;







|
|
|







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;