Fossil

Check-in [2d5a23e9]
Login

Check-in [2d5a23e9]

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

Overview
Comment:When building with tcl8.7 or higher, eliminate the call to Tcl_MakeSafe(), which does not exist in those versions (8.7 includes it in their headers but not their lib). Building with tcl8.7+ reveals an unrelated function-type conversion error caused (apparently) by changes in tcl8.7+, and that's still unresolved.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 2d5a23e919dff2f689307f7b656218687f63b1804099d377d1839b0e3abe1817
User & Date: stephan 2024-10-14 19:00:03
References
2024-10-14
19:21
Cherry-pick [2d5a23e919df] into this branch. ... (check-in: f3ce75f8 user: stephan tags: sync-skip-sensitive)
Context
2024-10-15
05:18
Enhance the function to find case-preserved filenames on Windows to deal with non-ASCII filenames. ... (check-in: 9919dfbb user: florian tags: trunk)
2024-10-14
19:21
Cherry-pick [2d5a23e919df] into this branch. ... (check-in: f3ce75f8 user: stephan tags: sync-skip-sensitive)
19:00
When building with tcl8.7 or higher, eliminate the call to Tcl_MakeSafe(), which does not exist in those versions (8.7 includes it in their headers but not their lib). Building with tcl8.7+ reveals an unrelated function-type conversion error caused (apparently) by changes in tcl8.7+, and that's still unresolved. ... (check-in: 2d5a23e9 user: stephan tags: trunk)
01:31
Fix the establish_proxy_tunnel() routine so that it works even if CRs are omitted from the protocol by the proxy. ... (check-in: e8d328cb user: drh tags: trunk)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to src/th_tcl.c.

︙︙
729
730
731
732
733
734
735









736
737
738
739
740
741
742

    */
    registerChans = 0;
    Tcl_RegisterChannel(NULL, Tcl_GetStdChannel(TCL_STDIN));
    Tcl_RegisterChannel(NULL, Tcl_GetStdChannel(TCL_STDOUT));
    Tcl_RegisterChannel(NULL, Tcl_GetStdChannel(TCL_STDERR));
  }
  Tcl_Preserve((ClientData)tclInterp);









  if( Tcl_MakeSafe(tclInterp)!=TCL_OK ){
    int nResult;
    const char *zResult = getTclResult(tclInterp, &nResult);
    Th_ErrorMessage(interp,
        "could not make Tcl interpreter 'safe':", zResult, nResult);
    rc = TH_ERROR;
  }else{








>
>
>
>
>
>
>
>
>








729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751

    */
    registerChans = 0;
    Tcl_RegisterChannel(NULL, Tcl_GetStdChannel(TCL_STDIN));
    Tcl_RegisterChannel(NULL, Tcl_GetStdChannel(TCL_STDOUT));
    Tcl_RegisterChannel(NULL, Tcl_GetStdChannel(TCL_STDERR));
  }
  Tcl_Preserve((ClientData)tclInterp);
#if ((TCL_MAJOR_VERSION==8 && TCL_MINOR_VERSION>6) \
     || (TCL_MAJOR_VERSION>8))
  /* TCL 8.7+ removes Tcl_MakeSafe():
  ** https://core.tcl-lang.org/tcl/tktview?name=655300
  ** https://core.tcl-lang.org/tips/doc/trunk/tip/624.md
  ** 8.7 has it in the headers but not in the libs.
  */
#  define Tcl_MakeSafe(X) TCL_OK
#endif
  if( Tcl_MakeSafe(tclInterp)!=TCL_OK ){
    int nResult;
    const char *zResult = getTclResult(tclInterp, &nResult);
    Th_ErrorMessage(interp,
        "could not make Tcl interpreter 'safe':", zResult, nResult);
    rc = TH_ERROR;
  }else{
︙︙