diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-03-20 17:53:07 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-03-20 17:53:07 (GMT) |
| commit | b199de25aaa631078acc7cd5e5f562d7c46485f3 (patch) | |
| tree | e6c13b21740a4f1caa328d978e8993121e733b0c /generic/tclIO.h | |
| parent | 100d139c36fb7a2c6ffccf1ef1257a7d0d5dbeb3 (diff) | |
| download | tcl-b199de25aaa631078acc7cd5e5f562d7c46485f3.zip tcl-b199de25aaa631078acc7cd5e5f562d7c46485f3.tar.gz tcl-b199de25aaa631078acc7cd5e5f562d7c46485f3.tar.bz2 | |
* generic/tclIO.c (CopyData): Allow the total number of bytes copied
by [fcopy] to exceed 2GB. Can happen when no -size parameter given.
Diffstat (limited to 'generic/tclIO.h')
| -rw-r--r-- | generic/tclIO.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.h b/generic/tclIO.h index eab83eb..626ecba 100644 --- a/generic/tclIO.h +++ b/generic/tclIO.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.h,v 1.11.2.1 2008/04/07 22:33:30 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIO.h,v 1.11.2.2 2010/03/20 17:53:07 dkf Exp $ */ /* @@ -43,7 +43,7 @@ typedef struct CopyState { int readFlags; /* Original read channel flags. */ int writeFlags; /* Original write channel flags. */ int toRead; /* Number of bytes to copy, or -1. */ - int total; /* Total bytes transferred (written). */ + Tcl_WideInt total; /* Total bytes transferred (written). */ Tcl_Interp *interp; /* Interp that started the copy. */ Tcl_Obj *cmdPtr; /* Command to be invoked at completion. */ int bufSize; /* Size of appended buffer. */ |