diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 12:35:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 12:35:07 (GMT) |
| commit | 2943a2ce12be16a91b9d90058cc0ea8ec707e5e2 (patch) | |
| tree | a046e1fa7bfba10d49ad3d2829fc79ebd52b2f29 /generic/tclIO.c | |
| parent | 0dbb43436b849bbbc8c3f8f055e01d80936c206b (diff) | |
| download | tcl-2943a2ce12be16a91b9d90058cc0ea8ec707e5e2.zip tcl-2943a2ce12be16a91b9d90058cc0ea8ec707e5e2.tar.gz tcl-2943a2ce12be16a91b9d90058cc0ea8ec707e5e2.tar.bz2 | |
Use Tcl_NewBooleanObj for booleans; we should say what we mean. Fix sentinels and type-casts.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 349df68..1977af2 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -11261,7 +11261,7 @@ DupChannelInternalRep( Tcl_Obj *copyPtr) /* Object with internal rep to set. Must not * currently have an internal rep.*/ { - ResolvedChanName *resPtr = srcPtr->internalRep.twoPtrValue.ptr1; + ResolvedChanName *resPtr = (ResolvedChanName *)srcPtr->internalRep.twoPtrValue.ptr1; resPtr->refCount++; copyPtr->internalRep.twoPtrValue.ptr1 = resPtr; @@ -11288,7 +11288,7 @@ static void FreeChannelInternalRep( Tcl_Obj *objPtr) /* Object with internal rep to free. */ { - ResolvedChanName *resPtr = objPtr->internalRep.twoPtrValue.ptr1; + ResolvedChanName *resPtr = (ResolvedChanName *)objPtr->internalRep.twoPtrValue.ptr1; objPtr->typePtr = NULL; if (--resPtr->refCount) { |