|
|
|
@ -2454,7 +2454,7 @@ if {[file dirname [info nameofexecutable]] eq $rtfolder} { |
|
|
|
if {$::tcl_platform(platform) eq "windows"} { |
|
|
|
if {$::tcl_platform(platform) eq "windows"} { |
|
|
|
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY.exe |
|
|
|
exec cmd /c copy [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY.exe |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
exec cp [info nameofexecutable] $rtfolder/[info nameofexecutable]_BUILDCOPY |
|
|
|
exec cp [info nameofexecutable] $rtfolder/[file rootname [info nameofexecutable]]_BUILDCOPY |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
@ -2683,7 +2683,7 @@ foreach runtimefile $runtimes { |
|
|
|
#assume it's a mounted tclkit (because tcl kits mount in same place as their underlying path and mask the executable) |
|
|
|
#assume it's a mounted tclkit (because tcl kits mount in same place as their underlying path and mask the executable) |
|
|
|
#use the BUILDCOPY created above - REVIEW |
|
|
|
#use the BUILDCOPY created above - REVIEW |
|
|
|
if {$::tcl_platform(platform) eq "windows"} { |
|
|
|
if {$::tcl_platform(platform) eq "windows"} { |
|
|
|
set useruntime [file rootname [file tail $runtimefile]]_BUILDCOPY.exe |
|
|
|
set useruntime [file tail $runtimefile]_BUILDCOPY.exe |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
set useruntime ${runtimefile}_BUILDCOPY |
|
|
|
set useruntime ${runtimefile}_BUILDCOPY |
|
|
|
} |
|
|
|
} |
|
|
|
|