mingw/lib/tcl8.4/reg1.1/pkgIndex.tcl

   1 if {![package vsatisfies [package provide Tcl] 8]} {return}
   2 if {[string compare $::tcl_platform(platform) windows]} {return}
   3 if {[info exists ::tcl_platform(debug)]} {
   4     package ifneeded registry 1.1.3 \
   5             [list load [file join $dir tclreg11g.dll] registry]
   6 } else {
   7     package ifneeded registry 1.1.3 \
   8             [list load [file join $dir tclreg11.dll] registry]
   9 }