Differences From Artifact [30ebc63823]:
- File tcc4tcl.tcl — part of check-in [0e71626442] at 2014-06-23 01:51:33 on branch trunk — Updated to not error out about not being able to load the library until we actually need to use it (user: rkeene, size: 10868) [annotate] [blame] [check-ins using]
To Artifact [1d2b6c2d4b]:
- File tcc4tcl.tcl — part of check-in [f67ebac03e] at 2014-06-23 02:27:00 on branch trunk — Updated to include prototype for function that initializes Tcl procedures if they are used (user: rkeene, size: 11062) [annotate] [blame] [check-ins using]
| ︙ | |||
116 117 118 119 120 121 122 123 124 125 126 127 128 129 | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | + + + + + + |
proc _go {handle {outputOnly 0}} {
variable dir
upvar #0 $handle state
set code $state(code)
if {$state(type) == "exe" || $state(type) == "dll"} {
if {[info exists state(procs)] && [llength $state(procs)] > 0} {
set code "int _initProcs(Tcl_Interp *interp);\n\n$code"
}
}
if {[info exists state(tk)]} {
set code "#include <tk.h>\n$code"
}
set code "#include <tcl.h>\n\n$code"
# Append additional generated code to support the output type
|
| ︙ |