diff options
author | ericm <ericm@noemail.net> | 2000-06-13 20:30:22 (GMT) |
---|---|---|
committer | ericm <ericm@noemail.net> | 2000-06-13 20:30:22 (GMT) |
commit | 363fbcc1cc55db3720944faf69bd3db500b0050b (patch) | |
tree | b14abd2689333bd6dba627cc2ba74f5fffd63503 /win/tclWinPipe.c | |
parent | 1d49b4f22ceca616f9f7fda836bc34e9d0c48299 (diff) | |
download | tcl-363fbcc1cc55db3720944faf69bd3db500b0050b.zip tcl-363fbcc1cc55db3720944faf69bd3db500b0050b.tar.gz tcl-363fbcc1cc55db3720944faf69bd3db500b0050b.tar.bz2 |
* win/tclWinDde.c:
* win/tclWinInit.c:
* win/tclWinNotify.c:
* win/tclWinPipe.c:
* win/tclWinReg.c:
* win/tclWinThrd.c: Applied patch from [Bug 5794].
FossilOrigin-Name: 84806aadbad7d0804ee022df990d7f3295efbcc0
Diffstat (limited to 'win/tclWinPipe.c')
-rw-r--r-- | win/tclWinPipe.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index b21a692..c42de21 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.11 2000/04/11 21:42:12 ericm Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.12 2000/06/13 20:30:23 ericm Exp $ */ #include "tclWinInt.h" @@ -1194,7 +1194,7 @@ TclpCreateProcess( if ((*tclWinProcs->createProcessProc)(NULL, (TCHAR *) Tcl_DStringValue(&cmdLine), NULL, NULL, TRUE, - createFlags, NULL, NULL, &startInfo, &procInfo) == 0) { + (DWORD) createFlags, NULL, NULL, &startInfo, &procInfo) == 0) { TclWinConvertError(GetLastError()); Tcl_AppendResult(interp, "couldn't execute \"", argv[0], "\": ", Tcl_PosixError(interp), (char *) NULL); @@ -2112,9 +2112,9 @@ PipeOutputProc( ckfree(infoPtr->writeBuf); } infoPtr->writeBufLen = toWrite; - infoPtr->writeBuf = ckalloc(toWrite); + infoPtr->writeBuf = ckalloc((unsigned int) toWrite); } - memcpy(infoPtr->writeBuf, buf, toWrite); + memcpy(infoPtr->writeBuf, buf, (size_t) toWrite); infoPtr->toWrite = toWrite; ResetEvent(infoPtr->writable); SetEvent(infoPtr->startWriter); @@ -2357,7 +2357,7 @@ Tcl_WaitPid( int options) { ProcInfo *infoPtr, **prevPtrPtr; - int flags; + DWORD flags; Tcl_Pid result; DWORD ret; |