Check-in [bc257f54f8]
Overview
Comment:Removed old reference to "tcc_handle"
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: bc257f54f8727720175af689c8c7a576705f2b13
User & Date: rkeene on 2014-06-23 19:42:50
Other Links: manifest | tags
Context
2014-06-23
19:43
Updated to never delete compiler memory, since it currently cannot operate again once that happens check-in: 7ce3fcaf57 user: rkeene tags: trunk
19:42
Removed old reference to "tcc_handle" check-in: bc257f54f8 user: rkeene tags: trunk
19:37
Updated to include memory-linking tests on Darwin check-in: 7dafc6aec5 user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [72f0a051fa] to [d7bddf2d39].

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

36
37
38
39
40
41
42
16
17
18
19
20
21
22

23
24
25
26
27
28
29
30
31
32
33

34
35
36
37
38
39
40
41







-











-
+







	set count 0

	proc new {{output ""} {pkgName ""}} {
		variable dir
		variable count

		set handle ::tcc4tcl::tcc_[incr count]
		set tcc_handle ::tcc4tcl::tcc_[incr count]

		if {$output == ""} {
			set type "memory"
		} else {
			if {$pkgName == ""} {
				set type "exe"
			} else {
				set type "package"
			}
		}

		array set $handle [list tcc $tcc_handle code "" type $type filename $output package $pkgName add_inc_path "" add_lib_path "" add_lib ""]
		array set $handle [list code "" type $type filename $output package $pkgName add_inc_path "" add_lib_path "" add_lib ""]

		proc $handle {cmd args} [string map [list @@HANDLE@@ $handle] {
			set handle {@@HANDLE@@}

			if {$cmd == "go"} {
				set args [list 0 {*}$args]
			}