summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-11-30 08:37:02 (GMT)
committerhobbs <hobbs>1999-11-30 08:37:02 (GMT)
commitd7393c5ccae5443faac4b81275778462c714ca12 (patch)
treee2ee8c6a1b3ceed265811755d99152741f1ee909 /library
parentf27b3b7ae4e9d68e55b5aa6670baa09156eb030c (diff)
downloadtcl-d7393c5ccae5443faac4b81275778462c714ca12.zip
tcl-d7393c5ccae5443faac4b81275778462c714ca12.tar.gz
tcl-d7393c5ccae5443faac4b81275778462c714ca12.tar.bz2
* library/dde1.1/pkgIndex.tcl:
* library/reg1.0/pkgIndex.tcl: added supported for debugged versions of the libraries
Diffstat (limited to 'library')
-rw-r--r--library/dde/pkgIndex.tcl6
-rw-r--r--library/dde1.1/pkgIndex.tcl6
-rwxr-xr-xlibrary/reg/pkgIndex.tcl8
-rwxr-xr-xlibrary/reg1.0/pkgIndex.tcl8
4 files changed, 24 insertions, 4 deletions
diff --git a/library/dde/pkgIndex.tcl b/library/dde/pkgIndex.tcl
index b953f17..17f09e9 100644
--- a/library/dde/pkgIndex.tcl
+++ b/library/dde/pkgIndex.tcl
@@ -1 +1,5 @@
-package ifneeded dde 1.1 "load [list [file join $dir tcldde83.dll]] dde"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83d.dll] dde]
+} else {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83.dll] dde]
+}
diff --git a/library/dde1.1/pkgIndex.tcl b/library/dde1.1/pkgIndex.tcl
index b953f17..17f09e9 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 tcldde83.dll]] dde"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83d.dll] dde]
+} else {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83.dll] dde]
+}
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl
index 7f34997..5c2218c 100755
--- a/library/reg/pkgIndex.tcl
+++ b/library/reg/pkgIndex.tcl
@@ -1 +1,7 @@
-package ifneeded registry 1.0 "load [list [file join $dir tclreg83.dll]] registry"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83d.dll] registry]
+} else {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83.dll] registry]
+}
diff --git a/library/reg1.0/pkgIndex.tcl b/library/reg1.0/pkgIndex.tcl
index 7f34997..5c2218c 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 tclreg83.dll]] registry"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83d.dll] registry]
+} else {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83.dll] registry]
+}