diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-14 14:25:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-14 14:25:08 (GMT) |
| commit | 3d6a406232dc52b9f475ef7ef3cfa77f8fa01b35 (patch) | |
| tree | 93dec91a6282b71292e6883ab6588a968670e933 /library/init.tcl | |
| parent | 089e88af6f855e42658be530688791a814c26e91 (diff) | |
| download | tcl-3d6a406232dc52b9f475ef7ef3cfa77f8fa01b35.zip tcl-3d6a406232dc52b9f475ef7ef3cfa77f8fa01b35.tar.gz tcl-3d6a406232dc52b9f475ef7ef3cfa77f8fa01b35.tar.bz2 | |
On Windows, Cygwin and 64-bit platforms, no need to handle 'long' in tclLink.c, since its size is equal to either 'int' or 'Tcl_WideInt'. This enhances interoperabilty between win64 extensions loaded in cygwin64 using Tcl_LinkVar(), whill still being 100% compatible.
init.tcl: unnecessary spacing.
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 49a523c..fac1722 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -470,9 +470,9 @@ proc auto_load {cmd {namespace {}}} { proc ::tcl::Pkg::source {filename} { if {[interp issafe]} { - uplevel 1 [list ::source $filename] + uplevel 1 [list ::source $filename] } else { - uplevel 1 [list ::source -nopkg $filename] + uplevel 1 [list ::source -nopkg $filename] } } |