Overview
| Comment: | Removed old reference to "tcc_handle" |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bc257f54f8727720175af689c8c7a576 |
| 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 |
set count 0
proc new {{output ""} {pkgName ""}} {
variable dir
variable count
set handle ::tcc4tcl::tcc_[incr count]
| < | | 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]
if {$output == ""} {
set type "memory"
} else {
if {$pkgName == ""} {
set type "exe"
} else {
set type "package"
}
}
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]
}
|
| ︙ | ︙ |