From 671fe4b9789519ca93bbed6dd9e3adaac8209668 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Wed, 3 Nov 1999 02:00:42 +0000
Subject: 	* 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
---
 library/dde/pkgIndex.tcl    | 6 +++++-
 library/dde1.1/pkgIndex.tcl | 6 +++++-
 library/reg/pkgIndex.tcl    | 8 +++++++-
 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]
+}
-- 
cgit v0.12