Overview
| Comment: | Updated to include prototype for function that initializes Tcl procedures if they are used |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f67ebac03e981e598a42eb77bfac206e |
| User & Date: | rkeene on 2014-06-23 02:27:00 |
| Other Links: | manifest | tags |
Context
|
2014-06-23
| ||
| 02:31 | Added test for external files check-in: 628ec5502b user: rkeene tags: trunk | |
| 02:27 | Updated to include prototype for function that initializes Tcl procedures if they are used check-in: f67ebac03e user: rkeene tags: trunk | |
| 02:20 | Updated to default to building and linking shared check-in: b9a7430007 user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [30ebc63823] to [1d2b6c2d4b].
| ︙ | ︙ | |||
116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
proc _go {handle {outputOnly 0}} {
variable dir
upvar #0 $handle state
set code $state(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
| > > > > > > | 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
|
| ︙ | ︙ |