Tcl Source Code: Artifact [ecb7ac0eee]

Artifact ecb7ac0eeececebf65fea76f799c4e62edc7ece7:

Attachment "wideseek.patch" to ticket [1965787fff] added by ferrieux 2008-05-23 04:36:19. Also attachment "wideseek.patch" to ticket [1965787fff] added by ferrieux 2008-05-23 03:40:18.

Index: tclWinChan.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinChan.c,v
retrieving revision 1.50
diff -r1.50 tclWinChan.c
578c578
<     return (Tcl_LongAsWide(newPos) | (Tcl_LongAsWide(newPosHigh) << 32));
---
>     return (((Tcl_WideInt)((unsigned)newPos)) | (Tcl_LongAsWide(newPosHigh) << 32));