diff options
author | hobbs <hobbs@noemail.net> | 1999-11-03 02:00:42 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 1999-11-03 02:00:42 (GMT) |
commit | 671fe4b9789519ca93bbed6dd9e3adaac8209668 (patch) | |
tree | 408dadb5b2160c13a86d35068d3bdf8389bf13f1 | |
parent | 4b420f410fca38fe56a163e81359b05759ba24e4 (diff) | |
download | tcl-671fe4b9789519ca93bbed6dd9e3adaac8209668.zip tcl-671fe4b9789519ca93bbed6dd9e3adaac8209668.tar.gz tcl-671fe4b9789519ca93bbed6dd9e3adaac8209668.tar.bz2 |
* library/dde1.1/pkgIndex.tcl:
* library/reg1.0/pkgIndex.tcl: fixed packaging to use the debug
versions of the libraries when compiled with symbols [Bug: 3254]
FossilOrigin-Name: 00262ff0202ce73b633cca35f89ee4cff4106f49
-rw-r--r-- | library/dde/pkgIndex.tcl | 6 | ||||
-rw-r--r-- | library/dde1.1/pkgIndex.tcl | 6 | ||||
-rwxr-xr-x | library/reg/pkgIndex.tcl | 8 | ||||
-rwxr-xr-x | library/reg1.0/pkgIndex.tcl | 8 |
4 files changed, 24 insertions, 4 deletions
diff --git a/library/dde/pkgIndex.tcl b/library/dde/pkgIndex.tcl index a78dc93..437898d 100644 --- a/library/dde/pkgIndex.tcl +++ b/library/dde/pkgIndex.tcl @@ -1 +1,5 @@ -package ifneeded dde 1.1 "load [list [file join $dir tcldde82.dll]] dde"
+if {[info exists tcl_platform(debug)]} { + package ifneeded dde 1.1 [list load [file join $dir tcldde82d.dll] dde] +} else { + package ifneeded dde 1.1 [list load [file join $dir tcldde82.dll] dde] +} diff --git a/library/dde1.1/pkgIndex.tcl b/library/dde1.1/pkgIndex.tcl index a78dc93..437898d 100644 --- a/library/dde1.1/pkgIndex.tcl +++ b/library/dde1.1/pkgIndex.tcl @@ -1 +1,5 @@ -package ifneeded dde 1.1 "load [list [file join $dir tcldde82.dll]] dde"
+if {[info exists tcl_platform(debug)]} { + package ifneeded dde 1.1 [list load [file join $dir tcldde82d.dll] dde] +} else { + package ifneeded dde 1.1 [list load [file join $dir tcldde82.dll] dde] +} diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl index 26b9e5b..db8a5ef 100755 --- a/library/reg/pkgIndex.tcl +++ b/library/reg/pkgIndex.tcl @@ -1 +1,7 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg82.dll]] registry"
+if {[info exists tcl_platform(debug)]} { + package ifneeded registry 1.0 \ + [list load [file join $dir tclreg82d.dll] registry] +} else { + package ifneeded registry 1.0 \ + [list load [file join $dir tclreg82.dll] registry] +} diff --git a/library/reg1.0/pkgIndex.tcl b/library/reg1.0/pkgIndex.tcl index 26b9e5b..db8a5ef 100755 --- a/library/reg1.0/pkgIndex.tcl +++ b/library/reg1.0/pkgIndex.tcl @@ -1 +1,7 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg82.dll]] registry"
+if {[info exists tcl_platform(debug)]} { + package ifneeded registry 1.0 \ + [list load [file join $dir tclreg82d.dll] registry] +} else { + package ifneeded registry 1.0 \ + [list load [file join $dir tclreg82.dll] registry] +} |