diff options
-rw-r--r-- | generic/tclIO.c | 2 | ||||
-rw-r--r-- | library/opt/optparse.tcl | 2 | ||||
-rw-r--r-- | library/opt/pkgIndex.tcl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index b8a79c2..349df68 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -9227,7 +9227,7 @@ TclCopyChannel( * completed. */ - csPtr = (CopyState *)ckalloc(offsetof(CopyState, buffer) + 1U + !moveBytes * inStatePtr->bufSize); + csPtr = (CopyState *)ckalloc(TclOffset(CopyState, buffer) + 1U + !moveBytes * inStatePtr->bufSize); csPtr->bufSize = !moveBytes * inStatePtr->bufSize; csPtr->readPtr = inPtr; csPtr->writePtr = outPtr; diff --git a/library/opt/optparse.tcl b/library/opt/optparse.tcl index 914ceff..0a6cdfa 100644 --- a/library/opt/optparse.tcl +++ b/library/opt/optparse.tcl @@ -11,7 +11,7 @@ package require Tcl 8.5- # When this version number changes, update the pkgIndex.tcl file # and the install directory in the Makefiles. -package provide opt 0.4.8 +package provide opt 0.4.9 namespace eval ::tcl { diff --git a/library/opt/pkgIndex.tcl b/library/opt/pkgIndex.tcl index 23e118c..c763a3d 100644 --- a/library/opt/pkgIndex.tcl +++ b/library/opt/pkgIndex.tcl @@ -9,4 +9,4 @@ # full path name of this file's directory. if {![package vsatisfies [package provide Tcl] 8.5-]} {return} -package ifneeded opt 0.4.8 [list source [file join $dir optparse.tcl]] +package ifneeded opt 0.4.9 [list source [file join $dir optparse.tcl]] |