summaryrefslogtreecommitdiffstats
path: root/win/tclWinReg.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2004-09-01 17:26:04 (GMT)
committerhobbs <hobbs>2004-09-01 17:26:04 (GMT)
commit0419fcd43752f43ed6c94bf701a21e8ea5dab32f (patch)
tree9f3df7cef9afd0d37eba2a69abb350ef1804c686 /win/tclWinReg.c
parente0b6975cf3332662fd4a37a015a0f537da189c28 (diff)
downloadtcl-0419fcd43752f43ed6c94bf701a21e8ea5dab32f.zip
tcl-0419fcd43752f43ed6c94bf701a21e8ea5dab32f.tar.gz
tcl-0419fcd43752f43ed6c94bf701a21e8ea5dab32f.tar.bz2
WIN64 corrections
Diffstat (limited to 'win/tclWinReg.c')
-rw-r--r--win/tclWinReg.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c
index 424cb44..0f02db0 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.21.2.3 2003/11/10 22:42:07 dgp Exp $
+ * RCS: @(#) $Id: tclWinReg.c,v 1.21.2.4 2004/09/01 17:26:04 hobbs Exp $
*/
#include <tclPort.h>
@@ -1328,7 +1328,7 @@ BroadcastValue(
int objc, /* Number of arguments. */
Tcl_Obj * CONST objv[]) /* Argument values. */
{
- DWORD result, sendResult;
+ LRESULT result, sendResult;
UINT timeout = 3000;
int len;
char *str;
@@ -1362,8 +1362,8 @@ BroadcastValue(
(WPARAM) 0, (LPARAM) str, SMTO_ABORTIFHUNG, timeout, &sendResult);
objPtr = Tcl_NewObj();
- Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj((int) result));
- Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewIntObj((int) sendResult));
+ Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewLongObj((long) result));
+ Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewLongObj((long) sendResult));
Tcl_SetObjResult(interp, objPtr);
return TCL_OK;