Check-in [0d7d9afa0a]
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: 0d7d9afa0a6a983969585b9edcb1ecf8d8cfe5fd
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    137   
   138    138   				foreach {procname cname} $state(procs) {
   139    139   					tcc command $procname $cname
   140    140   				}
   141    141   			}
   142    142   
   143    143   			"package" - "dll" - "exe" {
   144         -				switch -glob -- $::tcl_platform(os)-$::tcl_platform(machine) {
   145         -					"Linux-x86_64" {
          144  +				switch -glob -- $::tcl_platform(os)-$::tcl_platform(pointerSize) {
          145  +					"Linux-8" {
   146    146   						tcc add_library_path "/lib64"
   147    147   						tcc add_library_path "/usr/lib64"
   148    148   						tcc add_library_path "/lib"
   149    149   						tcc add_library_path "/usr/lib"
   150    150   					}
   151    151   					"Linux-*" {
   152    152   						tcc add_library_path "/lib32"