Check-in [f67ebac03e]
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:f67ebac03e981e598a42eb77bfac206e8d806ccb
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