Overview
| Comment: | Updated to use pointerSize to determine 32/64-bit library paths so that i386 code can be emitted when running a 32-bit Tcl on a 64-bit box |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0d7d9afa0a6a983969585b9edcb1ecf8 |
| User & Date: | rkeene on 2014-06-18 19:04:02 |
| Other Links: | manifest | tags |
Context
|
2014-06-18
| ||
| 19:46 | Added a command called "code" to get the generated code check-in: 1a7d494008 user: rkeene tags: trunk | |
| 19:04 | Updated to use pointerSize to determine 32/64-bit library paths so that i386 code can be emitted when running a 32-bit Tcl on a 64-bit box check-in: 0d7d9afa0a user: rkeene tags: trunk | |
| 18:05 | Updated to allow for the possibility of creating a DLL that is not a Tcl package check-in: 24cc34d5f9 user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [8ce88b67f0] to [9e249ac45d].
| ︙ | ︙ | |||
137 138 139 140 141 142 143 |
foreach {procname cname} $state(procs) {
tcc command $procname $cname
}
}
"package" - "dll" - "exe" {
| | | | 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
foreach {procname cname} $state(procs) {
tcc command $procname $cname
}
}
"package" - "dll" - "exe" {
switch -glob -- $::tcl_platform(os)-$::tcl_platform(pointerSize) {
"Linux-8" {
tcc add_library_path "/lib64"
tcc add_library_path "/usr/lib64"
tcc add_library_path "/lib"
tcc add_library_path "/usr/lib"
}
"Linux-*" {
tcc add_library_path "/lib32"
|
| ︙ | ︙ |