Attachment "patch.txt" to
ticket [635107ffff]
added by
davygrvy
2002-11-08 01:40:03.
*** library/dde/pkgIndex.tcl 28 Oct 2002 21:14:12 -0000 1.8
--- library/dde/pkgIndex.tcl 7 Nov 2002 18:24:15 -0000
***************
*** 1,6 ****
if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[info exists tcl_platform(debug)]} {
! package ifneeded dde 1.2 [list load [file join $dir tcldde12g.dll] dde]
} else {
package ifneeded dde 1.2 [list load [file join $dir tcldde12.dll] dde]
}
--- 1,6 ----
if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[info exists tcl_platform(debug)]} {
! package ifneeded dde 1.2 [list load [file join $dir tcldde12d.dll] dde]
} else {
package ifneeded dde 1.2 [list load [file join $dir tcldde12.dll] dde]
}
*** library/reg/pkgIndex.tcl 28 Oct 2002 21:14:13 -0000 1.12
--- library/reg/pkgIndex.tcl 7 Nov 2002 18:24:20 -0000
***************
*** 1,7 ****
if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[info exists tcl_platform(debug)]} {
package ifneeded registry 1.1 \
! [list load [file join $dir tclreg11g.dll] registry]
} else {
package ifneeded registry 1.1 \
[list load [file join $dir tclreg11.dll] registry]
--- 1,7 ----
if {![package vsatisfies [package provide Tcl] 8]} {return}
if {[info exists tcl_platform(debug)]} {
package ifneeded registry 1.1 \
! [list load [file join $dir tclreg11d.dll] registry]
} else {
package ifneeded registry 1.1 \
[list load [file join $dir tclreg11.dll] registry]
*** win/tcl.m4 22 Oct 2002 18:56:28 -0000 1.46
--- win/tcl.m4 7 Nov 2002 18:24:43 -0000
***************
*** 303,309 ****
else
CFLAGS_DEFAULT='$(CFLAGS_DEBUG)'
LDFLAGS_DEFAULT='$(LDFLAGS_DEBUG)'
! DBGX=g
if test "$tcl_ok" = "yes"; then
AC_MSG_RESULT([yes (standard debugging)])
fi
--- 303,309 ----
else
CFLAGS_DEFAULT='$(CFLAGS_DEBUG)'
LDFLAGS_DEFAULT='$(LDFLAGS_DEBUG)'
! DBGX=d
if test "$tcl_ok" = "yes"; then
AC_MSG_RESULT([yes (standard debugging)])
fi
