Check-in [31cdd14393]
Overview
Comment:Updated to produce an error if we are unable to load tcc4tcl shared object
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:31cdd1439331b8e4ab34a4caed24c61f5bf2d655
User & Date: rkeene on 2014-06-21 15:51:03
Other Links: manifest | tags
Context
2014-06-21
17:38
Updated to use correct Tcl version when initializing stubs check-in: 0ca36ca558 user: rkeene tags: trunk
15:51
Updated to produce an error if we are unable to load tcc4tcl shared object check-in: 31cdd14393 user: rkeene tags: trunk
15:47
Updated to call Tcl_InitStubs() with the current version of Tcl check-in: 4ac72a422f user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [c6ec4386d1] to [3622379b6b].

     7      7   	set dir [file dirname [info script]]
     8      8   	if {[info command ::tcc4tcl] == ""} {
     9      9   		catch { load {} tcc4tcl }
    10     10   	}
    11     11   	if {[info command ::tcc4tcl] == ""} {
    12     12   		load [file join $dir tcc4tcl[info sharedlibextension]] tcc4tcl
    13     13   	}
           14  +	if {[info command ::tcc4tcl] == ""} {
           15  +		error "Unable to load tcc4tcl shared library"
           16  +	}
    14     17   
    15     18   	set count 0
    16     19   
    17     20   	proc new {{output ""} {pkgName ""}} {
    18     21   		variable dir
    19     22   		variable count
    20     23