Artifact 2a865ef58e16647b30545b6d970ae99e4e1576af:
- File test/th1-tcl8.txt — part of check-in [6b58c67e] at 2013-09-25 23:56:32 on branch trunk — Add formal unloading support to the Tcl integration subsystem. This is necessary to prevent a deadlock while exiting the process when Tcl is loaded. Add runtime detection of the ability to directly invoke an objProc for a Tcl command. Support USE_TCL_STUBS define in the version information. (user: mistachkin size: 385) [more...]
<th1> # # This is a "TH1 fragment" used to test the Tcl integration features of TH1. # The corresponding test file executes this file using the test-th-render # Fossil command. # proc doOut {msg} {puts $msg; puts \n} if {[tclInvoke set tcl_version] >= 8.6} { doOut [tclInvoke tailcall set x 1] } else { error "This test requires Tcl 8.6 or higher." } </th1>