diff options
| author | mdejong <mdejong> | 2003-01-16 19:01:59 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2003-01-16 19:01:59 (GMT) |
| commit | 87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68 (patch) | |
| tree | 56fc5ddd5f0d9e560d44bc912f29228edfa92437 /win/tclWinReg.c | |
| parent | d4ef1e892eaf4ac505ca0b50bbec1d3ec472161a (diff) | |
| download | tcl-87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68.zip tcl-87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68.tar.gz tcl-87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68.tar.bz2 | |
* win/tclWin32Dll.c (squelch_warnings): Squelch
compiler warnings from SEH ASM code.
* win/tclWinChan.c (squelch_warnings): Squelch
compiler warnings from SEH ASM code.
* win/tclWinDde.c: Add casts to avoid compiler
warnings. Pass pointer to DWORD instead of int
to avoid compiler warnings.
* win/tclWinFCmd.c (squelch_warnings): Add casts
and fixup decls to avoid compiler warnings.
Squelch compiler warnings from SEH ASM code.
* win/tclWinFile.c: Add casts and fixup decls
to avoid compiler warnings. Remove unused variable.
* win/tclWinNotify.c: Declare as DWORD instead
of int to avoid compiler warning.
* win/tclWinReg.c: Add casts to avoid compiler
warning. Fix assignment in if expression bug.
* win/tclWinSerial.c: Add casts to avoid compiler
warnings. Remove unused variable.
* win/tclWinSock.c: Add casts and fixup decls
to avoid compiler warnings.
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index cf7ff0f..ee453c7 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinReg.c,v 1.19 2002/11/02 22:07:06 davygrvy Exp $ + * RCS: @(#) $Id: tclWinReg.c,v 1.20 2003/01/16 19:02:00 mdejong Exp $ */ #include <tclPort.h> @@ -1341,7 +1341,7 @@ BroadcastValue( if (objc > 3) { str = Tcl_GetStringFromObj(objv[3], &len); - if ((len < 2) || (*str != '-') || strncmp(str, "-timeout", len)) { + if ((len < 2) || (*str != '-') || strncmp(str, "-timeout", (size_t) len)) { Tcl_WrongNumArgs(interp, 2, objv, "keyName ?-timeout millisecs?"); return TCL_ERROR; } @@ -1351,7 +1351,7 @@ BroadcastValue( } str = Tcl_GetStringFromObj(objv[2], &len); - if (len = 0) { + if (len == 0) { str = NULL; } @@ -1362,8 +1362,8 @@ BroadcastValue( (WPARAM) 0, (LPARAM) str, SMTO_ABORTIFHUNG, timeout, &sendResult); objPtr = Tcl_NewObj(); - Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj(result)); - Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj(sendResult)); + Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj((int) result)); + Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj((int) sendResult)); Tcl_SetObjResult(interp, objPtr); return TCL_OK; |